static methods: add inheritance capability

[mate.git] / Mate.hs

diff --git a/Mate.hs b/Mate.hs
index 946b6921893c0f32dce67c3010f7bbcd1350b041..eb7c76529dbc3bf31ea2758b7a5793dc6c2d58cb 100644 (file)
--- a/Mate.hs
+++ b/Mate.hs
@@ -35,7 +35,9 @@ main = do
           let method = find (\x -> (methodName x) == "main") methods
           case method of
             Just m -> do
-              entry <- compileBB hmap' (MethodInfo "main" bclspath (methodSignature m))
+              let mi = (MethodInfo "main" bclspath (methodSignature m))
+              entry <- compileBB hmap' mi
+              addMethodRef entry mi [bclspath]
               printf "executing `main' now:\n"
               executeFuncPtr entry
             Nothing -> error "main not found"