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

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

Update of /cvsroot/win32forth/win32forth/src/lib/fmacro
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13642

Modified Files:
	PROFILER.F 
Log Message:
Jos Supressing console messsages

Index: PROFILER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/PROFILER.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** PROFILER.F	21 Jun 2008 14:38:02 -0000	1.2
--- PROFILER.F	24 Jan 2014 13:55:55 -0000	1.3
***************
*** 115,126 ****
  
  : profiler   ( -- )
!         [']  elapsed  is debug-entry
!         ['] .tsc_time is debug-.s
!         [']  tsc_init is debug-exit
          rps
   ;
  
  : profile    ( -<name>- )    \ Shows the elapsed time while profiling.
!                 profiler  ' adebug ;
  
  previous
--- 115,126 ----
  
  : profiler   ( -- )
! \IN-SYSTEM-OK [']  elapsed  is debug-entry
! \IN-SYSTEM-OK ['] .tsc_time is debug-.s
! \IN-SYSTEM-OK [']  tsc_init is debug-exit
          rps
   ;
  
  : profile    ( -<name>- )    \ Shows the elapsed time while profiling.
! \IN-SYSTEM-OK	profiler  ' adebug ;
  
  previous