alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Move 0, -1, 1 to internals vocabulary.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-09 11:06:50 -08:00
parent b3ca67eaf6
commit 3010f6c2b4
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
common/forth_namespace_tests.fs
View File

@ -159,9 +159,6 @@ e: check-tier2-opcodes
;e ;e
e: check-tier1-opcodes e: check-tier1-opcodes
out: 0
out: 1
out: -1
out: nip out: nip
out: rdrop out: rdrop
out: */ out: */

6
common/tier1_opcodes.h
View File

@ -13,9 +13,9 @@
// limitations under the License. // limitations under the License.
#define TIER1_OPCODE_LIST \ #define TIER1_OPCODE_LIST \
X("0", ZERO, PUSH 0) \ XV(internals, "0", ZERO, PUSH 0) \
X("1", ONE, PUSH 1) \ XV(internals, "1", ONE, PUSH 1) \
X("-1", NEGATIVEONE, PUSH -1) \ XV(internals, "-1", NEGATIVEONE, PUSH -1) \
Y(nip, NIP) \ Y(nip, NIP) \
Y(rdrop, --rp) \ Y(rdrop, --rp) \
XV(forth, "*/", STARSLASH, SSMOD_FUNC; NIP) \ XV(forth, "*/", STARSLASH, SSMOD_FUNC; NIP) \