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

* fixed assembler code that was enabled in r20968 (push/pop changed ebx

Browse Source 
and edi)

git-svn-id: trunk@21382 -
This commit is contained in:
Jonas Maebe 2012-05-24 15:34:33 +00:00
parent ffe68ca284
commit 3c6c4dff30
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,6 +32,8 @@ procedure Tbzip2_decode_stream.detransform;assembler;
asm
{ mov edx,offset c
call mcount}
push ebx
push edi
xor edx,edx
lea ebx,[eax+Tbzip2_decode_stream.cftab]
mov ecx,[eax+Tbzip2_decode_stream.tt_count]
@ -53,4 +55,6 @@ asm
jne @a1
pop ebp
pop esi
end ['eax','ebx','ecx','edx','edi'];
pop edi
pop ebx
end ['eax','ecx','edx'];

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

@ -7,6 +7,8 @@ procedure TDecompressBzip2Stream.detransform;assembler;
asm
{ mov edx,offset c
call mcount}
push ebx
push edi
xor edx,edx
lea ebx,[eax+TDecompressBzip2Stream.cftab]
mov ecx,[eax+TDecompressBzip2Stream.tt_count]
@ -28,4 +30,6 @@ asm
jne @a1
pop ebp
pop esi
end ['eax','ebx','ecx','edx','edi'];
pop edi
pop ebx
end ['eax','ecx','edx'];