version 1.158, 2006/03/05 14:10:51
|
version 1.161, 2006/12/31 13:39:11
|
Line 1
|
Line 1
|
\ CROSS.FS The Cross-Compiler 06oct92py |
\ CROSS.FS The Cross-Compiler 06oct92py |
\ Idea and implementation: Bernd Paysan (py) |
\ Idea and implementation: Bernd Paysan (py) |
|
|
\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005,2006 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 3245 Cond: IS T ' >body @ H compile AL
|
Line 3245 Cond: IS T ' >body @ H compile AL
|
: IS T >address ' >body @ ! H ; |
: IS T >address ' >body @ ! H ; |
Cond: TO T ' >body @ H compile ALiteral compile ! ;Cond |
Cond: TO T ' >body @ H compile ALiteral compile ! ;Cond |
: TO T ' >body @ ! H ; |
: TO T ' >body @ ! H ; |
|
Cond: CTO T ' >body H compile ALiteral compile ! ;Cond |
|
: CTO T ' >body ! H ; |
[ELSE] |
[ELSE] |
Cond: IS T ' >body H compile ALiteral compile ! ;Cond |
Cond: IS T ' >body H compile ALiteral compile ! ;Cond |
: IS T >address ' >body ! H ; |
: IS T >address ' >body ! H ; |
Line 3730 previous
|
Line 3732 previous
|
: 2/ 2/ ; |
: 2/ 2/ ; |
: hex. base @ $10 base ! swap . base ! ; |
: hex. base @ $10 base ! swap . base ! ; |
: invert invert ; |
: invert invert ; |
|
: linkstring ( addr u n addr -- ) |
|
X here over X @ X , swap X ! X , ht-string, X align ; |
\ : . . ; |
\ : . . ; |
|
|
: all-words ['] forced? IS skip? ; |
: all-words ['] forced? IS skip? ; |