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

* class destructor helper routine for the new calling copnventions fixed

Browse Source
This commit is contained in:
florian 1999-02-02 11:04:27 +00:00
parent 1941182a11
commit 769b8d8711
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/i386/i386.inc
View File

@ -278,9 +278,7 @@ end;
procedure int_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS']; procedure int_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS'];
asm asm
{ destroy class ? } { destroy class ? }
movl 8(%ebp),%edi movl 12(%ebp),%edi
{ save self }
movl %esi,8(%ebp)
orl %edi,%edi orl %edi,%edi
jz .LDISPOSE_CLASS1 jz .LDISPOSE_CLASS1
{ no inherited call } { no inherited call }
@ -290,8 +288,6 @@ asm
{ call freeinstance } { call freeinstance }
call *20(%edi) call *20(%edi)
.LDISPOSE_CLASS1: .LDISPOSE_CLASS1:
{ load self }
movl 8(%ebp),%esi
end; end;
{$ASMMODE ATT} {$ASMMODE ATT}
@ -699,7 +695,10 @@ end;
{ {
$Log$ $Log$
Revision 1.37 1998-12-21 14:28:20 pierre Revision 1.38 1999-02-02 11:04:27 florian
* class destructor helper routine for the new calling copnventions fixed
Revision 1.37 1998/12/21 14:28:20 pierre
* HandleError -> HandleErrorFrame to avoid problem in * HandleError -> HandleErrorFrame to avoid problem in
assembler code in i386.inc assembler code in i386.inc
(call to overloaded function in assembler block !) (call to overloaded function in assembler block !)