X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate.hs;fp=Mate.hs;h=96edb9633155c58b5850e689e489134eb5eb9030;hb=3573020fca0413c6d7823e2a1d70108f25766db0;hp=5ea2f7d200ae08d847a3677f54f3603fe3caf88f;hpb=69737e443614cbe6c2acec6c3f7f6918325d4435;p=mate.git

diff --git a/Mate.hs b/Mate.hs
index 5ea2f7d..96edb96 100644
--- 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