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

20000421-10:09

Browse Source
This commit is contained in:
Antonio Linares
2000-04-21 08:08:34 +00:00
parent 84c34d5733
commit de517ca69e
1 changed files with 3 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
harbour/source/compiler/genobj32.c
View File

@@ -150,14 +150,7 @@ static ULONG GetPCodesSize( void )
while( pFunction )
{
ulTotal += pFunction->lPCodePos; // + 1; /* HB_P_ENDPROC !!! */
if( ! ( GetFunctionLocalsCount( pFunction ) || pFunction->wParamCount ) )
ulTotal -= 3; /* remove frame 3 bytes pcode */
if( ! ( pFunction->bFlags & FUN_USES_STATICS ) )
ulTotal -= 3; /* remove statics frame */
ulTotal += pFunction->lPCodePos;
pFunction = pFunction->pNext;
}
return ulTotal;
@@ -476,14 +469,7 @@ static void CodeSegment( FILE * hObjFile, BYTE * prgCode, ULONG ulPrgLen, USHORT
* ( ULONG * ) &prgCode[ 6 ] = ulPCodeOffset; /* function pcode offset */
for( ul = 0; ul < ulPrgLen; ul++ )
putbyte( * ( prgCode + ul ), hObjFile, &bChk );
ulPCodeOffset += pFunction->lPCodePos; // + 1; /* HB_P_ENDPROC !!! */
if( ! ( GetFunctionLocalsCount( pFunction ) || pFunction->wParamCount ) )
ulPCodeOffset -= 3; /* remove frame 3 bytes pcode */
if( ! ( pFunction->bFlags & FUN_USES_STATICS ) )
ulPCodeOffset -= 3; /* remove statics frame */
ulPCodeOffset += pFunction->lPCodePos;
pFunction = pFunction->pNext;
}
@@ -662,4 +648,4 @@ static void GroupDef( FILE * hObjFile, BYTE bName, BYTE * aSegs )
}
putbyte( 256 - bChk, hObjFile, &bChk );
}
}