X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=blobdiff_plain;f=Mate%2FX86CodeGen.hs;h=b4b72b179c81b32e5ce6df152971fc3504f96283;hp=d6198796991290970d7c04dcaf3d3b49291b06e1;hb=e956c113f38ae5cf78d79cf00de776f0331a332c;hpb=aa0c59209b67bb291a5baa5e944beae0e29722cd

diff --git a/Mate/X86CodeGen.hs b/Mate/X86CodeGen.hs
index d619879..b4b72b1 100644
--- a/Mate/X86CodeGen.hs
+++ b/Mate/X86CodeGen.hs
@@ -272,6 +272,7 @@ emitFromBB method sig cls hmap =  do
     emit (LDC2 x) = do
         value <- case constsPool cls M.! x of
                       (CString s) -> liftIO $ getUniqueStringAddr s
+                      (CInteger i) -> liftIO $ return i
                       e -> error $ "LDCI... missing impl.: " ++ show e
         push value
     emit (GETFIELD x) = do