gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.45, 2004/12/08 11:26:59	version 1.48, 2005/12/31 15:46:08
Line 1	Line 1
\ High level floating point 14jan94py	\ High level floating point 14jan94py

\ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,2003,2004,2005 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 142 require debugs.fs	Line 142 require debugs.fs
2drop false	2drop false
THEN ;	THEN ;

:noname ( c-addr u -- )	[ifundef] compiler-notfound1
	defer compiler-notfound1
	' no.extensions IS compiler-notfound1

	:noname compiler-notfound1 execute ; is compiler-notfound

	defer interpreter-notfound1
	' no.extensions IS interpreter-notfound1

	:noname interpreter-notfound1 execute ; is interpreter-notfound
	[then]

	:noname ( c-addr u -- ... xt )
2dup sfnumber	2dup sfnumber
IF	IF
2drop POSTPONE FLiteral	2drop [comp'] FLiteral
ELSE	ELSE
defers compiler-notfound	defers compiler-notfound1
ENDIF ;	ENDIF ;
IS compiler-notfound	IS compiler-notfound1

:noname ( c-addr u -- r )	:noname ( c-addr u -- ... xt )
2dup sfnumber	2dup sfnumber
IF	IF
2drop	2drop ['] noop
ELSE	ELSE
defers interpreter-notfound	defers interpreter-notfound1
ENDIF ;	ENDIF ;
IS interpreter-notfound	IS interpreter-notfound1

: fvariable ( "name" -- ) \ float f-variable	: fvariable ( "name" -- ) \ float f-variable
Create 0.0E0 f, ;	Create 0.0E0 f, ;