[Win32forth-cvs] win32forth/src/lib/fmacro PROFILER.F,1.1,1.2

[Jos v.d.V. <jo...@us...>]

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