gforth/glocals.fs - diff

Return to glocals.fs CVS log

Up to [gforth] / gforth

version 1.9, 1995/01/30 18:47:50	version 1.11, 1995/04/20 09:42:54
Line 64	Line 64
include search-order.fs	include search-order.fs
include float.fs	include float.fs

: compile-@local ( n -- )	: compile-@local ( n -- ) \ new compile-fetch-local
case	case
0 of postpone @local0 endof	0 of postpone @local0 endof
1 cells of postpone @local1 endof	1 cells of postpone @local1 endof
Line 73 include float.fs	Line 73 include float.fs
( otherwise ) dup postpone @local# ,	( otherwise ) dup postpone @local# ,
endcase ;	endcase ;

: compile-f@local ( n -- )	: compile-f@local ( n -- ) \ new compile-f-fetch-local
case	case
0 of postpone f@local0 endof	0 of postpone f@local0 endof
1 floats of postpone f@local1 endof	1 floats of postpone f@local1 endof
Line 498 forth definitions	Line 498 forth definitions
OF POSTPONE laddr# >body @ lp-offset, POSTPONE d! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE d! ENDOF
[ ' flocal >definer ] literal	[ ' flocal >definer ] literal
OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF	OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
abort" can only store TO value or local value"	-&32 throw
endcase	endcase
else	else
[ ' locals-wordlist >definer ] literal =	[ ' locals-wordlist >definer ] literal =
if	if
>body !	>body !
else	else
abort" can only store TO value"	-&32 throw
endif	endif
endif ; immediate	endif ; immediate