From e174caf4d48d9f858735696d1043d188cecd5cb4 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Wed, 3 Apr 2019 23:09:31 -0700
Subject: 5054

---
 subx/apps/pack      | Bin 35117 -> 35112 bytes
 subx/apps/pack.subx |   7 +++----
 2 files changed, 3 insertions(+), 4 deletions(-)

(limited to 'subx/apps')

diff --git a/subx/apps/pack b/subx/apps/pack
index d81654aa..6343e0c7 100755
Binary files a/subx/apps/pack and b/subx/apps/pack differ
diff --git a/subx/apps/pack.subx b/subx/apps/pack.subx
index db0c9e7d..09d18461 100644
--- a/subx/apps/pack.subx
+++ b/subx/apps/pack.subx
@@ -133,8 +133,7 @@ convert:  # in : (address buffered-file), out : (address buffered-file) -> <void
     68/push  0/imm32/curr
     89/copy                         3/mod/direct    2/rm32/EDX    .           .             .           4/r32/ESP   .               .                 # copy ESP to EDX
     # var in-code?/EBX = false
-    68/push  0/imm32/false
-    89/copy                         3/mod/direct    3/rm32/EBX    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBX
+    31/xor                          3/mod/direct    3/rm32/EBX    .           .             .           3/r32/EBX   .               .                 # clear EBX
 $convert:loop:
     # clear-stream(line)
     # . . push args
@@ -400,7 +399,7 @@ $convert:break:
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
 $convert:end:
     # . reclaim locals
-    81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0x218/imm32       # add to ESP
+    81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0x214/imm32       # add to ESP
     # . restore registers
     5b/pop-to-EBX
     5a/pop-to-EDX
@@ -807,7 +806,7 @@ test-convert-in-data-segment:
     c3/return
 
 test-convert-code-and-data-segments:
-    # correctly process lines in the data segment
+    # correctly process lines in both code and data segments
     # . prolog
     55/push-EBP
     89/copy                         3/mod/direct    5/rm32/EBP    .           .             .           4/r32/ESP   .               .                 # copy ESP to EBP
-- 
cgit 1.4.1-2-gfad0