From 4349838a315de8ac9ad51ca2e0fa6f80f24f9241 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 5 Mar 2023 19:47:49 +0100
Subject: Implement ap

---
 snug-clean/src/MIPS/MIPS32.dcl | 1 +
 snug-clean/src/MIPS/MIPS32.icl | 1 +
 2 files changed, 2 insertions(+)

(limited to 'snug-clean/src/MIPS')

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
-- 
cgit v1.2.3