version 1.54, 2003/01/31 22:45:11
|
version 1.58, 2007/01/25 09:11:08
|
Line 1
|
Line 1
|
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw |
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw |
|
|
\ Copyright (C) 1995,1998,2000 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1998,2000,2003,2005 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 36 decimal
|
Line 36 decimal
|
|
|
\ !! 2value |
\ !! 2value |
|
|
|
[ifundef] 2literal |
: 2Literal ( compilation w1 w2 -- ; run-time -- w1 w2 ) \ double two-literal |
: 2Literal ( compilation w1 w2 -- ; run-time -- w1 w2 ) \ double two-literal |
\G Compile appropriate code such that, at run-time, cell pair @i{w1, w2} are |
\G Compile appropriate code such that, at run-time, cell pair @i{w1, w2} are |
\G placed on the stack. Interpretation semantics are undefined. |
\G placed on the stack. Interpretation semantics are undefined. |
swap postpone Literal postpone Literal ; immediate restrict |
swap postpone Literal postpone Literal ; immediate restrict |
|
[then] |
|
|
' drop alias d>s ( d -- n ) \ double d_to_s |
' drop alias d>s ( d -- n ) \ double d_to_s |
|
|
Line 48 decimal
|
Line 50 decimal
|
\G In ANS Forth u3 can only be a positive signed number. |
\G In ANS Forth u3 can only be a positive signed number. |
>r s>d >r abs -rot |
>r s>d >r abs -rot |
s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um* |
s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um* |
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod nip swap |
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod -rot |
r> IF dnegate THEN ; |
r> IF IF 1. d+ THEN dnegate ELSE drop THEN ; |
|
|
\ CASE OF ENDOF ENDCASE 17may93jaw |
\ CASE OF ENDOF ENDCASE 17may93jaw |
|
|