version 1.272, 2012/05/26 10:20:01
|
version 1.277, 2012/09/17 19:58:36
|
Line 1516 c_addr2 = c_addr1+1;
|
Line 1516 c_addr2 = c_addr1+1;
|
: |
: |
dup 1+ swap c@ ; |
dup 1+ swap c@ ; |
|
|
|
cell/ ( n1 -- n2 ) gforth cell_divide |
|
""@i{n2} is the number of cells that fit into @i{n1}"" |
|
n2 = n1 / sizeof(Cell); |
|
|
\g compiler |
\g compiler |
|
|
\+f83headerstring |
\+f83headerstring |
Line 1700 wfileid = (Cell)stderr;
|
Line 1704 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 1739 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 2471 if (flag) {
|
Line 2479 if (flag) {
|
fp[0]=r; |
fp[0]=r; |
} |
} |
|
|
|
float/ ( n1 -- n2 ) gforth float_divide |
|
n2 = n1 / sizeof(Float); |
|
|
|
dfloat/ ( n1 -- n2 ) gforth sfloat_divide |
|
n2 = n1 / sizeof(DFloat); |
|
|
|
sfloat/ ( n1 -- n2 ) gforth dfloat_divide |
|
n2 = n1 / sizeof(SFloat); |
|
|
\+ |
\+ |
|
|
\ The following words access machine/OS/installation-dependent |
\ The following words access machine/OS/installation-dependent |
Line 2793 ip=IP;
|
Line 2810 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', |