version 1.45, 2002/12/26 14:09:20
|
version 1.47, 2003/01/04 08:26:57
|
Line 275 VARIABLE C-Pass
|
Line 275 VARIABLE C-Pass
|
: back? ( addr target -- addr flag ) |
: back? ( addr target -- addr flag ) |
over u< ; |
over u< ; |
|
|
: .word ( addr xt -- addr ) |
: .word ( addr x -- addr ) |
look 0= IF |
\ print x as a word if possible |
drop dup 1 cells - @ dup body> look |
dup look 0= IF |
IF |
drop dup threaded>name 0= if |
nip dup ." <" name>string rot wordinfo .string ." >" |
2drop dup 1 cells - @ dup body> look |
ELSE |
IF |
drop ." <" 0 .r ." >" |
nip dup ." <" name>string rot wordinfo .string ." > " |
THEN |
ELSE |
ELSE |
drop ." <" 0 .r ." > " |
dup cell+ @ immediate-mask and |
THEN |
IF |
EXIT |
bl cemit ." POSTPONE " |
then |
THEN |
THEN |
dup name>string rot wordinfo .string |
nip dup cell+ @ immediate-mask and |
THEN ; |
IF |
|
bl cemit ." POSTPONE " |
|
THEN |
|
dup name>string rot wordinfo .string |
|
; |
|
|
: c-call ( addr1 -- addr2 ) |
: c-call ( addr1 -- addr2 ) |
Display? IF |
Display? IF |
Line 328 VARIABLE C-Pass
|
Line 332 VARIABLE C-Pass
|
|
|
: .name-without ( addr -- addr ) |
: .name-without ( addr -- addr ) |
\ prints a name without a() e.g. a(+LOOP) or (s") |
\ prints a name without a() e.g. a(+LOOP) or (s") |
dup 1 cells - @ look IF |
dup 1 cells - @ threaded>name IF |
name>string over c@ 'a = IF |
name>string over c@ 'a = IF |
1 /string |
1 /string |
THEN |
THEN |
Line 561 CREATE C-Table
|
Line 565 CREATE C-Table
|
[IFDEF] "lit ' "lit A, ' c-c" A, [THEN] |
[IFDEF] "lit ' "lit A, ' c-c" A, [THEN] |
[IFDEF] (c") ' (c") A, ' c-c" A, [THEN] |
[IFDEF] (c") ' (c") A, ' c-c" A, [THEN] |
' (do) A, ' c-do A, |
' (do) A, ' c-do A, |
[IFDEF] (+do) ' a(+do) A, ' c-?do A, [THEN] |
[IFDEF] (+do) ' (+do) A, ' c-?do A, [THEN] |
[IFDEF] (u+do) ' a(u+do) A, ' c-?do A, [THEN] |
[IFDEF] (u+do) ' (u+do) A, ' c-?do A, [THEN] |
[IFDEF] (-do) ' a(-do) A, ' c-?do A, [THEN] |
[IFDEF] (-do) ' (-do) A, ' c-?do A, [THEN] |
[IFDEF] (u-do) ' a(u-do) A, ' c-?do A, [THEN] |
[IFDEF] (u-do) ' (u-do) A, ' c-?do A, [THEN] |
' a(?do) A, ' c-?do A, |
' (?do) A, ' c-?do A, |
' (for) A, ' c-for A, |
' (for) A, ' c-for A, |
' a?branch A, ' c-?branch A, |
' ?branch A, ' c-?branch A, |
' abranch A, ' c-branch A, |
' branch A, ' c-branch A, |
' a(loop) A, ' c-loop A, |
' (loop) A, ' c-loop A, |
' a(+loop) A, ' c-loop A, |
' (+loop) A, ' c-loop A, |
[IFDEF] (s+loop) ' a(s+loop) A, ' c-loop A, [THEN] |
[IFDEF] (s+loop) ' (s+loop) A, ' c-loop A, [THEN] |
[IFDEF] (-loop) ' a(-loop) A, ' c-loop A, [THEN] |
[IFDEF] (-loop) ' (-loop) A, ' c-loop A, [THEN] |
' a(next) A, ' c-loop A, |
' (next) A, ' c-loop A, |
' ;s A, ' c-exit A, |
' ;s A, ' c-exit A, |
[IFDEF] (abort") ' (abort") A, ' c-abort" A, [THEN] |
[IFDEF] (abort") ' (abort") A, ' c-abort" A, [THEN] |
\ only defined if compiler is loaded |
\ only defined if compiler is loaded |