From c103d5f40aa218d9f82188136149f7b19431948e Mon Sep 17 00:00:00 2001 From: "Ilya V. Portnov" Date: Thu, 6 Oct 2011 15:48:38 +0600 Subject: [PATCH] minor formatting fixes. --- JVM/ClassFile.hs | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/JVM/ClassFile.hs b/JVM/ClassFile.hs index 343d956..e30eb27 100644 --- a/JVM/ClassFile.hs +++ b/JVM/ClassFile.hs @@ -207,22 +207,22 @@ type Pool stage = M.Map Word16 (Constant stage) -- | Generic .class file format data Class stage = Class { - magic :: Word32, -- ^ Magic value: 0xCAFEBABE + magic :: Word32, -- ^ Magic value: 0xCAFEBABE minorVersion :: Word16, majorVersion :: Word16, - constsPoolSize :: Word16, -- ^ Number of items in constants pool - constsPool :: Pool stage, -- ^ Constants pool itself - accessFlags :: AccessFlags stage, -- ^ See @JVM.Types.AccessFlag@ - thisClass :: Link stage B.ByteString, -- ^ Constants pool item index for this class - superClass :: Link stage B.ByteString, -- ^ --/-- for super class, zero for java.lang.Object - interfacesCount :: Word16, -- ^ Number of implemented interfaces - interfaces :: [Link stage B.ByteString], -- ^ Constants pool item indexes for implemented interfaces - classFieldsCount :: Word16, -- ^ Number of class fileds - classFields :: [Field stage], -- ^ Class fields - classMethodsCount :: Word16, -- ^ Number of class methods - classMethods :: [Method stage], -- ^ Class methods - classAttributesCount :: Word16, -- ^ Number of class attributes - classAttributes :: Attributes stage -- ^ Class attributes + constsPoolSize :: Word16, -- ^ Number of items in constants pool + constsPool :: Pool stage, -- ^ Constants pool itself + accessFlags :: AccessFlags stage, -- ^ See @JVM.Types.AccessFlag@ + thisClass :: Link stage B.ByteString, -- ^ Constants pool item index for this class + superClass :: Link stage B.ByteString, -- ^ --/-- for super class, zero for java.lang.Object + interfacesCount :: Word16, -- ^ Number of implemented interfaces + interfaces :: [Link stage B.ByteString], -- ^ Constants pool item indexes for implemented interfaces + classFieldsCount :: Word16, -- ^ Number of class fileds + classFields :: [Field stage], -- ^ Class fields + classMethodsCount :: Word16, -- ^ Number of class methods + classMethods :: [Method stage], -- ^ Class methods + classAttributesCount :: Word16, -- ^ Number of class attributes + classAttributes :: Attributes stage -- ^ Class attributes } deriving instance Eq (Class File) -- 2.25.1