dane/scm-to-vm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug, logand arg 2

Browse Source
This commit is contained in:
Dane Johnson 2025-08-22 19:09:24 -05:00
parent f91fa39aef
commit 03fa8d4370
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scmvm/vm.scm
View File

@ -164,7 +164,7 @@
(define ram-word-set! (cute vm-memory-set! vm <> <>)) (define ram-word-set! (cute vm-memory-set! vm <> <>))
(define debugger (vm-debugger vm)) (define debugger (vm-debugger vm))
(define exit? #f) (define exit? #f)
(define (jump x) (vm-pc-set! vm x)) (define (jump x) (vm-pc-set! vm (logand #x2fffffff x)))
(define (fetch-byte) (define (fetch-byte)
(let ([byte (ram-byte-ref (vm-pc vm))]) (let ([byte (ram-byte-ref (vm-pc vm))])
(vm-pc-set! vm (+ (vm-pc vm) 1)) (vm-pc-set! vm (+ (vm-pc vm) 1))