- cArgs x = (8 + 4 * (fromIntegral x))
- cArgs_ x = (8 + 4 * case x of I0 -> 0; I1 -> 1; I2 -> 2; I3 -> 3)
+ -- for locals we use a different storage
+ cArgs :: Word8 -> Word32
+ cArgs x = if (x' >= thisMethodArgCnt)
+ -- TODO(bernhard): maybe s/(-4)/(-8)/
+ then fromIntegral $ (-4) * (x' - thisMethodArgCnt + 1)
+ else 8 + (4 * x')
+ where x' = fromIntegral x
+
+ cArgs_ :: IMM -> Word32
+ cArgs_ x = cArgs $ case x of I0 -> 0; I1 -> 1; I2 -> 2; I3 -> 3
+
+ thisMethodArgCnt :: Word32
+ thisMethodArgCnt = fromIntegral $ length args
+ where
+ (Just m) = lookupMethod method cls
+ (MethodSignature args _) = methodSignature m