ref: 6bfa81bb6a4343f3efdf6d086d404c36982a80fd
parent: c1979c1c6dab00b66241b46e48e899603af2374d
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sun Feb 9 02:10:43 EST 2025
instructions table: store bytes from the start
binary files a/boot/flisp.boot.builtin b/boot/flisp.boot.builtin differ
--- a/src/compiler.lsp
+++ b/src/compiler.lsp
@@ -98,16 +98,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))
--- 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))