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

20000420-23:58 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-04-20 21:56:17 +00:00
parent 95cc9edc73
commit caac685f3e
3 changed files with 19 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
20000420-23:58 GMT+1 Victor Szakats <info@szelvesz.hu>
* source/compiler/genc.c
! STATICS and SFRAME fixed with -gc0 mode.
* source/compiler/genhrb.c
! STATICS fixed. (please check)
20000420-23:33 GMT+1 Victor Szakats <info@szelvesz.hu>
* tests/Makefile

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

@@ -1429,21 +1429,22 @@ static void hb_compGenCCompact( PFUNCTION pFunc )
/* we only generate it if there are statics used in this function */
if( pFunc->bFlags & FUN_USES_STATICS )
{
hb_fputc( pFunc->pCode[ lPCodePos++ ] );
hb_fputc( pFunc->pCode[ lPCodePos++ ] );
hb_fputc( pFunc->pCode[ lPCodePos++ ] );
hb_compSymbolFind( hb_comp_pInitFunc->szName, &w );
hb_fputc( pFunc->pCode[ lPCodePos ] );
hb_fputc( HB_LOBYTE( w ) );
hb_fputc( HB_HIBYTE( w ) );
}
else
lPCodePos += 3;
lPCodePos += 3;
break;
case HB_P_STATICS:
hb_fputc( pFunc->pCode[ lPCodePos++ ] );
hb_fputc( pFunc->pCode[ lPCodePos++ ] );
hb_fputc( pFunc->pCode[ lPCodePos++ ] );
hb_fputc( pFunc->pCode[ lPCodePos++ ] );
hb_fputc( pFunc->pCode[ lPCodePos++ ] );
hb_compSymbolFind( hb_comp_pInitFunc->szName, &w );
hb_fputc( pFunc->pCode[ lPCodePos ] );
hb_fputc( HB_LOBYTE( w ) );
hb_fputc( HB_HIBYTE( w ) );
hb_fputc( pFunc->pCode[ lPCodePos + 3 ] );
hb_fputc( pFunc->pCode[ lPCodePos + 4 ] );
lPCodePos += 5;
break;
default:

1
harbour/source/compiler/genhrb.c
View File

@@ -345,7 +345,6 @@ void hb_compGenPortObj( PHB_FNAME pFileName )
fputc( pFunc->pCode[ lPCodePos++ ], yyc );
fputc( pFunc->pCode[ lPCodePos++ ], yyc );
fputc( pFunc->pCode[ lPCodePos++ ], yyc );
lPCodePos += 5;
break;
default: