From f3f43336bdcb7ad3217d6cfd021dd857a65470b1 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 28 Jul 2017 09:52:26 +0200
Subject: Use buildh instead of fillh

---
 Sil/Compile.icl | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/Sil/Compile.icl b/Sil/Compile.icl
index fdc2bf5..81196bf 100644
--- a/Sil/Compile.icl
+++ b/Sil/Compile.icl
@@ -295,8 +295,7 @@ where
 				tell [ 'ABC'.Annotation $ 'ABC'.DAnnot 0 []
 				     , 'ABC'.Jsr lab
 				     , 'ABC'.Annotation $ 'ABC'.OAnnot 0 []
-				     , 'ABC'.Create
-				     , 'ABC'.Raw "\tfillh e__predef_d_Unit 0 0"
+				     , 'ABC'.Raw "\tbuildh e__predef_d_Unit 0"
 				     , 'ABC'.Annotation $ 'ABC'.DAnnot 1 []
 				     , 'ABC'.Rtn
 				     ] *>
@@ -479,11 +478,9 @@ where
 		gen op
 	gen (Tuple i es) =
 		comment "Building tuple" *>
-		tell [ 'ABC'.Create ] *>
-		growStack {zero & asize=1} *>
 		mapM genToAStack (reverse es) *>
-		tell [ 'ABC'.Raw $ "\tfillh\t_Tuple\t" <+ i <+ "\t" <+ i ] *>
-		shrinkStack {zero & asize=i}
+		tell [ 'ABC'.Raw $ "\tbuildh\t_Tuple\t" <+ i ] *>
+		shrinkStack {zero & asize=i-1}
 	gen e=:(Field f e`)
 	| isTuple =
 		getType e` >>= \t=:(TTuple arity tes) ->
-- 
cgit v1.2.3