version 1.276, 2012/08/20 23:10:34
|
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 2475 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 |