about summary refs log tree commit diff
diff options
context:
space:
mode:
authorIrene Knapp <ireneista@irenes.space>2026-10-04 21:42:42 -0700
committerIrene Knapp <ireneista@irenes.space>2026-10-04 21:42:42 -0700
commit0ce13955322d1622ab6e1ee2f78809198347fd17 (patch)
tree539bc6f4823814906501d23d677e25e5c5098af5
parent03253e6516e7b2daccd46731e6f4cd72ca18ddfd (diff)
fix comment position in the boot-source dictionary entry header
Force-Push: yes
Change-Id: I94592083435e024d9a87122f4d5529cdb98f8e06
-rw-r--r--compilation/execution.e7
-rw-r--r--evoke.hex42
2 files changed, 26 insertions, 23 deletions
diff --git a/compilation/execution.e b/compilation/execution.e
index 01f3b68..b12cfc6 100644
--- a/compilation/execution.e
+++ b/compilation/execution.e
@@ -706,10 +706,11 @@
   ~ : valiantly attempted.
   ~ : blank-line
   ~ : indent
-  3unroll pack64 ~ : 8 #-- (previous entry pointer)
+  3unroll pack64 ~ : -8 #-- (previous entry pointer)
   ~ : 1 #-- (entry flags)
   0x80 pack8
-  ~ : 2 bidirectional-null-terminated entry name
+  ~ : bidirectional-null-terminated entry name
+  ~ : 2 adjust-length
   0 pack8
   ~ (output buffer start, input string pointer, output point)
 
@@ -718,7 +719,7 @@
   ~ string's length and use it for an appropriate adjustment.
   dup stringlen
   ~ : provide-data
-  ~ : data-adjust-length
+  ~ : 1 data-adjust-length
   drop
   ~ : 2 suppress
   packstring
diff --git a/evoke.hex b/evoke.hex
index 03252f2..644718a 100644
--- a/evoke.hex
+++ b/evoke.hex
@@ -49,8 +49,8 @@
   00 00 00 08 00 00 00 00           ~ *virtual address
   00 00 00 00 00 00 00 00           ~ physical address (ignored)
 
-  08 9e 0a 00 00 00 00 00           ~ *size in file
-  08 9e 0a 00 00 00 00 00           ~ *size in memory
+  20 9e 0a 00 00 00 00 00           ~ *size in file
+  20 9e 0a 00 00 00 00 00           ~ *size in memory
 
   00 00 00 00 00 00 00 00           ~ segment alignment
 
@@ -67096,11 +67096,10 @@
 ~   Making this readable in the hex dump is no small task, but has been
 ~ valiantly attempted.
 
-  78 61 05 00 00 00 00 00
+  78 61 05 00 00 00 00 00           ~                     (previous entry pointer)
   80                                ~                     (entry flags)
-  00 62                             ~ bidirectional-null-terminated entry name
-  6f 6f 74 2d 73                    ~                     (previous entry pointer)
-  6f 75 72 63 65 00
+  ~ bidirectional-null-terminated entry name
+  00 62 6f 6f 74 2d 73 6f 75 72 63 65 00
   00 00                             ~                     (alignment padding)
   ~ label boot-source at offset 0x00000000000564b8 is here.
 
@@ -111334,11 +111333,11 @@
   ~ "  ~ : indent"
   20 20 7e 20 3a 20 69 6e 64 65 6e 74 0a
 
-  ~ "  3unroll pack64 ~ : 8 #-- (previous entry pointer)"
+  ~ "  3unroll pack64 ~ : -8 #-- (previous entry pointer)"
   20 20 33 75 6e 72 6f 6c 6c 20 70 61 63 6b 36 34
-  20 7e 20 3a 20 38 20 23 2d 2d 20 28 70 72 65 76
-  69 6f 75 73 20 65 6e 74 72 79 20 70 6f 69 6e 74
-  65 72 29 0a
+  20 7e 20 3a 20 2d 38 20 23 2d 2d 20 28 70 72 65
+  76 69 6f 75 73 20 65 6e 74 72 79 20 70 6f 69 6e
+  74 65 72 29 0a
 
   ~ "  ~ : 1 #-- (entry flags)"
   20 20 7e 20 3a 20 31 20 23 2d 2d 20 28 65 6e 74
@@ -111347,11 +111346,14 @@
   ~ "  0x80 pack8"
   20 20 30 78 38 30 20 70 61 63 6b 38 0a
 
-  ~ "  ~ : 2 bidirectional-null-terminated entry name"
-  20 20 7e 20 3a 20 32 20 62 69 64 69 72 65 63 74
-  69 6f 6e 61 6c 2d 6e 75 6c 6c 2d 74 65 72 6d 69
-  6e 61 74 65 64 20 65 6e 74 72 79 20 6e 61 6d 65
-  0a
+  ~ "  ~ : bidirectional-null-terminated entry name"
+  20 20 7e 20 3a 20 62 69 64 69 72 65 63 74 69 6f
+  6e 61 6c 2d 6e 75 6c 6c 2d 74 65 72 6d 69 6e 61
+  74 65 64 20 65 6e 74 72 79 20 6e 61 6d 65 0a
+
+  ~ "  ~ : 2 adjust-length"
+  20 20 7e 20 3a 20 32 20 61 64 6a 75 73 74 2d 6c
+  65 6e 67 74 68 0a
 
   ~ "  0 pack8"
   20 20 30 20 70 61 63 6b 38 0a
@@ -111392,9 +111394,9 @@
   20 20 7e 20 3a 20 70 72 6f 76 69 64 65 2d 64 61
   74 61 0a
 
-  ~ "  ~ : data-adjust-length"
-  20 20 7e 20 3a 20 64 61 74 61 2d 61 64 6a 75 73
-  74 2d 6c 65 6e 67 74 68 0a
+  ~ "  ~ : 1 data-adjust-length"
+  20 20 7e 20 3a 20 31 20 64 61 74 61 2d 61 64 6a
+  75 73 74 2d 6c 65 6e 67 74 68 0a
 
   ~ "  drop"
   20 20 64 72 6f 70 0a
@@ -111527,7 +111529,7 @@
   ~   This is the end of the long string literal. We now return you to the
   ~ normal hex-dump stuff.
 
-  00 00 00 00 00 00                 ~                     (alignment padding)
-~ label total-size at offset 0x00000000000a9e08 is here.
+  00 00 00 00 00 00 00              ~                     (alignment padding)
+~ label total-size at offset 0x00000000000a9e20 is here.
 
 ~ This is the end of the hex dump. Thanks for reading!