From 59ca512ec8f099a7d4c8aa4392f939d1aa5aee5d Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sat, 27 Aug 2022 19:30:16 -0700 Subject: Implement multiple return values. --- lib/csc/encoding.csc | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lib/csc/encoding.csc') diff --git a/lib/csc/encoding.csc b/lib/csc/encoding.csc index 099beaf..11c0f5f 100644 --- a/lib/csc/encoding.csc +++ b/lib/csc/encoding.csc @@ -195,6 +195,10 @@ (make-opcode w 19 (is-const? l) #f) (arg->le-bytes w dest) (arg->le-bytes w l)) + (('assert-singleton dest l) + (make-opcode w 20 (is-const? l) #f) + (arg->le-bytes w dest) + (arg->le-bytes w l)) (_ (error "invalid opcode" opcode)))) -- cgit v1.3.1