Update of /cvsroot/win32forth/win32forth/src/lib/fmacro
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11311
Modified Files:
PROFILER.F
Log Message:
Jos: Adapted for the current version of the debugger and removed a bug.
Index: PROFILER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/PROFILER.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** PROFILER.F 21 Dec 2004 00:19:10 -0000 1.1
--- PROFILER.F 21 Jun 2008 14:38:02 -0000 1.2
***************
*** 73,77 ****
: time-in-cycles ( - f ) #end #start f- ;
! : cycles>time ( - f ) 1e time-in-cycles cycle_time f* ;
' time-in-cycles is time_unit
--- 73,77 ----
: time-in-cycles ( - f ) #end #start f- ;
! : cycles>time ( - f ) time-in-cycles cycle_time f* ;
' time-in-cycles is time_unit
***************
*** 121,124 ****
--- 121,127 ----
;
+ : profile ( -<name>- ) \ Shows the elapsed time while profiling.
+ profiler ' adebug ;
+
previous
***************
*** 132,136 ****
init-debug-corr forget init-debug-corr
! \s Disable this line to see its use:
\ : test 30 0 do noop drop loop ;
--- 135,139 ----
init-debug-corr forget init-debug-corr
! \s Disable this line to see its use:
\ : test 30 0 do noop drop loop ;
***************
*** 138,144 ****
!
! profiler \ Change the output of the debugger
! debug test \ Aim the debugger at test
cr .( Hit the C to start or the Q to stop ) cr test \ Run the test
--- 141,145 ----
! profile test \ Aim the debugger at test and change the output of the debugger
cr .( Hit the C to start or the Q to stop ) cr test \ Run the test
|
