vm: change some push/pop to replace/peek.

diff --git a/vm/math.cpp b/vm/math.cpp
index 45b5e711061215c275ef6e885309e3089c1e248a..dc0972933dfdc95e36601cef8eb3c97532841874 100644 (file)
--- a/vm/math.cpp
+++ b/vm/math.cpp
@@ -263,22 +263,22 @@ void factor_vm::primitive_float_greatereq() {
 
 /* Allocates memory */
 void factor_vm::primitive_float_bits() {
-  ctx->push(
-      from_unsigned_cell(float_bits((float)untag_float_check(ctx->pop()))));
+  ctx->replace(
+      from_unsigned_cell(float_bits((float)untag_float_check(ctx->peek()))));
 }
 
 /* Allocates memory */
 void factor_vm::primitive_bits_float() {
-  ctx->push(allot_float(bits_float((uint32_t)to_cell(ctx->pop()))));
+  ctx->replace(allot_float(bits_float((uint32_t)to_cell(ctx->peek()))));
 }
 
 void factor_vm::primitive_double_bits() {
-  ctx->push(from_unsigned_8(double_bits(untag_float_check(ctx->pop()))));
+  ctx->replace(from_unsigned_8(double_bits(untag_float_check(ctx->peek()))));
 }
 
 /* Allocates memory */
 void factor_vm::primitive_bits_double() {
-  ctx->push(allot_float(bits_double(to_unsigned_8(ctx->pop()))));
+  ctx->replace(allot_float(bits_double(to_unsigned_8(ctx->peek()))));
 }
 
 /* Cannot allocate. */

diff --git a/vm/objects.cpp b/vm/objects.cpp
index 819c33cd832ebae36bdc64d4c5f45a66d7446316..587f4592cbca7294345a130aaae3c166975b097d 100644 (file)
--- a/vm/objects.cpp
+++ b/vm/objects.cpp
@@ -69,7 +69,7 @@ cell factor_vm::object_size(cell tagged) {
 
 /* Allocates memory */
 void factor_vm::primitive_size() {
-  ctx->push(from_unsigned_cell(object_size(ctx->pop())));
+  ctx->replace(from_unsigned_cell(object_size(ctx->peek())));
 }
 
 struct slot_become_fixup : no_fixup {