version 1.86, 2000/09/23 15:05:58
|
version 1.102, 2001/09/04 11:09:59
|
Line 17
|
Line 17
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
0 |
0 |
[IF] |
[IF] |
Line 1515 variable ResolveFlag
|
Line 1515 variable ResolveFlag
|
>CROSS |
>CROSS |
\ Header states 12dec92py |
\ Header states 12dec92py |
|
|
: flag! ( 8b -- ) tlast @ dup >r T c@ xor r> c! H ; |
\ : flag! ( 8b -- ) tlast @ dup >r T c@ xor r> c! H ; |
|
bigendian [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+ |
|
: flag! ( w -- ) tlast @ flag+ + dup >r T c@ xor r> c! H ; |
|
|
VARIABLE ^imm |
VARIABLE ^imm |
|
|
Line 1537 VARIABLE ^imm
|
Line 1539 VARIABLE ^imm
|
>TARGET |
>TARGET |
: string, ( addr count -- ) |
: string, ( addr count -- ) |
dup T c, H bounds ?DO I c@ T c, H LOOP ; |
dup T c, H bounds ?DO I c@ T c, H LOOP ; |
: name, ( "name" -- ) bl word count T string, cfalign H ; |
|
|
: lstring, ( addr count -- ) |
|
dup T , H bounds ?DO I c@ T c, H LOOP ; |
|
|
|
: name, ( "name" -- ) bl word count T lstring, cfalign H ; |
: view, ( -- ) ( dummy ) ; |
: view, ( -- ) ( dummy ) ; |
>CROSS |
>CROSS |
|
|
Line 2202 Builder Field
|
Line 2208 Builder Field
|
: cell% ( n -- size align ) |
: cell% ( n -- size align ) |
T 1 cells H dup ; |
T 1 cells H dup ; |
|
|
|
|
|
Build: ( m v -- m' v ) dup T , cell+ H ; |
|
DO: abort" Not in cross mode" ;DO |
|
Builder input-method |
|
|
|
Build: ( m v size -- m v' ) over T , H + ; |
|
DO: abort" Not in cross mode" ;DO |
|
Builder input-var |
|
|
|
|
|
|
\ structural conditionals 17dec92py |
\ structural conditionals 17dec92py |
|
|
>CROSS |
>CROSS |
Line 2394 Cond: postpone ( -- ) restrict? \ name
|
Line 2411 Cond: postpone ( -- ) restrict? \ name
|
ELSE dup >magic @ <imm> = |
ELSE dup >magic @ <imm> = |
IF gexecute |
IF gexecute |
ELSE compile (compile) addr, THEN THEN ;Cond |
ELSE compile (compile) addr, THEN THEN ;Cond |
|
|
|
Cond: [compile] ( -- ) restrict? \ name |
|
bl word gfind dup 0= ABORT" CROSS: Can't compile" |
|
0> IF gexecute |
|
ELSE dup >magic @ <imm> = |
|
IF gexecute |
|
ELSE compile (compile) addr, THEN THEN ;Cond |
|
|
\ save-cross 17mar93py |
\ save-cross 17mar93py |
|
|
Line 2571 bigendian Constant bigendian
|
Line 2595 bigendian Constant bigendian
|
: tempdp> tempdp> ; |
: tempdp> tempdp> ; |
: const constflag on ; |
: const constflag on ; |
: warnings name 3 = 0= twarnings ! drop ; |
: warnings name 3 = 0= twarnings ! drop ; |
|
: redefinitions-start twarnings off ; |
|
: redefinitions-end twarnings on ; |
|
: group 0 word drop ; |
|
|
: | ; |
: | ; |
\ : | NoHeaderFlag on ; \ This is broken (damages the last word) |
\ : | NoHeaderFlag on ; \ This is broken (damages the last word) |
|
|