diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-08-07 19:42:35 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-08-07 19:42:35 -0700 |
| commit | b81426bb210ea5fca6d841e4dfeb38d83e1a6554 (patch) | |
| tree | c8f0f5c164dbf7d54eeb05246f23de38258d2382 /lib/csc/encoding.csc | |
| parent | 1f0227d03d7b15759b74544d2b210edd20be7da0 (diff) | |
| download | chromatopelma-b81426bb210ea5fca6d841e4dfeb38d83e1a6554.tar.zst | |
Misc test fixup in the compiler.
Diffstat (limited to 'lib/csc/encoding.csc')
| -rw-r--r-- | lib/csc/encoding.csc | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/csc/encoding.csc b/lib/csc/encoding.csc index 83258c8..aceedc8 100644 --- a/lib/csc/encoding.csc +++ b/lib/csc/encoding.csc @@ -175,11 +175,16 @@ (make-opcode w 15 (is-const? x) #f) (arg->le-bytes w dest) (arg->le-bytes w x)) - (('int<? dest x y) + (('lt dest x y) (make-opcode w 16 (is-const? x) (is-const? y)) (arg->le-bytes w dest) (arg->le-bytes w x) (arg->le-bytes w y)) + (('eq dest x y) + (make-opcode w 17 (is-const? x) (is-const? y)) + (arg->le-bytes w dest) + (arg->le-bytes w x) + (arg->le-bytes w y)) (_ (error "invalid opcode" opcode)))) |