Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-14 08:01:27 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Test of start < limit at the beginning of do-loop os not necessary

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 07:55:39 +09:00
parent 5c0247875f
commit 9f862f44e1
1 changed files with 0 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bootstrap.fs
View file

@ -1432,21 +1432,9 @@ do-stack 16 cells + do-sp !
\ compile: ( -- dest mark ) \ compile: ( -- dest mark )
: do : do
compile 2dup
compile >r \ save start compile >r \ save start
compile >r \ save limit compile >r \ save limit
\ Leave if start >= limit.
\ Have to write 'limit start swap 1- <= 0branch ...' but not
\ 'limit start > 0branch ...'
\ Since iteration range [start...limit) and [start...limit-1] is
\ different when limit-1 is the maximum unsigned integer.
compile swap
compile 1-
compile <=
compile 0branch
0 ,
here >do do-mark >do here >do do-mark >do
here cell- >do leave-mark >do
; immediate ; immediate
: leave ( -- orig mark ) : leave ( -- orig mark )