5782 - fix a widespread bug with Heap-size

29 files changed, 15 insertions, 15 deletions

diff --git a/069allocate.subx b/069allocate.subx
index aee30144..c6efdbd6 100644
--- a/069allocate.subx
+++ b/069allocate.subx
@@ -43,7 +43,7 @@ Entry:
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push  Heap/imm32
-    68/push  Heap-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Heap-size/disp32                  # push *Heap-size
     # . . call
     e8/call  new-segment/disp32
     # . . discard args
diff --git a/apps/assort b/apps/assort
index adfa83e4..90f413b8 100755
--- a/apps/assort
+++ b/apps/assort
Binary files differdiff --git a/apps/braces b/apps/braces
index 4d97a055..6f5af03a 100755
--- a/apps/braces
+++ b/apps/braces
Binary files differdiff --git a/apps/braces.subx b/apps/braces.subx
index f1fcdaf4..abdcdfbe 100644
--- a/apps/braces.subx
+++ b/apps/braces.subx
@@ -54,7 +54,7 @@ Entry:  # run tests if necessary, a REPL if not
     # . prologue
     89/<- %ebp 4/r32/esp
     # initialize heap
-    (new-segment Heap-size Heap)
+    (new-segment *Heap-size Heap)
     # if (argc <= 1) goto interactive
     81 7/subop/compare *ebp 1/imm32
     7e/jump-if-lesser-or-equal $subx-braces-main:interactive/disp8
diff --git a/apps/calls b/apps/calls
index 2b3b2d7d..e3644fde 100755
--- a/apps/calls
+++ b/apps/calls
Binary files differdiff --git a/apps/crenshaw2-1 b/apps/crenshaw2-1
index 4a2ba7e2..c5c7f13d 100755
--- a/apps/crenshaw2-1
+++ b/apps/crenshaw2-1
Binary files differdiff --git a/apps/crenshaw2-1.subx b/apps/crenshaw2-1.subx
index d081e290..4c1daa3a 100644
--- a/apps/crenshaw2-1.subx
+++ b/apps/crenshaw2-1.subx
@@ -38,7 +38,7 @@ Entry:  # run tests if necessary, call 'compile' if not
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push  Heap/imm32
-    68/push  Heap-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Heap-size/disp32                  # push *Heap-size
     # . . call
     e8/call  new-segment/disp32
     # . . discard args
diff --git a/apps/crenshaw2-1b b/apps/crenshaw2-1b
index 7c1e0750..bc93d5fd 100755
--- a/apps/crenshaw2-1b
+++ b/apps/crenshaw2-1b
Binary files differdiff --git a/apps/crenshaw2-1b.subx b/apps/crenshaw2-1b.subx
index a784e858..b47b8409 100644
--- a/apps/crenshaw2-1b.subx
+++ b/apps/crenshaw2-1b.subx
@@ -38,7 +38,7 @@ Entry:  # run tests if necessary, call 'compile' if not
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push  Heap/imm32
-    68/push  Heap-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Heap-size/disp32                  # push *Heap-size
     # . . call
     e8/call  new-segment/disp32
     # . . discard args
diff --git a/apps/dquotes b/apps/dquotes
index 268750aa..4bc61eb4 100755
--- a/apps/dquotes
+++ b/apps/dquotes
Binary files differdiff --git a/apps/factorial b/apps/factorial
index 6ac5f45e..ee86b814 100755
--- a/apps/factorial
+++ b/apps/factorial
Binary files differdiff --git a/apps/factorial.subx b/apps/factorial.subx
index b6635016..26cf3f9d 100644
--- a/apps/factorial.subx
+++ b/apps/factorial.subx
@@ -26,7 +26,7 @@ Entry:  # run tests if necessary, compute `factorial(5)` if not
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push  Heap/imm32
-    68/push  Heap-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Heap-size/disp32                  # push *Heap-size
     # . . call
     e8/call  new-segment/disp32
     # . . discard args
diff --git a/apps/factorial2.subx b/apps/factorial2.subx
index c409fbfb..ecaccbcf 100644
--- a/apps/factorial2.subx
+++ b/apps/factorial2.subx
@@ -26,7 +26,7 @@ Entry:  # run tests if necessary, compute `factorial(5)` if not
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push Heap/imm32
-    68/push Heap-size/imm32
+    ff 6/subop/push *Heap-size
     # . . call
     e8/call new-segment/disp32
     # . . discard args
diff --git a/apps/factorial3.subx b/apps/factorial3.subx
index faeb1fc9..6cfd38c3 100644
--- a/apps/factorial3.subx
+++ b/apps/factorial3.subx
@@ -24,7 +24,7 @@ Entry:  # run tests if necessary, compute `factorial(5)` if not
     89/<- %ebp 4/r32/esp
 
     # initialize heap
-    (new-segment Heap-size Heap)
+    (new-segment *Heap-size Heap)
 
     # - if argc > 1 and argv[1] == "test", then return run_tests()
     # if (argc <= 1) goto run-main
