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

2006-07-16 16:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/compiler/genc.c
    - removed debug message I left by mistake

  * harbour/bin/hb-func.sh
    * use by default -gc0 output when compiled as temporary workaround
      for GPF in -gc2
This commit is contained in:
Przemyslaw Czerpak
2006-07-16 14:18:39 +00:00
parent a854da38b2
commit 9fae0a713a
3 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2006-07-16 16:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/compiler/harbour.c
! fixed typo in binary or - || was used instead of |
* reenabled frame optimization for compilation without -n switch
2006-07-16 16:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/compiler/genc.c
- removed debug message I left by mistake
* harbour/bin/hb-func.sh
* use by default -gc0 output when compiled as temporary workaround

1
harbour/bin/hb-func.sh
View File

@@ -292,6 +292,7 @@ GCC_PATHS="\${HB_PATHS} -L\${HB_LIB_INSTALL}"
LN_OPT="${CC_L_USR}"
CC_OPT="${CC_C_USR}"
HB_OPT="${CC_PRG_USR}"
[ "\${HB_GEN}" != "" ] || HB_OPT="\${HB_OPT} -gc0"
HB_GPM_LIB=""
if [ -f "\${HB_LIB_INSTALL}/libgtsln.a" ]; then

6
harbour/source/compiler/genc.c
View File

@@ -1115,13 +1115,9 @@ static HB_GENC_FUNC( hb_p_popstatic )
PVAR pVar;
PFUNCTION pTmp = hb_comp_functions.pFirst;
USHORT wVar = HB_PCODE_MKUSHORT( &( pFunc->pCode[ lPCodePos + 1 ] ) );
printf("\r\npTmp=%p, iStaticsBase=%d, wVar=%d\r\n", pTmp, pTmp->iStaticsBase, wVar);fflush(stdout);
while( pTmp->pNext && pTmp->pNext->iStaticsBase < wVar )
{
printf("pTmp=%p, iStaticsBase=%d\r\n", pTmp, pTmp->iStaticsBase);fflush(stdout);
pTmp = pTmp->pNext;
}
printf("pStatics=%p, var=%d\r\n", pTmp->pStatics, wVar - pTmp->iStaticsBase);fflush(stdout);
pVar = hb_compVariableFind( pTmp->pStatics, wVar - pTmp->iStaticsBase );
fprintf( cargo->yyc, "\t/* %s */", pVar->szName );