fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-06-02 21:16 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/vm/hvm.c
     % Minor opt to __SETPROFILE(), __TRACEPRGCALLS()
     ! __SETPROFILE() to only set the value if a parameter was passed.
       This way it's possible to read the value without destroying it.
This commit is contained in:
Viktor Szakats
2008-06-02 19:19:50 +00:00
parent a7eba2ff2f
commit fa7dcb44ea
2 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-06-02 21:16 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/vm/hvm.c
% Minor opt to __SETPROFILE(), __TRACEPRGCALLS()
! __SETPROFILE() to only set the value if a parameter was passed.
This way it's possible to read the value without destroying it.
2008-06-02 20:16 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/common/hbstr.c
! HB_EXPORT added to hb_strRemEscSeq(). Thanks Javier.

19
harbour/source/vm/hvm.c
View File

@@ -9668,14 +9668,12 @@ void hb_vmIsStaticRef( void )
* $End$ */
HB_FUNC( __SETPROFILER )
{
#ifndef HB_NO_PROFILER
BOOL bOldValue = hb_bProfiler;
hb_bProfiler = hb_parl( 1 );
hb_retl( bOldValue );
#else
#ifdef HB_NO_PROFILER
hb_retl( FALSE );
#else
hb_retl( hb_bProfiler );
if( ISLOG( 1 ) )
hb_bProfiler = hb_parl( 1 );
#endif
}
@@ -9688,10 +9686,9 @@ HB_FUNC( __TRACEPRGCALLS )
#ifdef HB_NO_TRACE
hb_retl( FALSE );
#else
BOOL bOldValue = hb_bTracePrgCalls;
hb_retl( hb_bTracePrgCalls );
if( ISLOG( 1 ) )
hb_bTracePrgCalls = hb_parl( 1 );
hb_retl( bOldValue );
#endif
}
@@ -9718,8 +9715,8 @@ HB_FUNC( __OPGETPRF ) /* profiler: It returns an array with an opcode called and
hb_reta( 2 );
#endif
{
hb_stornl( 0, -1, 1 );
hb_stornl( 0, -1, 2 );
hb_stornl( 0, -1, 1 );
hb_stornl( 0, -1, 2 );
}
}