From 25bb4c7651323b6879064cfdfb74d1771f56abca Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Wed, 20 May 2026 00:34:28 -0700 Subject: add a really powerful stack depth tracking feature for transforms to use also said feature seems to work, which is flatly astonishing just a little more now... Force-Push: yes Change-Id: I1bda7e99e524ac73a761859e86e01251e7d17525 --- core.e | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) (limited to 'core.e') diff --git a/core.e b/core.e index 8c14948..1094e45 100644 --- a/core.e +++ b/core.e @@ -384,6 +384,8 @@ here ! :rax push-reg64 here ! ] ;asm +~ Is the top of the stack greater than the second item in the stack, when +~ both are treated as signed? : > [ here @ :rax pop-reg64 @@ -394,7 +396,8 @@ here ! :rax push-reg64 here ! ] ;asm -~ Is the top of the stack less than the second item in the stack? +~ Is the top of the stack less than the second item in the stack, when both +~ are treated as signed? : < [ here @ :rax pop-reg64 @@ -405,6 +408,8 @@ here ! :rax push-reg64 here ! ] ;asm +~ Is the top of the stack greater than or equal to the second item in the +~ stack, when both are treated as signed? : >= [ here @ :rax pop-reg64 @@ -415,6 +420,8 @@ here ! :rax push-reg64 here ! ] ;asm +~ Is the top of the stack less than or equal to the second item in the +~ stack, when both are treated as signed? : <= [ here @ :rax pop-reg64 @@ -425,6 +432,8 @@ here ! :rax push-reg64 here ! ] ;asm +~ Is the top of the stack greater than the second item in the stack, when +~ both are treated as unsigned? : >unsigned [ here @ :rax pop-reg64 @@ -435,6 +444,8 @@ here ! :rax push-reg64 here ! ] ;asm +~ Is the top of the stack less than the second item in the stack, when +~ both are treated as unsigned? : =unsigned [ here @ :rax pop-reg64 @@ -455,6 +468,8 @@ here ! :rax push-reg64 here ! ] ;asm +~ Is the top of the stack less than or equal to the second item in the +~ stack, when both are treated as unsigned? : <=unsigned [ here @ :rax pop-reg64 @@ -465,6 +480,7 @@ here ! :rax push-reg64 here ! ] ;asm + ~ Bitwise routines ~ ~~~~~~~~~~~~~~~~ ~ -- cgit 1.4.1