gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.107, 2004/11/11 20:13:53	version 1.108, 2004/12/08 11:56:30
Line 109 const Create bases 0A , 10 , 2 , 0	Line 109 const Create bases 0A , 10 , 2 , 0

\ !! protect BASE saving wrapper against exceptions	\ !! protect BASE saving wrapper against exceptions
: getbase ( addr u -- addr' u' )	: getbase ( addr u -- addr' u' )
	2dup s" 0x" string-prefix? >r
	2dup s" 0X" string-prefix? r> or
	base @ #33 < and if
	hex 2 /string
	endif
over c@ [char] # - dup 5 u<	over c@ [char] # - dup 5 u<
IF	IF
cells bases + @ base ! 1 /string	cells bases + @ base ! 1 /string