projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use type families: done.
[hs-java.git]
/
JVM
/
Dump.hs
diff --git
a/JVM/Dump.hs
b/JVM/Dump.hs
index 2012c8b94b5533eb706b93f63ad3b44c5336beca..02da46ae2a0d074b2dab39cc459c528795573816 100644
(file)
--- a/
JVM/Dump.hs
+++ b/
JVM/Dump.hs
@@
-7,18
+7,19
@@
import qualified Data.ByteString.Lazy as B
import Text.Printf
import JVM.Types
import Text.Printf
import JVM.Types
+import JVM.ClassFile
import JVM.Converter
import JVM.Assembler
import JVM.Converter
import JVM.Assembler
-dumpClass :: Class -> IO ()
+dumpClass :: Class
Resolved
-> IO ()
dumpClass cls = do
putStr "Class: "
dumpClass cls = do
putStr "Class: "
- B.putStrLn (this cls)
+ B.putStrLn (this
Class
cls)
putStrLn "Constants pool:"
putStrLn "Constants pool:"
- forM_ (M.assocs $ const
ant
Pool cls) $ \(i, c) ->
+ forM_ (M.assocs $ const
s
Pool cls) $ \(i, c) ->
putStrLn $ printf " #%d:\t%s" i (show c)
putStrLn "Methods:"
putStrLn $ printf " #%d:\t%s" i (show c)
putStrLn "Methods:"
- forM_ (
m
ethods cls) $ \m -> do
+ forM_ (
classM
ethods cls) $ \m -> do
putStr ">> Method "
B.putStr (methodName m)
print (methodSignature m)
putStr ">> Method "
B.putStr (methodName m)
print (methodSignature m)