gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.14, 1995/12/04 16:38:52	version 1.16, 1996/02/13 11:12:17
Line 37 decimal	Line 37 decimal
: 2Literal ( compilation w1 w2 -- ; run-time -- w1 w2 ) \ double two-literal	: 2Literal ( compilation w1 w2 -- ; run-time -- w1 w2 ) \ double two-literal
swap postpone Literal postpone Literal ; immediate restrict	swap postpone Literal postpone Literal ; immediate restrict

	' drop alias d>s ( d -- n ) \ double d_to_s

	: dabs ( d1 -- d2 ) \ double
	dup 0< IF dnegate THEN ;

: m*/ ( d1 n2 u3 -- dqout ) \ double m-star-slash	: m*/ ( d1 n2 u3 -- dqout ) \ double m-star-slash
>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*