diff options
| author | Camil Staps | 2023-01-30 20:02:11 +0100 |
|---|---|---|
| committer | Camil Staps | 2023-01-30 20:02:11 +0100 |
| commit | 0e11c3ee8fa56ba19010b3eba18d78b5e84672ec (patch) | |
| tree | 7d634661febf15b41f08756cd68f740fc80ea641 /snug-clean/src | |
| parent | Add stack simulator for compilation (diff) | |
Align on double words
Diffstat (limited to 'snug-clean/src')
| -rw-r--r-- | snug-clean/src/Snug/Compile/Simulate.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/snug-clean/src/Snug/Compile/Simulate.icl b/snug-clean/src/Snug/Compile/Simulate.icl index d1d65ac..9f09467 100644 --- a/snug-clean/src/Snug/Compile/Simulate.icl +++ b/snug-clean/src/Snug/Compile/Simulate.icl @@ -83,7 +83,7 @@ storeStackValue (SVRegOffset reg offset) doffset dreg = add buildCons :: !Label !Int -> Simulator () buildCons cons nargs = - write_heap (SVImmediate (Address 2 cons)) >>= \addr -> + write_heap (SVImmediate (Address 4 cons)) >>= \addr -> mapM_ (\_ -> pop >>= write_heap) [1..nargs] >>| push addr |