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

Added FROT

Browse Source
This commit is contained in:
Brad Nelson
2022-04-19 21:35:49 -07:00
parent 1ae27f72cf
commit 7426ce9b04
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
common/floats.h
View File

@ -20,12 +20,13 @@
X("FP!", FPSTORE, fp = (float *) tos; DROP) \ X("FP!", FPSTORE, fp = (float *) tos; DROP) \
X("SF@", FAT, *++fp = *(float *) tos; DROP) \ X("SF@", FAT, *++fp = *(float *) tos; DROP) \
X("SF!", FSTORE, *(float *) tos = *fp--; DROP) \ X("SF!", FSTORE, *(float *) tos = *fp--; DROP) \
X("FDUP", FDUP, fp[1] = *fp; ++fp) \ Y(FDUP, fp[1] = *fp; ++fp) \
X("FNIP", FNIP, fp[-1] = *fp; --fp) \ Y(FNIP, fp[-1] = *fp; --fp) \
X("FDROP", FDROP, --fp) \ Y(FDROP, --fp) \
X("FOVER", FOVER, fp[1] = fp[-1]; ++fp) \ Y(FOVER, fp[1] = fp[-1]; ++fp) \
X("FSWAP", FSWAP, float ft = fp[-1]; fp[-1] = *fp; *fp = ft) \ Y(FSWAP, float ft = fp[-1]; fp[-1] = *fp; *fp = ft) \
X("FNEGATE", FNEGATE, *fp = -*fp) \ Y(FROT, float ft = fp[-2]; fp[-2] = fp[-1]; fp[-1] = *fp; *fp = ft) \
Y(FNEGATE, *fp = -*fp) \
X("F0<", FZLESS, DUP; tos = *fp-- < 0.0f ? -1 : 0) \ X("F0<", FZLESS, DUP; tos = *fp-- < 0.0f ? -1 : 0) \
X("F0=", FZEQUAL, DUP; tos = *fp-- == 0.0f ? -1 : 0) \ X("F0=", FZEQUAL, DUP; tos = *fp-- == 0.0f ? -1 : 0) \
X("F=", FEQUAL, DUP; tos = fp[-1] == fp[0] ? -1 : 0; fp -= 2) \ X("F=", FEQUAL, DUP; tos = fp[-1] == fp[0] ? -1 : 0; fp -= 2) \

1
common/forth_namespace_tests.fs
View File

@ -267,6 +267,7 @@ e: check-float-opcodes
out: FDROP out: FDROP
out: FOVER out: FOVER
out: FSWAP out: FSWAP
out: FROT
out: FNEGATE out: FNEGATE
out: F0< out: F0<
out: F0= out: F0=