diff options
| author | Camil Staps | 2017-07-17 21:47:36 +0000 |
|---|---|---|
| committer | Camil Staps | 2017-07-17 21:47:36 +0000 |
| commit | 7d71454cac74cc6dab8c3b70d8bd3b5420d658cd (patch) | |
| tree | c0263d5435b2e7d69aa9a67aca68d5b3e5e14705 /ABC/Assembler.icl | |
| parent | Fix toString for fillI and similar instructions (diff) | |
Add <<< for Assembler and Statement
Diffstat (limited to 'ABC/Assembler.icl')
| -rw-r--r-- | ABC/Assembler.icl | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/ABC/Assembler.icl b/ABC/Assembler.icl index d8e616a..29e2d5b 100644 --- a/ABC/Assembler.icl +++ b/ABC/Assembler.icl @@ -9,9 +9,18 @@ import ABC.Misc instance toString Assembler where toString [] = "" - toString [stm=:(Label l):r] = stm <+ "\n" <+ r + toString [stm=:(Label l):r] = stm <+ "\r\n" <+ r toString [stm=:(Descriptor _ _ _ _):r] = toString r - toString [stm :r] = "\t" <+ stm <+ "\n" <+ r + toString [stm :r] = "\t" <+ stm <+ "\r\n" <+ r + +instance <<< Assembler +where + <<< f [] = f + <<< f [stm=:(Label l):r] = f <<< stm <<< "\r\n" <<< r + <<< f [stm=:(Descriptor _ _ _ _):r] = f <<< r + <<< f [stm :r] = f <<< "\t" <<< stm <<< "\r\n" <<< r + +instance <<< Statement where <<< f st = f <<< toString st generic gPrint a :: !a -> [Char] gPrint{|Int|} x = fromString (toString x) |