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

rename str= to streq

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-09 17:16:29 +09:00
parent 998f87530a
commit f57aa2be25
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
bootstrap.fs
View file

@ -461,7 +461,7 @@ alias-builtin xor ^
: c, B ; : c, B ;
: memcpy, m ; : memcpy, m ;
: strlen z ; : strlen z ;
: str= E ; : streq E ;
: state M ; : state M ;
: aligned a ; : aligned a ;
: align A ; : align A ;
@ -1706,12 +1706,12 @@ switch-to-4th-stage
0 \ depth 0 \ depth
begin begin
word throw word throw
dup s" [if]" str= if dup s" [if]" streq if
drop 1+ drop 1+
else dup s" [else]" str= if else dup s" [else]" streq if
drop drop
dup 0= if drop exit then dup 0= if drop exit then
else s" [then]" str= if else s" [then]" streq if
dup 0= if drop exit then dup 0= if drop exit then
1- 1-
then then then then then then
@ -1733,9 +1733,9 @@ switch-to-4th-stage
0 \ depth 0 \ depth
begin begin
word throw word throw
dup s" [if]" str= if dup s" [if]" streq if
drop 1+ drop 1+
else s" [then]" str= if else s" [then]" streq if
dup 0= if drop exit then dup 0= if drop exit then
1- 1-
then then then then
@ -1912,7 +1912,7 @@ variable codegen-target
read-commandline-args read-commandline-args
codegen-target @ s" i386-linux" str= [if] codegen-target @ s" i386-linux" streq [if]
%000 constant eax immediate %000 constant eax immediate
%001 constant ecx immediate %001 constant ecx immediate
@ -2126,7 +2126,7 @@ BLOCK-SIZE remaining-size !
[else] \ i386-linux [else] \ i386-linux
codegen-target @ s" no-codegen" str= not [if] codegen-target @ s" no-codegen" streq not [if]
." Unknown codegen target: " codegen-target @ type cr ." Unknown codegen target: " codegen-target @ type cr
abort abort
[then] [then] \ End of environment dependent code [then] [then] \ End of environment dependent code