shithub: femtolisp

Download patch

ref: e547019e603e4c3bc72117dd653662636a5cae29
parent: 16807df966dc78dc9f11355f1cf18c88dc7c1253
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sun Nov 10 20:24:16 EST 2024 

disassemble: remove an extra tab char at the beginning


--- a/compiler.lsp
+++ b/compiler.lsp
@@ -619,8 +619,6 @@
                                             "  ")
                                           (hex5 (- s 5)) ":  "
                                           inst " "))
-    (dotimes (xx lev) (princ "\t"))
-    ;(princ "maxstack " (ref-int32-LE code 0) "\n")
     (let ((i 4)
           (N (length code)))
       (while (< i N)
--- a/flisp.boot
+++ b/flisp.boot
@@ -198,10 +198,10 @@
   #fn(has?) #fn(put!))))))) #fn(table) #fn("8000n270015238071161:071151P:" #(member
   delete-duplicates))) delete-duplicates)
 	    disassemble #fn("?000\x891000.///\x8a1000I60O?14|282JD07001E53471504D:@30D422>82<230512405163:" #(disassemble
-  newline #fn("8000n320>DD62:" #(#fn(":000n220>?0421>?14EAK\x8022~423>r424F5162:" #(#fn(":000n10\\;36040[S3E07021514720O910KM63:73061:" #(princ
+  newline #fn("8000n320>DD62:" #(#fn("9000n220>?0421>?1422>r423F5162:" #(#fn(":000n10\\;36040[S3E07021514720O910KM63:73061:" #(princ
   "\n" disassemble print) print-val) #fn("<000n370921;3V04910El;3L04719217215152;3;04921182ML37023@4024751r5\x80512602765:" #(princ
   >= 1- " >" "  " hex5 ":  " " ") print-inst)
-  #fn("7000n1702161:" #(princ "\t")) #fn(":000n2D01L3E0420>2122>O735351@\x19/:" #(#fn(";000n170Ar4523907150@30D4E920K\x8022~4AKMz00423>061:" #(>
+  #fn(":000n2D01L3E0420>2122>O735351@\x19/:" #(#fn(";000n170Ar4523907150@30D4E920K\x8022~4AKMz00423>061:" #(>
   newline #fn("7000n1702161:" #(princ "\t"))
   #fn(">000n120021523\\0921A910r45349209327293191052G514910r4Mz10:20023523W0921A910K534920932931910GG514910KMz10:20024523V0921A910K5347526931910G51514910KMz10:20027523[0921A910r45347526729319105251514910r4Mz10:20028523r0921A910r25347526931910G5129524910KMz1047526931910G51514910KMz10:2002:523\xb50921A910r8A2;C70r4@30EM534752672931910525129524910r4Mz1047526729319105251514910r4Mz104A2;CX07529514752672931910525129524910r4Mz10:D:02<c3]0921A910r4534752672931910525129524910r4Mz10:2002=523d0921A910r2534752>7?910r,7@93191052g351524910r2Mz10:2002A523d0921A910r4534752>7?910r,7293191052g351524910r4Mz10:921A910E63:" #(#fn(memq)
   (loadv.l loadg.l setg.l) ref-int32-LE (loadv loadg setg)
@@ -210,7 +210,9 @@
   setc) " " (loadc.l setc.l optargs keyargs) keyargs brbound (jmp brf brt brne
 								  brnn brn) "@"
   hex5 ref-int16-LE (jmp.l brf.l brt.l brne.l brnn.l brn.l)))))
-  #fn(table-foldl) #fn("8000n382;I@041921AGQ;34040:" #()) Instructions))
+					       #fn(table-foldl)
+					       #fn("8000n382;I@041921AGQ;34040:" #())
+					       Instructions))
   #fn(length))))) #fn(function:code) #fn(function:vals)) disassemble)
 	    div #fn("8000n201k0EL;3C041EL;3404K;I504r/;I404EM:" #() div) emit
 	    #fn("G000|282Jb0120Q;3C040EGB;3:040EG<21Q3;00EG22_@:00E10EGPp@\xe2023124523A075082<52e1?2@30D426>271285251429>2712:5251412;C\\0822<d3=02=?14q?2@F0822>d3=02??14q?2@30O@30D412@C\\0822Ad3=02B?14q?2@F0822Cd3=02D?14q?2@30O@30D42E>0EGB3900EG<@30q0EG5240:" #(car