X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FUtilities.hs;h=4ede7ba61b0779871b7b28ca3e04a769fb299b8f;hb=15833bb85e8b1b82f30024ff7261a208327ceb32;hp=7a75466e9af87e8c8f1ee0b7051198779e3c7efc;hpb=35124f75aedd2970b59a5b57bff250efbb04a965;p=mate.git

diff --git a/Mate/Utilities.hs b/Mate/Utilities.hs
index 7a75466..4ede7ba 100644
--- a/Mate/Utilities.hs
+++ b/Mate/Utilities.hs
@@ -29,9 +29,13 @@ buildStaticFieldID cls idx = StaticFieldInfo rc (ntName fnt)
   where (CField rc fnt) = (constsPool cls) M.! idx
 
 buildFieldOffset :: Class Resolved -> Word16 -> (B.ByteString, B.ByteString)
-buildFieldOffset cls idx = (thisClass cls, ntName fnt)
+buildFieldOffset cls idx = (rc, ntName fnt)
   where (CField rc fnt) = (constsPool cls) M.! idx
 
+buildClassID :: Class Resolved -> Word16 -> B.ByteString
+buildClassID cls idx = cl
+  where (CClass cl) = (constsPool cls) M.! idx
+
 methodGetArgsCount :: Class Resolved -> Word16 -> Word32
 methodGetArgsCount cls idx = fromIntegral $ length args
   where