X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FjavaGen%2FJava.lhs;fp=ghc%2Fcompiler%2FjavaGen%2FJava.lhs;h=578be9a89b0905cee28d7ab0e41fbacef7ab6b63;hb=048b88542b8df8043a02ef2c04ab59b7ba271737;hp=1ad2cbcd342757fef4d510ec3413400207645dca;hpb=9a2de9c08132edca3a63011afd28009408188a1c;p=ghc-hetmet.git

diff --git a/ghc/compiler/javaGen/Java.lhs b/ghc/compiler/javaGen/Java.lhs
index 1ad2cbc..578be9a 100644
--- a/ghc/compiler/javaGen/Java.lhs
+++ b/ghc/compiler/javaGen/Java.lhs
@@ -58,7 +58,7 @@ data Expr
   = Var Name Type
   | Literal Lit Type
   | Cast Type Expr
-  | Access Expr Name
+  | Access Expr Name		-- perhaps: Access Expr Var?
   | Assign Expr Expr
   | InstanceOf Expr Type
   | Call Expr Name [Expr]
@@ -99,17 +99,17 @@ type Exception   = TypeName	-- A class name that must be an exception.
 
 type TypeName    = String	-- a fully qualified type name
 				-- like "java.lang.Object".
+				-- has type "Type <the name>"
 
 type Name        = String	-- A class name or method etc, 
 				-- at defintion time,
 				-- this generally not a qualified name.
 
+
 data Lit
-  = IntLit Int		-- Boxed
-  | UIntLit Int		-- Unboxed
-  | CharLit Char	-- Boxed
-  | UCharLit Char	-- Unboxed
-  | StringLit String
+  = IntLit Integer	-- unboxed
+  | CharLit Char	-- unboxed
+  | StringLit String	-- java string
   deriving Show
 
 addModifier :: Modifier -> Decl -> Decl