New WHEN/IS for hosted compiler

2026-04-21 22:17:15 +00:00 · 2018-03-05 08:58:21 -08:00
parent 3ee19e86f6
commit 6de120ec89
4 changed files with 42 additions and 47 deletions
@@ -171,11 +171,20 @@ def emit_daw(tag, offset)#0
    emit_byte($7E)
    emit_addr(tag, offset)
 end
-def emit_brne(tag)#0
+def emit_select(tag)#0
    emit_pending_seq
    emit_byte($52)
    emit_reladdr(tag)
 end
+def emit_caseblock(cnt, oflist, taglist)#0
+    byte i
+    
+    emit_byte(cnt)
+    for i = 0 to cnt-1
+        emit_word(oflist=>[i])
+        emit_reladdr(taglist=>[i])
+    next
+end
 def emit_branch(tag)#0
    emit_pending_seq
    emit_byte($50)