projects
/
mate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
maxlocals: store it in new data type RawMethod, with MapBB & Co
[mate.git]
/
Mate
/
ClassPool.hs
diff --git
a/Mate/ClassPool.hs
b/Mate/ClassPool.hs
index 8788e75ab9261caa320d425cdd55d2a31a00d66e..ae6ce4450def203be66630d80ec23e7aa3b07aff 100644
(file)
--- a/
Mate/ClassPool.hs
+++ b/
Mate/ClassPool.hs
@@
-254,11
+254,11
@@
loadAndInitClass path = do
-- execute class initializer
case lookupMethod "<clinit>" (ciFile ci) of
Just m -> do
-- execute class initializer
case lookupMethod "<clinit>" (ciFile ci) of
Just m -> do
-
hmap
<- parseMethod (ciFile ci) "<clinit>" $ MethodSignature [] ReturnsVoid
- case
hmap
of
- Just
hmap'
-> do
+
method
<- parseMethod (ciFile ci) "<clinit>" $ MethodSignature [] ReturnsVoid
+ case
method
of
+ Just
rawmethod
-> do
let mi = MethodInfo "<clinit>" path (methodSignature m)
let mi = MethodInfo "<clinit>" path (methodSignature m)
- entry <- compileBB
hmap'
mi
+ entry <- compileBB
rawmethod
mi
addMethodRef entry mi [path]
printfCp "executing static initializer from %s now\n" (toString path)
executeFuncPtr entry
addMethodRef entry mi [path]
printfCp "executing static initializer from %s now\n" (toString path)
executeFuncPtr entry