diff options
| author | andy <unknown> | 2000-06-06 21:55:30 +0000 |
|---|---|---|
| committer | andy <unknown> | 2000-06-06 21:55:30 +0000 |
| commit | 048b88542b8df8043a02ef2c04ab59b7ba271737 (patch) | |
| tree | 22ed3f5b6649f546e6b63b1ad0c662fbb28063b6 /ghc/compiler/javaGen/Java.lhs | |
| parent | 9a2de9c08132edca3a63011afd28009408188a1c (diff) | |
| download | haskell-048b88542b8df8043a02ef2c04ab59b7ba271737.tar.gz | |
[project @ 2000-06-06 21:55:30 by andy]
More wibbles towards compiling data constructors and unboxing correctly.
Diffstat (limited to 'ghc/compiler/javaGen/Java.lhs')
| -rw-r--r-- | ghc/compiler/javaGen/Java.lhs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ghc/compiler/javaGen/Java.lhs b/ghc/compiler/javaGen/Java.lhs index 1ad2cbcd34..578be9a89b 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 |