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

* replaced "movl mem,%eax; xorl %eax,%eax" with "movl mem,%eax;

Browse Source 
testl %eax,%eax"
This commit is contained in:
Jonas Maebe 1999-12-28 12:19:36 +00:00
parent 89314732f1
commit e2892ee93a
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/objpas/typinfo.pp
View File

@ -221,7 +221,7 @@ unit typinfo;
movl Address,%edi movl Address,%edi
// ? Indexed function // ? Indexed function
movl Index,%eax movl Index,%eax
xorl %eax,%eax testl %eax,%eax
je .LINoPush je .LINoPush
movl IValue,%eax movl IValue,%eax
pushl %eax pushl %eax
@ -231,7 +231,7 @@ unit typinfo;
// now the result is in EAX // now the result is in EAX
end; end;
function CallIntegerProc(s : Pointer;Address : Pointer;Value : Integer; INdex,IVAlue : Longint) : Integer;assembler; function CallIntegerProc(s : Pointer;Address : Pointer;Value : Integer; INdex,IValue : Longint) : Integer;assembler;
asm asm
movl S,%esi movl S,%esi
movl Address,%edi movl Address,%edi
@ -240,7 +240,7 @@ unit typinfo;
pushl %eax pushl %eax
// ? Indexed procedure // ? Indexed procedure
movl Index,%eax movl Index,%eax
xorl %eax,%eax testl %eax,%eax
je .LIPNoPush je .LIPNoPush
movl IValue,%eax movl IValue,%eax
pushl %eax pushl %eax
@ -255,7 +255,7 @@ unit typinfo;
movl Address,%edi movl Address,%edi
// ? Indexed function // ? Indexed function
movl Index,%eax movl Index,%eax
xorl %eax,%eax testl %eax,%eax
je .LINoPush je .LINoPush
movl IValue,%eax movl IValue,%eax
pushl %eax pushl %eax
@ -276,7 +276,7 @@ unit typinfo;
pushl 8(%eax) pushl 8(%eax)
// ? Indexed procedure // ? Indexed procedure
movl Index,%eax movl Index,%eax
xorl %eax,%eax testl %eax,%eax
je .LIPNoPush je .LIPNoPush
movl IValue,%eax movl IValue,%eax
pushl %eax pushl %eax
@ -291,7 +291,7 @@ unit typinfo;
movl Address,%edi movl Address,%edi
// ? Indexed function // ? Indexed function
movl Index,%eax movl Index,%eax
xorl %eax,%eax testl %eax,%eax
je .LBNoPush je .LBNoPush
movl IValue,%eax movl IValue,%eax
pushl %eax pushl %eax
@ -311,7 +311,7 @@ unit typinfo;
movl Address,%edi movl Address,%edi
// ? Indexed function // ? Indexed function
movl Index,%eax movl Index,%eax
xorl %eax,%eax testl %eax,%eax
jnz .LSSNoPush jnz .LSSNoPush
movl IValue,%eax movl IValue,%eax
pushl %eax pushl %eax
@ -331,7 +331,7 @@ unit typinfo;
pushl %eax pushl %eax
// ? Indexed procedure // ? Indexed procedure
movl Index,%eax movl Index,%eax
xorl %eax,%eax testl %eax,%eax
jnz .LSSPNoPush jnz .LSSPNoPush
movl IValue,%eax movl IValue,%eax
pushl %eax pushl %eax
@ -807,7 +807,11 @@ end.
{ {
$Log$ $Log$
Revision 1.30 1999-11-06 14:41:31 peter Revision 1.31 1999-12-28 12:19:36 jonas
* replaced "movl mem,%eax; xorl %eax,%eax" with "movl mem,%eax;
testl %eax,%eax"
Revision 1.30 1999/11/06 14:41:31 peter
* truncated log * truncated log
Revision 1.29 1999/09/16 08:59:48 florian Revision 1.29 1999/09/16 08:59:48 florian