projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-06-06 21:55:30 by andy]
[ghc-hetmet.git]
/
ghc
/
compiler
/
javaGen
/
Java.lhs
diff --git
a/ghc/compiler/javaGen/Java.lhs
b/ghc/compiler/javaGen/Java.lhs
index
1ad2cbc
..
578be9a
100644
(file)
--- 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
= 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]
| 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".
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.
type Name = String -- A class name or method etc,
-- at defintion time,
-- this generally not a qualified name.
+
data Lit
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
deriving Show
addModifier :: Modifier -> Decl -> Decl