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

Atomic cps operations (ints lol)

Browse Source
This commit is contained in:
Dane Johnson
2025-09-08 19:05:25 -05:00
parent 883ee645c4
commit 5915c42fe3
3 changed files with 28 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tests.scm
View File

@@ -1,8 +1,9 @@
(use-modules (d- test)
(scmvm assembler)
(scmvm language assembly)
(scmvm vm)
(scmvm debugger)
(scmvm language assembly)
(scmvm language cps)
(rnrs bytevectors)
(rnrs io ports)
((scheme base)
@@ -166,3 +167,13 @@
(debugger-continue my-debugger)
(assert-equal 23 (vm-pc my-vm)) ;; continue stops stepping
))
(define-test-suite "cps"
(define-test "atomics"
(define asm (make-assembler))
(compile-cps asm '(1))
(assert-equal 1 (bytevector-u32-native-ref (assembler-buf asm) 0)))
(define-test "atomics"
(define asm (make-assembler))
(compile-cps asm '(1))
(assert-equal 1 (bytevector-u32-native-ref (assembler-buf asm) 0))))