From b81426bb210ea5fca6d841e4dfeb38d83e1a6554 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sun, 7 Aug 2022 19:42:35 -0700 Subject: Misc test fixup in the compiler. --- lib/csc/encoding.csc | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lib/csc/encoding.csc') 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)) - (('intle-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)))) -- cgit v1.3.1