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

Switch name of fconvert.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-21 22:14:33 -07:00
parent 1aacfd24ba
commit 732fd023e3
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/floats.h
View File

@ -42,7 +42,7 @@
X("1/F", FINVERSE, *fp = 1.0f / *fp) \
X("S>F", STOF, *++fp = (float) tos; DROP) \
X("F>S", FTOS, DUP; tos = (cell_t) *fp--) \
XV(internals, "F>NUMBER?", FCONVERT, tos = fconvert((const char *) *sp, tos, fp)|0; --sp) \
XV(internals, "S>FLOAT?", FCONVERT, tos = fconvert((const char *) *sp, tos, fp)|0; --sp) \
Y(SFLOAT, DUP; tos = sizeof(float)) \
Y(SFLOATS, tos *= sizeof(float)) \
X("SFLOAT+", SFLOATPLUS, tos += sizeof(float)) \