Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use 'implementation' instead of command line arguments

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-10 00:05:46 +09:00
parent 5942192ada
commit 56cf2ede18
1 changed files with 2 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
bootstrap.fs
View file

@ -2068,27 +2068,7 @@ v argc ! argv !
( === Environment-Dependent Code === ) ( === Environment-Dependent Code === )
\ Parse codegeneration option. implementation s" hand-written i386-linux" streq [if]
\ $ ./planck < bootstrap --i386-linux ...
variable codegen-target
\ Parse command-line arguments.
:noname ( -- )
s" no-codegen" codegen-target !
begin argc @ 1 > while
1 arg dup c@ '-' <> if drop exit then
dup s" --i386-linux" streq if
2 + codegen-target !
shift-args
else
." Unknown option: " type cr
abort
then
repeat
; execute
codegen-target @ s" i386-linux" streq [if]
%000 constant eax immediate %000 constant eax immediate
%001 constant ecx immediate %001 constant ecx immediate
@ -2302,12 +2282,7 @@ BLOCK-SIZE remaining-size !
SYS-WRITE syscall3 \ ( u1 u2 ) SYS-WRITE syscall3 \ ( u1 u2 )
; ;
[else] \ i386-linux [then] \ End of environment dependent code
codegen-target @ s" no-codegen" streq not [if]
." Unknown codegen target: " codegen-target @ type cr
abort
[then] [then] \ End of environment dependent code
: defined? ( "name" -- f ) : defined? ( "name" -- f )
word throw find <> 0 word throw find <> 0