diff options
| author | andy <unknown> | 2000-06-12 06:01:03 +0000 |
|---|---|---|
| committer | andy <unknown> | 2000-06-12 06:01:03 +0000 |
| commit | 4d0f4a6957c00b3e54c2d468feb3ecf3e00e469e (patch) | |
| tree | a942b822fb4803baf29b2203a41c080d2d3aa64a /ghc/compiler/javaGen/PrintJava.lhs | |
| parent | 07ac1f9fe37e35c5564524ab79ba643f776df422 (diff) | |
| download | haskell-4d0f4a6957c00b3e54c2d468feb3ecf3e00e469e.tar.gz | |
[project @ 2000-06-12 06:01:03 by andy]
Commiting version of STG -> GOO that seems to compile PrelBase successfully.
Many other wibbles; esp. String handling.
Diffstat (limited to 'ghc/compiler/javaGen/PrintJava.lhs')
| -rw-r--r-- | ghc/compiler/javaGen/PrintJava.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/compiler/javaGen/PrintJava.lhs b/ghc/compiler/javaGen/PrintJava.lhs index 02118da3ce..0db596d489 100644 --- a/ghc/compiler/javaGen/PrintJava.lhs +++ b/ghc/compiler/javaGen/PrintJava.lhs @@ -179,6 +179,8 @@ expr = \e -> ; Access e n -> expr e <> text "." <> name n ; Assign l r -> assign (expr l) r ; New n es ds -> new (typ n) es (maybeClass ds) + ; Raise n es -> text "raise" <+> text n + <+> parens (hsep (punctuate comma (map expr es))) ; Call e n es -> call (expr e) (name n) es ; Op e1 o e2 -> op e1 o e2 ; InstanceOf e t -> expr e <+> text "instanceof" <+> typ t @@ -219,7 +221,7 @@ literal = \l -> case l of { IntLit i -> text (show i) ; CharLit c -> text (show c) - ; StringLit s -> text (show s) + ; StringLit s -> text ("\"" ++ s ++ "\"") -- strings are already printable } maybeClass Nothing = Nothing |