+ bb = hmap M.! bid
+
+ forceRegDump :: CodeGen e s ()
+ forceRegDump = do
+ push esi
+ mov esi (0x13371234 :: Word32)
+ mov esi (Addr 0)
+ pop esi
+
+ getCurrentOffset :: CodeGen e s Word32
+ getCurrentOffset = do
+ ep <- (fromIntegral . ptrToIntPtr) <$> getEntryPoint
+ offset <- fromIntegral <$> getCodeOffset
+ return $ ep + offset
+
+ emitInvoke :: Word16 -> Bool -> CodeGen e s (Maybe (Word32, TrapCause))
+ emitInvoke cpidx hasThis = do
+ let l = buildMethodID cls cpidx
+ newNamedLabel (show l) >>= defineLabel
+ -- like: call $0x01234567
+ calladdr <- emitSigIllTrap 5
+ let patcher reip = do
+ (entryAddr, _) <- liftIO $ getMethodEntry l
+ call (fromIntegral (entryAddr - (reip + 5)) :: NativeWord)
+ return reip
+ -- discard arguments on stack
+ let argcnt = ((if hasThis then 1 else 0) + methodGetArgsCount (methodNameTypeByIdx cls cpidx)) * ptrSize
+ when (argcnt > 0) (add esp argcnt)
+ -- push result on stack if method has a return value
+ when (methodHaveReturnValue cls cpidx) (push eax)
+ return $ Just (calladdr, StaticMethod patcher)
+
+ virtualCall :: Word16 -> Bool -> CodeGen e s (Maybe (Word32, TrapCause))
+ virtualCall cpidx isInterface = do
+ let mi@(MethodInfo methodname objname msig@(MethodSignature args _)) = buildMethodID cls cpidx
+ newNamedLabel (show mi) >>= defineLabel
+ -- get method offset for call @ runtime
+ let offset = if isInterface
+ then getInterfaceMethodOffset objname methodname (encode msig)
+ else getMethodOffset objname (methodname `B.append` encode msig)
+ let argsLen = genericLength args
+ -- objref lives somewhere on the argument stack
+ mov ebx (Disp (argsLen * ptrSize), esp)
+ when isInterface $
+ mov ebx (Disp 0, ebx) -- get method-table-ptr, keep it in ebx
+ -- get method-table-ptr (or interface-table-ptr)
+ mov eax (Disp 0, ebx)
+ -- make actual (indirect) call
+ calladdr <- getCurrentOffset
+ -- will be patched to this: call (Disp 0xXXXXXXXX, eax)
+ emitSigIllTrap 6
+ -- discard arguments on stack (`+1' for "this")
+ let argcnt = ptrSize * (1 + methodGetArgsCount (methodNameTypeByIdx cls cpidx))
+ when (argcnt > 0) (add esp argcnt)
+ -- push result on stack if method has a return value
+ when (methodHaveReturnValue cls cpidx) (push eax)
+ -- note, that "mi" has the wrong class reference here.
+ -- we figure that out at run-time, in the methodpool,
+ -- depending on the method-table-ptr
+ return $ Just (calladdr, VirtualCall isInterface mi offset)
+
+ emit'' :: (Int, J.Instruction) -> CodeGen e JpcNpcMap (Maybe (Word32, TrapCause))
+ emit'' (jpc, insn) = do
+ npc <- getCurrentOffset
+ jpcrpc <- getState
+ setState (BI.insert jpc npc jpcrpc)
+ newNamedLabel ("jvm_insn: " ++ show insn) >>= defineLabel >> emit' insn
+
+ emit' :: J.Instruction -> CodeGen e s (Maybe (Word32, TrapCause))
+ emit' (INVOKESPECIAL cpidx) = emitInvoke cpidx True
+ emit' (INVOKESTATIC cpidx) = emitInvoke cpidx False
+ emit' (INVOKEINTERFACE cpidx _) = virtualCall cpidx True
+ emit' (INVOKEVIRTUAL cpidx) = virtualCall cpidx False
+
+ emit' (PUTSTATIC cpidx) = do
+ pop eax
+ trapaddr <- getCurrentOffset
+ mov (Addr 0x00000000) eax -- it's a trap
+ return $ Just (trapaddr, StaticField $ buildStaticFieldID cls cpidx)
+ emit' (GETSTATIC cpidx) = do
+ trapaddr <- getCurrentOffset
+ mov eax (Addr 0x00000000) -- it's a trap
+ push eax
+ return $ Just (trapaddr, StaticField $ buildStaticFieldID cls cpidx)
+
+ emit' (GETFIELD x) = do
+ pop eax -- this pointer
+ -- like: 099db064 ff b0 e4 14 00 00 pushl 5348(%eax)
+ trapaddr <- emitSigIllTrap 6
+ let patcher reip = do
+ let (cname, fname) = buildFieldOffset cls x
+ offset <- liftIO $ fromIntegral <$> getFieldOffset cname fname
+ push32RelEax (Disp offset) -- get field
+ return reip
+ return $ Just (trapaddr, ObjectField patcher)
+ emit' (PUTFIELD x) = do
+ pop ebx -- value to write
+ pop eax -- this pointer
+ -- like: 4581fc6b 89 98 30 7b 00 00 movl %ebx,31536(%eax)
+ trapaddr <- emitSigIllTrap 6
+ let patcher reip = do
+ let (cname, fname) = buildFieldOffset cls x
+ offset <- liftIO $ fromIntegral <$> getFieldOffset cname fname
+ mov32RelEbxEax (Disp offset) -- set field
+ return reip
+ return $ Just (trapaddr, ObjectField patcher)
+
+ emit' (INSTANCEOF cpidx) = do
+ pop eax
+ -- place something like `mov edx $mtable_of_objref' instead
+ trapaddr <- emitSigIllTrap 4
+ push (0 :: Word32)
+ let patcher reax reip = do
+ emitSigIllTrap 4
+ let classname = buildClassID cls cpidx
+ check <- liftIO $ isInstanceOf (fromIntegral reax) classname
+ if check
+ then push (1 :: Word32)
+ else push (0 :: Word32)
+ return (reip + 4)
+ return $ Just (trapaddr, InstanceOf patcher)
+ emit' (NEW objidx) = do
+ let objname = buildClassID cls objidx
+ -- place something like `push $objsize' instead
+ trapaddr <- emitSigIllTrap 5
+ callMalloc
+ -- 0x13371337 is just a placeholder; will be replaced with mtable ptr
+ mov (Disp 0, eax) (0x13371337 :: Word32)
+ mov (Disp 4, eax) (0x1337babe :: Word32)
+ let patcher reip = do
+ objsize <- liftIO $ getObjectSize objname
+ push32 objsize
+ callMalloc
+ mtable <- liftIO $ getMethodTable objname
+ mov (Disp 0, eax) mtable
+ mov (Disp 4, eax) (0x1337babe :: Word32)
+ return reip
+ return $ Just (trapaddr, NewObject patcher)
+
+ emit' ATHROW = do
+ pop eax
+ push eax
+ mov eax (Disp 0, eax)
+ trapaddr <- emitSigIllTrap 2
+ let patcher :: TrapPatcherEaxEsp
+ patcher reax resp reip = do
+ liftIO $ printfJit $ printf "reip: %d\n" (fromIntegral reip :: Word32)
+ liftIO $ printfJit $ printf "reax: %d\n" (fromIntegral reax :: Word32)
+ (_, jnmap) <- liftIO $ getMethodEntry miThis
+ liftIO $ printfJit $ printf "size: %d\n" (BI.size jnmap)
+ liftIO $ printfJit $ printf "jnmap: %s\n" (show $ BI.toList jnmap)
+ -- TODO: (-4) is a hack (due to the insns above)
+ let jpc = fromIntegral (jnmap BI.!> (fromIntegral reip - 4))
+ let exceptionmap = rawExcpMap method
+ liftIO $ printfJit $ printf "exmap: %s\n" (show $ M.toList exceptionmap)
+ let key =
+ case find f $ M.keys exceptionmap of
+ Just x -> x
+ Nothing -> error "exception: no handler found. (TODO1)"
+ where
+ f (x, y) = jpc >= x && jpc <= y
+ liftIO $ printfJit $ printf "exception: key is: %s\n" (show key)
+ let handlerJPCs = exceptionmap M.! key
+ let f (x, y) = do x' <- getMethodTable x; return (fromIntegral x', y)
+ handlers <- liftIO $ mapM f handlerJPCs
+ liftIO $ printfJit $ printf "exception: handlers: %s\n" (show handlers)
+ let handlerJPC =
+ case find ((==) reax . fst) handlers of
+ Just x -> x
+ Nothing -> error "exception: no handler found (TODO2)"
+ let handlerNPC = jnmap BI.! (fromIntegral $ snd handlerJPC)
+ liftIO $ printfJit $ printf "exception: handler at: 0x%08x\n" handlerNPC
+ emitSigIllTrap 2
+ return $ fromIntegral handlerNPC
+ return $ Just (trapaddr, ThrowException patcher)
+