version 1.214, 2007/06/23 19:45:14
|
version 1.216, 2007/07/06 12:54:56
|
Line 602 i' ( R:w R:w2 -- R:w R:w2 w ) gforth i
|
Line 602 i' ( R:w R:w2 -- R:w R:w2 w ) gforth i
|
r> r> r> dup itmp ! >r >r >r itmp @ ; |
r> r> r> dup itmp ! >r >r >r itmp @ ; |
variable itmp |
variable itmp |
|
|
j ( R:n R:d1 -- n R:n R:d1 ) core |
j ( R:w R:w1 R:w2 -- w R:w R:w1 R:w2 ) core |
: |
: |
\ rp@ cell+ cell+ cell+ @ ; |
\ rp@ cell+ cell+ cell+ @ ; |
r> r> r> r> dup itmp ! >r >r >r >r itmp @ ; |
r> r> r> r> dup itmp ! >r >r >r >r itmp @ ; |
[IFUNDEF] itmp variable itmp [THEN] |
[IFUNDEF] itmp variable itmp [THEN] |
|
|
k ( R:n R:d1 R:d2 -- n R:n R:d1 R:d2 ) gforth |
k ( R:w R:w1 R:w2 R:w3 R:w4 -- w R:w R:w1 R:w2 R:w3 R:w4 ) gforth |
: |
: |
\ rp@ [ 5 cells ] Literal + @ ; |
\ rp@ [ 5 cells ] Literal + @ ; |
r> r> r> r> r> r> dup itmp ! >r >r >r >r >r >r itmp @ ; |
r> r> r> r> r> r> dup itmp ! >r >r >r >r >r >r itmp @ ; |
Line 2110 floor ( r1 -- r2 ) float
|
Line 2110 floor ( r1 -- r2 ) float
|
/* !! unclear wording */ |
/* !! unclear wording */ |
r2 = floor(r1); |
r2 = floor(r1); |
|
|
fround ( r1 -- r2 ) gforth f_round |
fround ( r1 -- r2 ) float f_round |
""Round to the nearest integral value."" |
""Round to the nearest integral value."" |
r2 = rint(r1); |
r2 = rint(r1); |
|
|