From 4cb7d1fb7724c27ba434a2ab29548452c09ebca2 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Fri, 1 Feb 2019 23:52:36 -0800
Subject: 4947

Bugfix: has-metadata? was corrupting registers

Seems uneconomic to write tests for stuff like this. Assembly is just not
the right layer to try to come up with a general solution or process. Keep
running your code and wait to find signs of breakage.
---
 subx/apps/pack      | Bin 16512 -> 16518 bytes
 subx/apps/pack.subx |   2 ++
 2 files changed, 2 insertions(+)

diff --git a/subx/apps/pack b/subx/apps/pack
index b48c40b2..54c40efc 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 20116c2d..9ad17b7d 100644
--- a/subx/apps/pack.subx
+++ b/subx/apps/pack.subx
@@ -431,6 +431,8 @@ $has-metadata?:true:
 $has-metadata?:false:
     b8/copy-to-EAX  0/imm32/false
 $has-metadata?:end:
+    # . reclaim locals
+    81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # . restore registers
     5f/pop-to-EDI
     5e/pop-to-ESI
-- 
cgit 1.4.1-2-gfad0