fix dereferencing mutable cursor, add nested soa examples, add colobus with redirections to test suite

Author: vidsinghal

gibbon-compiler/examples/simple_tests/packedBuggyTree.hs

@@ -0,0 +1,29 @@
+-- test monomorphic things
+module MonoTree where
+
+data Tree = Leaf Int
+          | Node Int Tree Tree
+  deriving Show
+
+mkTree :: Int -> Tree
+mkTree d =
+  if d == 0
+  then Leaf 1
+  else Node d (mkTree (d-1)) (mkTree (d-1))
+
+add1Tree :: Tree -> Tree
+add1Tree t =
+  case t of
+    Leaf x -> Leaf (x + 1)
+    Node d x1 x2 -> Node (d + 1) (add1Tree x1) (add1Tree x2)
+
+sumTree :: Tree -> Int
+sumTree tr =
+  case tr of
+    Leaf n    -> n
+    Node d l r -> d + (sumTree l) + (sumTree r)
+
+gibbon_main = sumTree (mkTree 18) --sumTree (add1Tree (mkTree 18))
+
+main :: IO ()
+main = print gibbon_main

gibbon-compiler/examples/soa_examples/.list.aos.c.kate-swp

@@ -34,12 +34,9 @@ sumList lst = case lst of
                                   in i + sumRst
 
 gibbon_main = let 
-		lst = mkList 20000
-                lst' = iterate (add1 lst)
-                _ = printPacked lst'
-                _ = printsym (quote "NEWLINE")
-                --(val, lst'') = fieldDep lst' 
-	       in sumList lst' --() --printPacked lst' --val --sumList lst'
+		lst = mkList 100
+                lst' = add1 lst 
+	       in sumList lst'
 
 
 

gibbon-compiler/examples/soa_examples/MonoTree.hs

@@ -70,7 +70,7 @@ sumFloatList :: FloatList -> Int
 sumFloatList lst = 10
 
 gibbon_main = 
-      let tree = mkTree 5
+      let tree = mkTree 12
           tree' = add1Tree tree
        in sumTree tree'
 

gibbon-compiler/examples/simple_tests/list.hs renamed to gibbon-compiler/examples/soa_examples/list.hs

@@ -42,11 +42,9 @@ sumList lst = case lst of
 
 gibbon_main = let 
                 pi = mkPackedInt 10
-                lst = mkList 10
+                lst = mkList 100
                 lst' = add1 lst
-                -- _ = printPacked lst'
-                --(val, lst'') = fieldDep lst'
-               in (sumList lst') --printPacked lst' --val --sumList lst'
+               in (sumList lst')
 
 
 

gibbon-compiler/examples/simple_tests/packedBinaryTree.hs renamed to gibbon-compiler/examples/soa_examples/packedBinaryTree.hs

@@ -0,0 +1 @@
+5150

gibbon-compiler/examples/simple_tests/packedList.hs renamed to gibbon-compiler/examples/soa_examples/packedList.hs

@@ -0,0 +1 @@
+10300

gibbon-compiler/examples/simple_tests/packedTree.hs renamed to gibbon-compiler/examples/soa_examples/packedTree.hs

@@ -0,0 +1 @@
+919