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

* fix for FPC_HELP_FAIL_CLASS

Browse Source
This commit is contained in:
pierre 1999-10-08 14:40:54 +00:00
parent 0fa97f88ea
commit e8f2eba064
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/i386/i386.inc
View File

@ -381,7 +381,7 @@ procedure int_help_fail_class;assembler;[public,alias:'FPC_HELP_FAIL_CLASS'];
asm
orl %esi,%esi
je .LHFC_1
call FPC_DISPOSE_CLASS
call INT_DISPOSE_CLASS
{ set both object places to zero }
xorl %esi,%esi
movl %esi,8(%ebp)
@ -884,7 +884,10 @@ end;
{
$Log$
Revision 1.56 1999-10-05 20:50:06 pierre
Revision 1.57 1999-10-08 14:40:54 pierre
* fix for FPC_HELP_FAIL_CLASS
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