diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-20 00:34:28 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-20 00:34:28 -0700 |
| commit | 25bb4c7651323b6879064cfdfb74d1771f56abca (patch) | |
| tree | 6452f1664d148f18d7c1b1f1c48fcd594bac28a2 /core.e | |
| parent | a89cd2c5f5f618eeab16fbef482f30f12640f58b (diff) | |
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
Diffstat (limited to 'core.e')
| -rw-r--r-- | core.e | 18 |
1 files changed, 17 insertions, 1 deletions
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 @@ -445,6 +456,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 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 ~ ~~~~~~~~~~~~~~~~ ~ |