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

* add alias for fpc_dispose_class so it can be called from

Browse Source 
fpc_help_fail_class
This commit is contained in:
peter 2002-09-03 15:43:36 +00:00
parent da3e0ada37
commit 685caf03b6
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/i386/i386.inc
View File

@ -609,6 +609,9 @@ asm
end;
{ Internal alias that can be reference from asm code }
procedure int_dispose_class;external name 'FPC_DISPOSE_CLASS';
{$define FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS}
procedure fpc_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS']; {$ifdef hascompilerproc} compilerproc; {$endif}
asm
@ -645,7 +648,9 @@ procedure fpc_help_fail_class;assembler;[public,alias:'FPC_HELP_FAIL_CLASS']; {$
asm
testl %esi,%esi
je .LHFC_1
call FPC_DISPOSE_CLASS
{ can't use the compilerproc version as that will generate a
reference instead of a symbol }
call int_dispose_class
{ set both object places to zero }
xorl %esi,%esi
movl %esi,8(%ebp)
@ -1176,7 +1181,11 @@ procedure inclocked(var l : longint);assembler;
{
$Log$
Revision 1.27 2002-08-19 19:34:02 peter
Revision 1.28 2002-09-03 15:43:36 peter
* add alias for fpc_dispose_class so it can be called from
fpc_help_fail_class
Revision 1.27 2002/08/19 19:34:02 peter
* SYSTEMINLINE define that will add inline directives for small
functions and wrappers. This will be defined automaticly when
the compiler defines the HASINLINE directive