version 1.272, 2012/05/26 10:20:01
|
version 1.276, 2012/08/20 23:10:34
|
Line 1700 wfileid = (Cell)stderr;
|
Line 1700 wfileid = (Cell)stderr;
|
|
|
\+os |
\+os |
|
|
form ( -- urows ucols ) gforth |
(form) ( -- urows ucols ) gforth paren_form |
""The number of lines and columns in the terminal. These numbers may |
""The number of lines and columns in the terminal. These numbers may |
change with the window size. Note that it depends on the OS whether |
change with the window size. Note that it depends on the OS whether |
this reflects the actual size and changes with the window size |
this reflects the actual size and changes with the window size |
Line 1735 FLUSH_ICACHE((caddr_t)c_addr,u);
|
Line 1735 FLUSH_ICACHE((caddr_t)c_addr,u);
|
|
|
(bye) ( n -- ) gforth paren_bye |
(bye) ( n -- ) gforth paren_bye |
SUPER_END; |
SUPER_END; |
|
gforth_FP=fp; |
|
gforth_SP=sp; |
|
gforth_RP=rp; |
|
gforth_LP=lp; |
return (Label *)n; |
return (Label *)n; |
|
|
(system) ( c_addr u -- wretval wior ) gforth paren_system |
(system) ( c_addr u -- wretval wior ) gforth paren_system |
Line 2793 ip=IP;
|
Line 2797 ip=IP;
|
SUPER_END; |
SUPER_END; |
VM_JUMP(EXEC1((Xt)a_addr)); |
VM_JUMP(EXEC1((Xt)a_addr)); |
|
|
|
\+objects |
|
\g object_pointer |
|
|
|
>o ( c_addr -- r:c_old ) new to_o |
|
c_old = op; |
|
op = c_addr; |
|
|
|
o> ( r:c_addr -- ) new o_restore |
|
op = c_addr; |
|
|
|
o#+ ( #w -- c_addr ) new o_lit_plus |
|
c_addr = op + w; |
|
|
|
\+ |
\g static_super |
\g static_super |
|
|
ifdef(`STACK_CACHE_FILE', |
ifdef(`STACK_CACHE_FILE', |