edits

iu-parfunc · Jan 8, 2024 · 6f36fdb · 6f36fdb
1 parent 4e729e2
commit 6f36fdb
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/gibbon-compiler/examples/layout_bench/GenerateLayout1.hs b/gibbon-compiler/examples/layout_bench/GenerateLayout1.hs
@@ -15,7 +15,7 @@ mkBlogs_layout1 length =
           id     = (ID (10 - (mod length 10)))
           author = (Author (getRandomString 5))
           date   =  (Date (getRandomString 5))
-          content = (Content (Plain (mkRandomInlineList 100)))
+          content = (Content (Plain (mkRandomInlineList 150)))
           tags    = (TagList (mkSomeTags 10))
           rst     = (mkBlogs_layout1 (length - 1))
          in Layout1 header id author date content tags rst
@@ -49,6 +49,6 @@ mkBlogs_layout1 length =
 --
 
 -- manyFuncs 
--- Content -> 50 
+-- Content -> 150
 -- Tags -> 10 
 -- Blogs -> 1000000
diff --git a/gibbon-compiler/examples/layout_bench/GenerateLayout8.hs b/gibbon-compiler/examples/layout_bench/GenerateLayout8.hs
@@ -9,11 +9,11 @@ mkBlogs_layout8 length =
    if length <= 0 then End 
    else 
       let
-          content = (Content (Plain (mkRandomInlineList 50)))
+          content = (Content (Plain (mkRandomInlineList 500)))
           rst     = (mkBlogs_layout8 (length - 1))
           id      = (ID (10 - (mod length 10)))
           author  = (Author (getRandomString 5))
           date    = (Date (getRandomString 5))
           header  = (Header (getRandomString 5))
-          tags    = (TagList (mkSomeTags 10))       
+          tags    = (TagList (mkSomeTags 5))       
          in Layout8 content rst id author date header tags    
diff --git a/gibbon-compiler/examples/layout_bench/layout8TagSearch.hs b/gibbon-compiler/examples/layout_bench/layout8TagSearch.hs
@@ -23,6 +23,6 @@ gibbon_main =
     let 
         blogs     = mkBlogs_layout8 400000
         keyword :: Vector Char  
-        keyword = "a"
+        keyword = "b"
         newblgs = iterate (emphKeywordInTag keyword blogs)
     in blogLength newblgs == blogLength blogs
diff --git a/gibbon-rts/Makefile b/gibbon-rts/Makefile
@@ -146,7 +146,7 @@ $(BUILD_DIR)/%.o: $(C_RTS_DIR)/%.o
 	mv $^ $@
 
 $(C_RTS_DIR)/%.o: $(C_RTS_DIR)/%.c
-	$(CC) $(CFLAGS) -c -o $@ $^
+	$(CC) $(CFLAGS) -c -o $@ $^ -l:libpapi.a
 
 $(BUILD_DIR)/%.h: $(C_RTS_DIR)/%.h
 	mkdir -p $(BUILD_DIR) && \

diff --git a/gibbon-rts/rts-c/gibbon_rts.c b/gibbon-rts/rts-c/gibbon_rts.c
@@ -36,7 +36,7 @@
 #endif
 
 #ifdef _GIBBON_ENABLE_PAPI
-#include <papi.h>
+#include "/local/scratch/a/singhav/papi_install/include/papi.h"
 #endif
 
 /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~