diff options
| -rw-r--r-- | Sil/Compile.icl | 9 |
1 files 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) -> |