diff options
Diffstat (limited to 'ABC/Assembler.icl')
| -rw-r--r-- | ABC/Assembler.icl | 5 |
1 files changed, 5 insertions, 0 deletions
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 |