Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26327/src
Modified Files:
Debug.f
Log Message:
Jos: Extended the debugger so that it can be used to show what is going on in the floating point stack. It is also possible to switch between the normal stack and the floating point stack.
Index: Debug.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Debug.f 3 Aug 2006 13:08:22 -0000 1.12
--- Debug.f 18 Sep 2006 10:33:25 -0000 1.13
***************
*** 430,433 ****
--- 430,444 ----
' .s-base is debug-.s
+ : f.s-debug ( -- ) \ display the floating point stack whiile debuging
+ fdepth
+ IF fdepth ." {" 1 .r ." } "
+ show-fp-depth fdepth umin dup 1- swap 0
+ DO 10 ?cr
+ dup i - fpick g.
+ LOOP
+ drop
+ ELSE ." Empty fp stack "
+ THEN ;
+
: base-toggle ( -- )
debug-base 0x10 =
***************
*** 694,699 ****
until tracing ;
! : debug ( -<name>- )
! ' adebug ;
synonym bp debug
--- 705,722 ----
until tracing ;
! : ndbg ( - ) \ Switch to the normal stack
! ['] .s-base is debug-.s ;
!
! : debug ( -<name>- ) \ Shows the normal stack while debugging
! ndbg ' adebug ;
!
! : fdbg ( - ) \ Switch to the floating point stack
! ['] f.s-debug is debug-.s ;
!
! : fdebug ( -<name>- ) \ Shows the floating point stack while debugging
! fdbg ' adebug ;
!
! \ fdbg and ndbg can be used after the F command while debugging.
! \ So you can switch between the stacks while debugging
synonym bp debug
|
