[Win32forth-cvs] win32forth/src numconv.f,1.1,1.2

[Alex M. <ale...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14688/src

Modified Files:
	numconv.f 
Log Message:
arm: number chain didn't initialise flags; num-init added

Index: numconv.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/numconv.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** numconv.f	26 Apr 2005 19:56:49 -0000	1.1
--- numconv.f	11 Jun 2005 21:17:56 -0000	1.2
***************
*** 57,61 ****
  : run-numchain  ( addr len -- d1 )      \ run number chain;
                                          \ d1 is number, or -13 throw (undefined)
!                 2>r                     \ save string on rstack                        
                  number?-chain           \ run the number chain
                  begin @ dup
--- 57,61 ----
  : run-numchain  ( addr len -- d1 )      \ run number chain;
                                          \ d1 is number, or -13 throw (undefined)
!                 2>r                     \ save string on rstack
                  number?-chain           \ run the number chain
                  begin @ dup
***************
*** 126,129 ****
--- 126,130 ----
  
  : new-number    ( str -- d1 )           \ d1 is number, or -13 throw (undefined)
+                 num-init
                  uppercase count run-numchain ;