projects
/
mate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
GC: first working version of boehm gc. working with: 8af66bf9d36f75558ec49e0461099d5f...
[mate.git]
/
Mate
/
MethodPool.hs
diff --git
a/Mate/MethodPool.hs
b/Mate/MethodPool.hs
index 73f47c090a76259fde609f4b1139a28a4191baca..da3e5e055808de09698423cc8173a4d3929178aa 100644
(file)
--- a/
Mate/MethodPool.hs
+++ b/
Mate/MethodPool.hs
@@
-32,6
+32,7
@@
import Mate.NativeMachine
import Mate.ClassPool
import Mate.Debug
import Mate.Utilities
import Mate.ClassPool
import Mate.Debug
import Mate.Utilities
+import Mate.GarbageAlloc
foreign import ccall "dynamic"
code_void :: FunPtr (IO ()) -> IO ()
foreign import ccall "dynamic"
code_void :: FunPtr (IO ()) -> IO ()
@@
-39,7
+40,9
@@
foreign import ccall "dynamic"
foreign import ccall "&demoInterfaceCall"
demoInterfaceCallAddr :: FunPtr (CUInt -> IO ())
foreign import ccall "&demoInterfaceCall"
demoInterfaceCallAddr :: FunPtr (CUInt -> IO ())
-
+foreign import ccall "&printMemoryUsage"
+ printMemoryUsageAddr :: FunPtr (IO ())
+
getMethodEntry :: CPtrdiff -> CPtrdiff -> IO CPtrdiff
getMethodEntry signal_from methodtable = do
mmap <- getMethodMap
getMethodEntry :: CPtrdiff -> CPtrdiff -> IO CPtrdiff
getMethodEntry signal_from methodtable = do
mmap <- getMethodMap
@@
-73,6
+76,8
@@
getMethodEntry signal_from methodtable = do
case smethod of
"demoInterfaceCall" ->
return . funPtrToAddr $ demoInterfaceCallAddr
case smethod of
"demoInterfaceCall" ->
return . funPtrToAddr $ demoInterfaceCallAddr
+ "printMemoryUsage" ->
+ return . funPtrToAddr $ printMemoryUsageAddr
_ ->
error $ "native-call: " ++ smethod ++ " not found."
else do
_ ->
error $ "native-call: " ++ smethod ++ " not found."
else do