projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use Data.Map.Map instead of Data.Array.Array for constants pool.
[hs-java.git]
/
JVM
/
Dump.hs
diff --git
a/JVM/Dump.hs
b/JVM/Dump.hs
index a5b2d196b27ee05ca4b74e24926ef0412f74458f..2012c8b94b5533eb706b93f63ad3b44c5336beca 100644
(file)
--- a/
JVM/Dump.hs
+++ b/
JVM/Dump.hs
@@
-2,7
+2,7
@@
module JVM.Dump where
import Control.Monad
module JVM.Dump where
import Control.Monad
-import
Data.Array
+import
qualified Data.Map as M
import qualified Data.ByteString.Lazy as B
import Text.Printf
import qualified Data.ByteString.Lazy as B
import Text.Printf
@@
-15,7
+15,7
@@
dumpClass cls = do
putStr "Class: "
B.putStrLn (this cls)
putStrLn "Constants pool:"
putStr "Class: "
B.putStrLn (this cls)
putStrLn "Constants pool:"
- forM_ (assocs $ constantPool cls) $ \(i, c) ->
+ forM_ (
M.
assocs $ constantPool cls) $ \(i, c) ->
putStrLn $ printf " #%d:\t%s" i (show c)
putStrLn "Methods:"
forM_ (methods cls) $ \m -> do
putStrLn $ printf " #%d:\t%s" i (show c)
putStrLn "Methods:"
forM_ (methods cls) $ \m -> do