From cef4bc5f01c2ae66bd7c6170149ea30f9019559c Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 6 Jul 2016 12:55:14 +0200
Subject: Fix toString for fillI and similar instructions

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

(limited to 'ABC/Assembler.icl')

diff --git a/ABC/Assembler.icl b/ABC/Assembler.icl
index 656ea1a..d8e616a 100644
--- a/ABC/Assembler.icl
+++ b/ABC/Assembler.icl
@@ -32,8 +32,11 @@ where
 	cons :: ![Char] -> [Char]
 	cons [] = []
 	cons [c:cs]
-	| isUpper c = ['_':toLower c:cons cs]
-	| otherwise = [c            :cons cs]
+	| isUpper c
+		| isMember c ['IB'] && isEmpty cs   = [c]
+		| isMember c ['IB'] && hd cs == '_' = [c            :cons cs]
+		| otherwise                         = ['_':toLower c:cons cs]
+	| otherwise                             = [c            :cons cs]
 
 derive gPrint Statement
 
-- 
cgit v1.2.3