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

Fix bug with 10 and 41.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-07 19:00:33 -08:00
parent 1316a3144e
commit ffd0226fdb
4 changed files with 5 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/boot.fs
View File

@ -67,7 +67,7 @@ create NEXT ' donext @ ' next ! : next -1 nest-depth +! ['] next , , ; immed
; ;
( Define a recognizer stack. ) ( Define a recognizer stack. )
create RECSTACK 0 , 10 cells allot create RECSTACK 0 , bl 2/ ( 16 no numbers yet ) cells allot
: +RECOGNIZER ( xt -- ) 1 RECSTACK +! RECSTACK dup @ cells + ! ; : +RECOGNIZER ( xt -- ) 1 RECSTACK +! RECSTACK dup @ cells + ! ;
: -RECOGNIZER ( -- ) -1 RECSTACK +! ; : -RECOGNIZER ( -- ) -1 RECSTACK +! ;
: GET-RECOGNIZERS ( -- xtn..xt1 n ) : GET-RECOGNIZERS ( -- xtn..xt1 n )

8
common/comments.fs
View File

@ -12,7 +12,7 @@
\ See the License for the specific language governing permissions and \ See the License for the specific language governing permissions and
\ limitations under the License. \ limitations under the License.
: ( 41 parse drop drop ; immediate : ( bl nl + 1- parse drop drop ; immediate ( Now can do comments! )
: \ 10 parse drop drop ; immediate ( bl=32 nl=10 so nl+32-1=41, right paren )
: #! 10 parse drop drop ; immediate ( shebang for scripts ) : \ nl parse drop drop ; immediate
( Now can do comments! ) : #! nl parse drop drop ; immediate ( shebang for scripts )

2
common/forth_namespace_tests.fs
View File

@ -162,8 +162,6 @@ e: check-tier1-opcodes
out: 0 out: 0
out: 1 out: 1
out: -1 out: -1
out: 10
out: 41
out: nip out: nip
out: rdrop out: rdrop
out: */ out: */

2
common/tier1_opcodes.h
View File

@ -16,8 +16,6 @@
X("0", ZERO, PUSH 0) \ X("0", ZERO, PUSH 0) \
X("1", ONE, PUSH 1) \ X("1", ONE, PUSH 1) \
X("-1", NEGATIVEONE, PUSH -1) \ X("-1", NEGATIVEONE, PUSH -1) \
X("10", TEN, PUSH 10) \
X("41", FOURTYONE, PUSH 41) \
Y(nip, NIP) \ Y(nip, NIP) \
Y(rdrop, --rp) \ Y(rdrop, --rp) \
XV(forth, "*/", STARSLASH, SSMOD_FUNC; NIP) \ XV(forth, "*/", STARSLASH, SSMOD_FUNC; NIP) \