Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
gforth
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Bernd Paysan
gforth
Commits
2ce782de
Commit
2ce782de
authored
Mar 19, 2002
by
jwilke
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
no functional change
parent
a255920e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
6 deletions
+15
-6
cross.fs
cross.fs
+15
-6
No files found.
cross.fs
View file @
2ce782de
...
...
@@ -249,21 +249,26 @@ hex \ the defualt base for the cross-compiler is hex !!
hex
\
FIXME
delete
`
\
1
Constant
Cross
-
Flag
\
to
check
whether
assembler
compiler
plug
-
ins
are
\
for
cross
-
compiling
\
No
!
we
use
"[IFUNDEF]"
there
to
find
out
whether
we
are
target
compiling
!!!
\
FIXME
move
down
:
comment
?
(
c
-
addr
u
--
c
-
addr
u
)
2
dup
s
" ("
compare
0
=
IF
postpone
(
ELSE
2
dup
s
"
\"
compare 0= IF postpone
\
THEN
THEN ;
: X bl word count [ ' target >wordlist ] Literal search-wordlist
IF state @ IF compile,
ELSE execute THEN
ELSE -1 ABORT"
Cross
:
access
method
not
supported
!
"
THEN ; immediate
: X ( -- <name> )
\
G The next word in the input is a target word.
\
G Equivalent to T <name> but without permanent
\
G switch to target dictionary. Used as prefix e.g. for @, !, here etc.
bl word count [ ' target >wordlist ] Literal search-wordlist
IF state @ IF compile, ELSE execute THEN
ELSE -1 ABORT"
Cross
:
access
method
not
supported
!
"
THEN ; immediate
\
Begin CROSS COMPILER:
...
...
@@ -902,8 +907,10 @@ Defer is-forward
Defer do-refered
: prim-forward ( ghost -- )
\
."
PF
" .sourcepos
colonmark, 0 do-refered ;
\
compile space for call
: doer-forward ( ghost -- )
\
."
DF
" .sourcepos
colonmark, 2 do-refered ;
\
compile space for doer
' prim-forward IS is-forward
...
...
@@ -1090,6 +1097,7 @@ Ghost does-exec drop
Ghost :docol Ghost :doesjump Ghost :dodoes 2drop drop
Ghost :dovar drop
' prim-forward IS is-forward
\
\
Parameter for target systems 06oct92py
...
...
@@ -1651,6 +1659,7 @@ T has? relocate H
>CROSS
: call-forward ( ghost -- )
\
."
CF
" .sourcepos
there 0 colon, 0 do-refered ;
' call-forward IS is-forward
...
...
@@ -1874,7 +1883,7 @@ Defer resolve-warning
dup >comp @ EXECUTE ;
: gexecute ( ghost -- )
dup >magic @ <imm> =
IF -1 ABORT"
CROSS
:
gexecute
on
immediate
word
" THEN
dup >magic @ <imm> =
ABORT"
CROSS
:
gexecute
on
immediate
word
"
(gexecute) ;
: addr, ( ghost -- )
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment