Create working PoC of interpreter

2021-11-02 20:55:53 +01:00
parent 0b419650f0
commit e263617a2c
4 changed files with 51 additions and 3 deletions
--- a/app/VirtualMachine.hs
+++ b/app/VirtualMachine.hs
@@ -13,7 +13,7 @@ data VM = VM { pc :: Int
             } deriving (Show, Eq)

 empty :: VM
-empty = VM { pc     = -1
+empty = VM { pc     = 0
           , fp     = -1
           , stack  = S.empty
           , halt   = False