From 0e54f14a6307bf2c6b6e04af215938244001cacb Mon Sep 17 00:00:00 2001
From: "Ilya V. Portnov" <i.portnov@compassplus.ru>
Date: Fri, 30 Sep 2011 14:04:18 +0600
Subject: [PATCH] Fix code generator.

---
 JVM/Generator.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.25.1