classpool: refactor, refactor, ...

[mate.git] / Mate / Types.hs

diff --git a/Mate/Types.hs b/Mate/Types.hs
index 130c2932d5b70548c4b3eca5a593965cd2cffe36..ec5b977b32def5b243d640f272106af54bce98cc 100644 (file)
--- a/Mate/Types.hs
+++ b/Mate/Types.hs
@@ -49,8 +49,9 @@ type FieldMap = M.Map B.ByteString Int32
 data ClassInfo = ClassInfo {
   clName :: B.ByteString,
   clFile :: Class Resolved,
-  clFieldBase :: Ptr Int32,
-  clFieldMap :: FieldMap }
+  clStaticMap  :: FieldMap,
+  clFieldMap :: FieldMap,
+  clInitDone :: Bool }
 
 data MethodInfo = MethodInfo {
   methName :: B.ByteString,