Fix code generator.

[hs-java.git] / JVM / Generator.hs

diff --git a/JVM/Generator.hs b/JVM/Generator.hs
index 9db24e66cf5b5e9f69b93cc11c955738f0324f60..6291b068fcc4322d09068f99b4e556a93d686f52 100644 (file)
--- a/JVM/Generator.hs
+++ b/JVM/Generator.hs
@@ -38,7 +38,7 @@ addItem :: Constant -> Generate Word16
 addItem c = do
   pool <- St.gets currentPool
   case lookupPool c pool of
-    Just i -> return i
+    Just i -> return (i+1)
     Nothing -> do
       let (pool', i) = appendPool c pool
       st <- St.get