msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

womp (no deepeval)

Browse Source
This commit is contained in:
crumbtoo
2023-12-07 12:05:48 -07:00
parent 791c5f6478
commit c31d12bde8
2 changed files with 9 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/GM.hs
View File

@@ -168,8 +168,8 @@ step st = case head (st ^. gmCode) of
caseJumpI :: [(Tag, Code)] -> GmState
caseJumpI as = st
& advanceCode
& gmCode %~ (i'++)
& advanceCode
& gmCode %~ (i'++)
where
h = st ^. gmHeap
s = st ^. gmStack
@@ -184,6 +184,7 @@ step st = case head (st ^. gmCode) of
& advanceCode
& gmStack .~ s'
& gmHeap .~ h'
& gmStats . stsAllocations %~ succ
where
(as,s) = splitAt n (st ^. gmStack)
s' = a:s
@@ -207,6 +208,7 @@ step st = case head (st ^. gmCode) of
& gmStack %~ (a:)
& gmEnv .~ m'
& gmHeap .~ h'
& gmStats . stsAllocations %~ succ
where
s = st ^. gmStack
m = st ^. gmEnv
@@ -397,10 +399,10 @@ step st = case head (st ^. gmCode) of
& gmStack %~ (f:)
NGlobal n _
| k <= n -> traceWith (render . showState) $ st
& gmCode .~ i
& gmStack .~ s'
& gmDump .~ d
| k <= n -> st
& gmCode .~ i
& gmStack .~ s'
& gmDump .~ d
where
as = st ^. gmStack
s' = last as : s
@@ -473,6 +475,7 @@ boxInt :: GmState -> Int -> GmState
boxInt st n = st
& gmHeap .~ h'
& gmStack %~ (a:)
& gmStats . stsAllocations %~ succ
where
h = st ^. gmHeap
(h',a) = alloc h (NNum n)