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

+ code for fail for class

Browse Source
This commit is contained in:
pierre 1999-10-05 20:50:06 +00:00
parent 2aca3b7908
commit 7e716ff478
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/i386/i386.inc
View File

@ -231,6 +231,7 @@ asm
orl %eax,%eax orl %eax,%eax
.LHC_5: .LHC_5:
end; end;
{$define FPC_SYSTEM_HAS_FPC_HELP_FAIL}
procedure int_help_fail;assembler;[public,alias:'FPC_HELP_FAIL']; procedure int_help_fail;assembler;[public,alias:'FPC_HELP_FAIL'];
{ should be called with a object that needs to be { should be called with a object that needs to be
@ -372,8 +373,22 @@ asm
popl %edi popl %edi
end; end;
{$define FPC_SYSTEM_HAS_FPC_HELP_FAIL_CLASS}
procedure int_help_fail_class;assembler;[public,alias:'FPC_HELP_FAIL_CLASS'];
{ a non zero class must allways be disposed
VMT is allways at pos 0 }
asm
orl %esi,%esi
je .LHFC_1
call FPC_DISPOSE_CLASS
{ set both object places to zero }
xorl %esi,%esi
movl %esi,8(%ebp)
.LHFC_1:
end;
{ checks for a correct vmt pointer }
{$define FPC_SYSTEM_HAS_FPC_CHECK_OBJECT} {$define FPC_SYSTEM_HAS_FPC_CHECK_OBJECT}
@ -818,8 +833,8 @@ procedure int_boundcheck;[public,alias: 'FPC_BOUNDCHECK'];
begin begin
{$else not SYSTEMDEBUG} {$else not SYSTEMDEBUG}
procedure int_boundcheck;assembler;[public,alias: 'FPC_BOUNDCHECK']; procedure int_boundcheck;assembler;[public,alias: 'FPC_BOUNDCHECK'];
{$endif not SYSTEMDEBUG}
var dummy_to_force_stackframe_generation_for_trace: Longint; var dummy_to_force_stackframe_generation_for_trace: Longint;
{$endif not SYSTEMDEBUG}
{ {
called with: called with:
%ecx - value %ecx - value
@ -869,7 +884,10 @@ end;
{ {
$Log$ $Log$
Revision 1.55 1999-09-17 17:14:11 peter Revision 1.56 1999-10-05 20:50:06 pierre
+ code for fail for class
Revision 1.55 1999/09/17 17:14:11 peter
+ new heap manager supporting delphi freemem(pointer) + new heap manager supporting delphi freemem(pointer)
Revision 1.54 1999/09/15 13:04:04 jonas Revision 1.54 1999/09/15 13:04:04 jonas