A-M baby

Task/Memory-allocation/Haskell/memory-allocation-1.hs

@@ -0,0 +1,9 @@
+import Foreign
+
+bytealloc :: IO ()
+bytealloc = do
+  a0 <- mallocBytes 100 -- Allocate 100 bytes
+  free a0 -- Free them again
+  allocaBytes 100 $ \a -> -- Allocate 100 bytes; automatically
+                          -- freed when closure finishes
+    poke (a::Ptr Word32) 0

Task/Memory-allocation/Haskell/memory-allocation-2.hs

@@ -0,0 +1,8 @@
+import Foreign
+
+typedalloc :: IO ()
+typedalloc = do
+  w <- malloc
+  poke w (100 :: Word32)
+  free w
+  alloca $ \a -> poke a (100 :: Word32)