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
|
