emit (INSTANCEOF _) = do
pop eax
push (1 :: Word32)
- emit ATHROW = nop -- TODO(bernhard): ...
+ emit ATHROW = do -- TODO(bernhard): ...
+ emit32 (0xffffffff :: Word32)
emit I2C = do
pop eax
and eax (0x000000ff :: Word32)
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