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

2007-11-19 19:03 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/source/compiler/hbopt.c
    ! fixed HB_P_MACROFUNC optimization
This commit is contained in:
Mindaugas Kavaliauskas
2007-11-19 17:04:06 +00:00
parent 3d9bb70ea4
commit 1fcc352cbb
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-11-19 19:03 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/source/compiler/hbopt.c
! fixed HB_P_MACROFUNC optimization
2007-11-19 15:25 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+ contrib/examples/dbu
+ contrib/examples/dbu/readme.txt

8
harbour/source/compiler/hbopt.c
View File

@@ -680,13 +680,13 @@ static HB_OPT_FUNC( hb_p_functionshort )
static HB_OPT_FUNC( hb_p_macrofunc )
{
if( pFunc->pCode[ lPCodePos + 1 ] == HB_P_RETVALUE &&
! hb_compIsJump( cargo->HB_COMP_PARAM, pFunc, lPCodePos + 1 ) )
if( pFunc->pCode[ lPCodePos + 3 ] == HB_P_RETVALUE &&
! hb_compIsJump( cargo->HB_COMP_PARAM, pFunc, lPCodePos + 3 ) )
{
pFunc->pCode[ lPCodePos ] = HB_P_MACRODO;
hb_compNOOPfill( pFunc, lPCodePos + 1, 1, FALSE, FALSE );
hb_compNOOPfill( pFunc, lPCodePos + 3, 1, FALSE, FALSE );
}
return 1;
return 3;
}
static HB_OPT_FUNC( hb_p_endblock )