gnuclasspath is going crazy now o_O
mtable <- liftIO $ getMethodTable objname
mov (Disp 0, eax) mtable
emit (CHECKCAST _) = nop -- TODO(bernhard): ...
mtable <- liftIO $ getMethodTable objname
mov (Disp 0, eax) mtable
emit (CHECKCAST _) = nop -- TODO(bernhard): ...
+ -- TODO(bernhard): ...
+ emit (INSTANCEOF _) = do
+ pop eax
+ push (1 :: Word32)
emit ATHROW = nop -- TODO(bernhard): ...
emit I2C = do
pop eax
emit ATHROW = nop -- TODO(bernhard): ...
emit I2C = do
pop eax