diff options
| author | Camil Staps | 2023-03-05 19:47:49 +0100 |
|---|---|---|
| committer | Camil Staps | 2023-03-05 19:47:49 +0100 |
| commit | 4349838a315de8ac9ad51ca2e0fa6f80f24f9241 (patch) | |
| tree | d030b1fee063cdef58c1e4cf294e3444f167e721 /snug-clean/src/MIPS | |
| parent | Refactor, return MaybeError from lookupFunction and lookupConstructor (diff) | |
Implement ap
Diffstat (limited to 'snug-clean/src/MIPS')
| -rw-r--r-- | snug-clean/src/MIPS/MIPS32.dcl | 1 | ||||
| -rw-r--r-- | snug-clean/src/MIPS/MIPS32.icl | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/snug-clean/src/MIPS/MIPS32.dcl b/snug-clean/src/MIPS/MIPS32.dcl index 6e5ff44..83f15cb 100644 --- a/snug-clean/src/MIPS/MIPS32.dcl +++ b/snug-clean/src/MIPS/MIPS32.dcl @@ -10,6 +10,7 @@ from StdOverloaded import class toString | Instr !Instruction | RawByte !Int | RawWord !Int + | RawWordLabel !Label | RawAscii !String instance toString Line diff --git a/snug-clean/src/MIPS/MIPS32.icl b/snug-clean/src/MIPS/MIPS32.icl index ca5cbee..655219d 100644 --- a/snug-clean/src/MIPS/MIPS32.icl +++ b/snug-clean/src/MIPS/MIPS32.icl @@ -13,6 +13,7 @@ where toString (Instr i) = "\t" +++ toString i toString (RawByte i) = "\t.byte\t" +++ toString i toString (RawWord i) = "\t.word\t" +++ toString i + toString (RawWordLabel l) = "\t.word\t" +++ l toString (RawAscii s) = concat3 "\t.ascii\t\"" s "\"" // TODO: escaping instance toString Instruction |