diff options
Diffstat (limited to 'Sil')
| -rw-r--r-- | Sil/Compile.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Sil/Compile.icl b/Sil/Compile.icl index 3f1059f..2cc6e01 100644 --- a/Sil/Compile.icl +++ b/Sil/Compile.icl @@ -360,7 +360,7 @@ where updateReturnFrame :: TypeSize (Int, Int) -> Gen () updateReturnFrame {asize=0,bsize=0} _ = nop updateReturnFrame {bsize=0} (aso, _) = tell ['ABC'.Update_a 0 (aso-1), 'ABC'.Pop_a 1] // TODO should depend on return type - updateReturnFrame _ (_, bso) = tell ['ABC'.Update_b 0 (bso-1), 'ABC'.Pop_b 1] // TODO should depend on return type + updateReturnFrame _ (_, bso) = tell ['ABC'.Update_b 0 (bso-1)] // TODO should depend on return type gen (Return Nothing) = comment "Return" *> cleanup *> |