paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* assembler wouldn't include always anymore ->changed i386 to cpui386.

Browse Source 
Changed assembler SELF reference from ESI to EAX. (probably now hidden param instead of fixed register ESI)
    Alternative solution for Mantis #21242

git-svn-id: trunk@20968 -
This commit is contained in:
marco 2012-04-21 21:32:27 +00:00
parent 5dac788b71
commit 9f6121e878
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/bzip2/src/bzip2.pas
View File

@ -87,7 +87,7 @@ Type
implementation
{$ifdef i386}
{$ifdef cpui386}
{$i bzip2i386.inc}
{$endif}

6
packages/bzip2/src/bzip2i386.inc
View File

@ -33,11 +33,11 @@ asm
{ mov edx,offset c
call mcount}
xor edx,edx
lea ebx,[esi+Tbzip2_decode_stream.cftab]
mov ecx,[esi+Tbzip2_decode_stream.tt_count]
lea ebx,[eax+Tbzip2_decode_stream.cftab]
mov ecx,[eax+Tbzip2_decode_stream.tt_count]
push esi
push ebp
mov esi,[esi+Tbzip2_decode_stream.tt]
mov esi,[eax+Tbzip2_decode_stream.tt]
mov edi,esi
lea ebp,[4*ecx+esi]
jmp @a2

6
packages/bzip2/src/bzip2si386.inc
View File

@ -8,11 +8,11 @@ asm
{ mov edx,offset c
call mcount}
xor edx,edx
lea ebx,[esi+TDecompressBzip2Stream.cftab]
mov ecx,[esi+TDecompressBzip2Stream.tt_count]
lea ebx,[eax+TDecompressBzip2Stream.cftab]
mov ecx,[eax+TDecompressBzip2Stream.tt_count]
push esi
push ebp
mov esi,[esi+TDecompressBzip2Stream.tt]
mov esi,[eax+TDecompressBzip2Stream.tt]
mov edi,esi
lea ebp,[4*ecx+esi]
jmp @a2

2
packages/bzip2/src/bzip2stream.pp
View File

@ -96,7 +96,7 @@ Type
implementation
{$ifdef i386}
{$ifdef cpui386}
{$i bzip2si386.inc}
{$endif}