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

ChangeLog 20000420-13:46 GMT+1

Browse Source
This commit is contained in:
Ryszard Glab
2000-04-20 11:29:47 +00:00
parent ef515cdb27
commit 1c92b6ed14
2 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -1,3 +1,13 @@
20000420-13:46 GMT+1 Ryszard Glab <rglab@imid.med.pl>
* source/compiler/genobj32.c
* Some little fixes after Antonio changes :)
NOTE:
JUMPSHORT uses 1 byte for jump offset
JUMP uses 2 bytes
JUMPFAR uses 3 bytes
plus 1 byte for the opcode itself
20000420-13:10 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/compiler/genobj32.c
* Some little fixes after Ryszard changes

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

@@ -553,9 +553,9 @@ static void DataSegment( FILE * hObjFile, BYTE * symbol, ULONG wSymLen, ULONG wS
{
switch( pFunction->pCode[ w ] )
{
case HB_P_JUMPFAR:
case HB_P_JUMPFARFALSE:
case HB_P_JUMPFARTRUE:
case HB_P_JUMPSHORT:
case HB_P_JUMPSHORTFALSE:
case HB_P_JUMPSHORTTRUE:
{
putbyte( pFunction->pCode[ w ], hObjFile, &bChk );
putbyte( pFunction->pCode[ w + 1 ], hObjFile, &bChk );
@@ -598,6 +598,9 @@ static void DataSegment( FILE * hObjFile, BYTE * symbol, ULONG wSymLen, ULONG wS
}
break;
case HB_P_JUMPFAR:
case HB_P_JUMPFARFALSE:
case HB_P_JUMPFARTRUE:
case HB_P_PARAMETER:
case HB_P_SEQBEGIN:
case HB_P_SEQEND: