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

* added some more $ifdef FPCNAMES

Browse Source
This commit is contained in:
peter 1998-09-28 11:02:34 +00:00
parent c27d0bd2e0
commit 8b2c09d032
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/i386/i386.inc
View File

@ -215,7 +215,7 @@ asm
end; end;
procedure int_new_class;assembler;[public,alias:'FPC_NEW_CLASS']; procedure int_new_class;assembler;[public,alias:{$ifdef FPCNAMES}'FPC_'+{$endif}'NEW_CLASS'];
asm asm
{ create class ? } { create class ? }
movl 8(%ebp),%edi movl 8(%ebp),%edi
@ -238,7 +238,7 @@ asm
end; end;
procedure int_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS']; procedure int_dispose_class;assembler;[public,alias:{$ifdef FPCNAMES}'FPC_'+{$endif}'DISPOSE_CLASS'];
asm asm
{ destroy class ? } { destroy class ? }
movl 8(%ebp),%edi movl 8(%ebp),%edi
@ -259,7 +259,7 @@ end;
{ checks for a correct vmt pointer } { checks for a correct vmt pointer }
procedure int_check_object;assembler;[public,alias:'FPC_CHECK_OBJECT']; procedure int_check_object;assembler;[public,alias:{$ifdef FPCNAMES}'FPC_'+{$endif}'CHECK_OBJECT'];
asm asm
pushl %edi pushl %edi
movl 8(%esp),%edi movl 8(%esp),%edi
@ -690,7 +690,10 @@ end;
{ {
$Log$ $Log$
Revision 1.24 1998-09-28 10:23:43 florian Revision 1.25 1998-09-28 11:02:34 peter
* added some more $ifdef FPCNAMES
Revision 1.24 1998/09/28 10:23:43 florian
* FPC_NEW_CLASS optimized: addl $0,%eax => orl %eax,%eax * FPC_NEW_CLASS optimized: addl $0,%eax => orl %eax,%eax
Revision 1.23 1998/09/28 08:40:47 michael Revision 1.23 1998/09/28 08:40:47 michael