diff options
| author | Camil Staps | 2017-07-28 09:52:26 +0200 |
|---|---|---|
| committer | Camil Staps | 2017-07-28 09:52:26 +0200 |
| commit | f3f43336bdcb7ad3217d6cfd021dd857a65470b1 (patch) | |
| tree | ad31dc9b41670792635cabeca6e4d5c8ad85d229 /Sil | |
| parent | Cleanup (diff) | |
Use buildh instead of fillh
Diffstat (limited to 'Sil')
| -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) -> |