From bfd43976b9afa83b7625e9c2491b21af3d611982 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 18 Jul 2017 08:58:14 +0000
Subject: Raw annotations

---
 ABC/Assembler.icl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'ABC/Assembler.icl')

diff --git a/ABC/Assembler.icl b/ABC/Assembler.icl
index 087945d..2e80a05 100644
--- a/ABC/Assembler.icl
+++ b/ABC/Assembler.icl
@@ -32,6 +32,11 @@ where
 	printAnnot :: Annotation -> String
 	printAnnot (DAnnot a bs) = ".d " <+ a <+ " " <+ length bs <+ " " <+ types bs
 	printAnnot (OAnnot a bs) = ".o " <+ a <+ " " <+ length bs <+ " " <+ types bs
+	printAnnot (RawAnnot s)  = foldl (+++) "." (intersperse " " s)
+	where
+		intersperse g []     = []
+		intersperse g [x]    = [x]
+		intersperse g [x:xs] = [x:g:intersperse g xs]
 
 	types :: ([BasicType] -> [Char])
 	types = map toC
-- 
cgit v1.2.3