ref: c19d6c213ddc2cffce3d5345bdf18dfb8be5bb55
parent: 7d392c61eb5272c97fbf6cff1b1b487662f9164f
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Tue Feb 18 10:16:30 EST 2025
disassemble: fix the original issue when a switch to Instructions being bytes was made
binary files a/boot/flisp.boot.builtin b/boot/flisp.boot.builtin differ
--- a/src/compiler.lsp
+++ b/src/compiler.lsp
@@ -97,15 +97,15 @@
(set! i (+ i 2)))
(begin
(io-write bcode
- (byte (get Instructions
- (if long?
- (case vi
- (jmp 'jmp.l)
- (brne 'brne.l)
- (brnn 'brnn.l)
- (brn 'brn.l)
- (else vi))
- vi))))
+ (get Instructions
+ (if long?
+ (case vi
+ (jmp 'jmp.l)
+ (brne 'brne.l)
+ (brnn 'brnn.l)
+ (brn 'brn.l)
+ (else vi))
+ vi)))
(set! i (+ i 1))
(set! nxt (and (< i n) (aref v i)))
(cond ((memq vi '(jmp brne brnn brn))
@@ -779,7 +779,7 @@
(while (< i N)
; find key whose value matches the current byte
(let ((inst (table-foldl (λ (k v z)
- (or z (and (eq? v (aref code i))
+ (or z (and (= v (aref code i))
k)))
nil Instructions)))
(if (> i 0) (newline))
--- a/tools/gen.lsp
+++ b/tools/gen.lsp
@@ -126,7 +126,7 @@
builtins-doc)
(io-write builtins-doc "\n")))
docs)
- (put! e lop i)
+ (put! e lop (byte i))
(when argc
(put! cl cop (list lop argc))
(when (and (number? argc) (>= argc 0))