From: Ilya V. Portnov <i.portnov@compassplus.ru>
Date: Fri, 30 Sep 2011 08:04:18 +0000 (+0600)
Subject: Fix code generator.
X-Git-Tag: v0.3.2~40
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=commitdiff_plain;h=0e54f14a6307bf2c6b6e04af215938244001cacb

Fix code generator.
---

diff --git a/JVM/Generator.hs b/JVM/Generator.hs
index 9db24e6..6291b06 100644
--- 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