[Win32forth-cvs] win32forth/src FLOAT.F,1.40,1.41

[George H. <geo...@us...>]

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

Modified Files:
	FLOAT.F 
Log Message:
gah: More Dexing (still work in progress) optimizations and bug fixes

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** FLOAT.F	21 Feb 2006 11:03:56 -0000	1.40
--- FLOAT.F	23 Feb 2006 16:02:18 -0000	1.41
***************
*** 2236,2239 ****
--- 2236,2243 ----
  \ *N Debugging tools
  
+ internal
+ 
+ in-system
+ 
  create allregs 110 allot
  
***************
*** 2303,2306 ****
--- 2307,2312 ----
                  drop ;
  
+ external
+ 
  : fdump         ( -- )      \ W32F        Floating debug
  \ *G Dump of the real Floating Point Unit.
***************
*** 2351,2356 ****
  fvariable ftemp
  
- external
- 
  : .ftempx       ( -- )
                  0 B/FLOAT 1-
--- 2357,2360 ----
***************
*** 2358,2361 ****
--- 2362,2367 ----
                  -1 +LOOP ;
  
+ external
+ 
  : f.x           ( fs: r1 r2 ... rn -- r1 r2 ... rn )     \ Hex dump of fstack
                  fdepth
***************
*** 2377,2382 ****
  \ the body of its own definition so it can display it easily.
  
- in-system
- 
  : .onefloat     ( -- r1 )
                  f0.0 g. ;
--- 2383,2386 ----
***************
*** 2420,2424 ****
  : FLOAT-RESET-STACKS ( ?? -- ) \ reset stack
                  finit turnkeyed? ?exit
! \in-system-ok   0 to fsp-cached? ;
  
  reset-stack-chain chain-add FLOAT-RESET-STACKS
--- 2424,2428 ----
  : FLOAT-RESET-STACKS ( ?? -- ) \ reset stack
                  finit turnkeyed? ?exit
! \in-system-ok   0 to fsp-cached? 0 to fsp-adjust ;
  
  reset-stack-chain chain-add FLOAT-RESET-STACKS