no message

tweag · Dec 16, 2018 · 4224024 · 4224024
1 parent a68642c
commit 4224024
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/asterius/src/Asterius/Builtins.hs b/asterius/src/Asterius/Builtins.hs
@@ -795,7 +795,6 @@ scheduleHandleThreadFinished t = do
         callImport
           "__asterius_setTSOrstat"
           [loadI32 t offset_StgTSO_id, constI32 scheduler_Killed])
-  storeI64 t offset_StgTSO_bound $ constI64 0
   pure $ constI32 1
 
 schedule :: Expression -> EDSL ()
@@ -869,7 +868,6 @@ createThreadFunction _ =
     storeI32 tso_p offset_StgTSO_flags $ constI32 0
     storeI32 tso_p offset_StgTSO_dirty $ constI32 1
     storeI32 tso_p offset_StgTSO_saved_errno $ constI32 0
-    storeI64 tso_p offset_StgTSO_bound $ constI64 0
     storeI64 tso_p offset_StgTSO_cap cap
     storeI64 tso_p offset_StgTSO_stackobj stack_p
     storeI32 tso_p offset_StgTSO_tot_stack_size $ wrapInt64 stack_size_w

diff --git a/asterius/test/bytearray/bytearray.hs b/asterius/test/bytearray/bytearray.hs
@@ -40,5 +40,13 @@ m (I# len) =
                     , ( I# (indexInt8Array# ba 0#)
                       , I# (indexInt8Array# ba (len -# 1#)))#))
 
+src :: [Int]
+src = w 0 []
+  where
+    w 100000 acc = acc
+    w i acc = w (succ i) (i : acc)
+
 main :: IO ()
-main = for_ [63, 511, 8191, 65535] $ m >=> print >=> const yield
+main = do
+  for_ [63, 511, 8191, 65535] $ m >=> print >=> const yield
+  print $ foldl' (+) (0 :: Int) src