diff --git a/apps/factorial4.subx b/apps/factorial4.subx
index 2ba23ba7..2752dfd0 100644
--- a/apps/factorial4.subx
+++ b/apps/factorial4.subx
@@ -25,7 +25,7 @@ Entry:  # run tests if necessary, compute `factorial(5)` if not
     89/<- %ebp 4/r32/esp
 
     # initialize heap
-    (new-segment Heap-size Heap)
+    (new-segment *Heap-size Heap)
 
     # - if argc > 1, then return run_tests()
     {
diff --git a/apps/handle b/apps/handle
index 43f9af2a..f7210315 100755
--- a/apps/handle
+++ b/apps/handle
Binary files differdiff --git a/apps/handle.subx b/apps/handle.subx
index 7df44741..7c4657ec 100644
--- a/apps/handle.subx
+++ b/apps/handle.subx
@@ -31,7 +31,7 @@ Entry:
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push  Heap/imm32
-    68/push  Heap-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Heap-size/disp32                  # push *Heap-size
     # . . call
     e8/call  new-segment/disp32
     # . . discard args
diff --git a/apps/hex b/apps/hex
index ab9b30e8..53f8d475 100755
--- a/apps/hex
+++ b/apps/hex
Binary files differdiff --git a/apps/hex.subx b/apps/hex.subx
index 545d0f2b..95947899 100644
--- a/apps/hex.subx
+++ b/apps/hex.subx
@@ -25,7 +25,7 @@ Entry:  # run tests if necessary, convert stdin if not
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push  Heap/imm32
-    68/push  Heap-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Heap-size/disp32                  # push *Heap-size
     # . . call
     e8/call  new-segment/disp32
     # . . discard args
diff --git a/apps/mu b/apps/mu
index dfd0eacf..d407b615 100755
--- a/apps/mu
+++ b/apps/mu
Binary files differdiff --git a/apps/mu.subx b/apps/mu.subx
index f1a96fcb..f9fcc8a6 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -336,7 +336,7 @@ List-size:
 Entry:
     # . prologue
     89/<- %ebp 4/r32/esp
-    (new-segment Heap-size Heap)
+    (new-segment *Heap-size Heap)
     # if (argv[1] == "test') run-tests()
     {
       # if (argc <= 1) break
diff --git a/apps/mulisp.subx b/apps/mulisp.subx
index 48525950..71ad170c 100644
--- a/apps/mulisp.subx
+++ b/apps/mulisp.subx
@@ -14,7 +14,7 @@ Entry:  # run tests if necessary, a REPL if not
     # . prologue
     89/<- %ebp 4/r32/esp
     # initialize heap
-    (new-segment Heap-size Heap)
+    (new-segment *Heap-size Heap)
     {
       # if (argc <= 1) break
       81 7/subop/compare *ebp 1/imm32
diff --git a/apps/pack b/apps/pack
index 40bb7b5c..02749f44 100755
--- a/apps/pack
+++ b/apps/pack
Binary files differdiff --git a/apps/pack.subx b/apps/pack.subx
index 64d81611..26a47cc1 100644
--- a/apps/pack.subx
+++ b/apps/pack.subx
@@ -26,7 +26,7 @@ Entry:  # run tests if necessary, convert stdin if not
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push  Heap/imm32
-    68/push  Heap-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Heap-size/disp32                  # push *Heap-size
     # . . call
     e8/call  new-segment/disp32
     # . . discard args
diff --git a/apps/sigils b/apps/sigils
index 42a9485a..5147ee54 100755
--- a/apps/sigils
+++ b/apps/sigils
Binary files differdiff --git a/apps/survey b/apps/survey
index 40c17f9a..0210fc61 100755
--- a/apps/survey
+++ b/apps/survey
Binary files differdiff --git a/apps/survey.subx b/apps/survey.subx
index 70557261..fcb70d8d 100644
--- a/apps/survey.subx
+++ b/apps/survey.subx
@@ -55,7 +55,7 @@ Entry:  # run tests if necessary, convert stdin if not
     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
     # initialize-trace-stream(Trace-size)
     # . . push args
-    68/push  Trace-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Trace-size/disp32                 # push *Heap-size
     # . . call
     e8/call  initialize-trace-stream/disp32
     # . . discard args
diff --git a/apps/tests b/apps/tests
index c90e3723..91a078ee 100755
--- a/apps/tests
+++ b/apps/tests
Binary files differdiff --git a/apps/tests.subx b/apps/tests.subx
index f6b3fb55..f31f4d16 100644
--- a/apps/tests.subx
+++ b/apps/tests.subx
@@ -17,7 +17,7 @@ Entry:  # run tests if necessary, convert stdin if not
     # . Heap = new-segment(Heap-size)
     # . . push args
     68/push  Heap/imm32
-    68/push  Heap-size/imm32
+    ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Heap-size/disp32                  # push *Heap-size
     # . . call
     e8/call  new-segment/disp32
     # . . discard args