foreign import ccall "dynamic"
code_void :: FunPtr (IO ()) -> IO ()
-foreign import ccall "&demoInterfaceCall"
- demoInterfaceCallAddr :: FunPtr (CUInt -> IO ())
-
foreign import ccall "&printMemoryUsage"
printMemoryUsageAddr :: FunPtr (IO ())
foreign import ccall "&loadLibrary"
loadLibraryAddr :: FunPtr (IO ())
+foreign import ccall "&printGCStats"
+ printGCStatsAddr :: FunPtr (IO ())
+
getMethodEntry :: CPtrdiff -> CPtrdiff -> IO CPtrdiff
getMethodEntry signal_from methodtable = do
mmap <- getMethodMap
case smethod of
"loadLibrary" ->
return . funPtrToAddr $ loadLibraryAddr
- "demoInterfaceCall" ->
- return . funPtrToAddr $ demoInterfaceCallAddr
+ "printGCStats" ->
+ return . funPtrToAddr $ printGCStatsAddr
"printMemoryUsage" ->
return . funPtrToAddr $ printMemoryUsageAddr
_ ->