GC: first working version of boehm gc. working with: 8af66bf9d36f75558ec49e0461099d5f...

[mate.git] / Mate.hs

diff --git a/Mate.hs b/Mate.hs
index 5ea2f7d200ae08d847a3677f54f3603fe3caf88f..96edb9633155c58b5850e689e489134eb5eb9030 100644 (file)
--- a/Mate.hs
+++ b/Mate.hs
@@ -22,6 +22,8 @@ import Mate.Types
 import Mate.ClassPool
 import Mate.NativeMachine
 
+import Mate.GC.Boehm
+
 main ::  IO ()
 main = do
   args <- getArgs
@@ -61,7 +63,8 @@ parseArgs _ _ = parseArgs ["-"] False
 
 
 executeMain :: B.ByteString -> Class Direct -> IO ()
-executeMain bclspath cls = do
+executeMain bclspath cls = do 
+  initGC --required on some platforms. [todo bernhard: maybe this should be moved somewhere else - maybe at a global place where vm initialization takes place
   let methods = classMethods cls; methods :: [Method Direct]
   case find (\x -> methodName x == "main") methods of
     Just m -> do