diff options
author | Tom Smeding <tom.smeding@gmail.com> | 2019-04-23 23:31:19 +0200 |
---|---|---|
committer | Tom Smeding <tom.smeding@gmail.com> | 2019-04-23 23:31:19 +0200 |
commit | 19260ae02f1447ccd382b5c278cc5d1f22d004b3 (patch) | |
tree | db2c143bc29c1a8a456db103b550ecd52c7a81e2 /VM.hs | |
parent | 607d918e9645cb9ea101515aae003a8d1d9fe8a7 (diff) |
Possibly working lowering to isa-with-infinite-regs
Diffstat (limited to 'VM.hs')
-rw-r--r-- | VM.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -77,6 +77,7 @@ vmRunInstr info@(Info bbmap gfds datas) state@(State tmap (args, closure)) (dest obj -> error $ "VM: Cannot call non-closure object: " ++ show obj IAllocClo name clrefs -> return (assignRef state dest (RVClosure name (map (findRef tmap) clrefs))) IDiscard _ -> return state + IFunctionEntry -> return state vmRunTerm :: Info -> State -> Terminator -> IO (RunValue, State) vmRunTerm info@(Info bbmap _ _) state@(State tmap _) term = case term of |