* changes for fail support

rtl/i386/i386.inc

@@ -193,7 +193,13 @@ asm
         jz      .LHC_5
       { init self for the constructor }
         movl    %esi,12(%ebp)
+        jmp     .LHC_6
+      { Why was the VMT reset to zero here ????
+        I need it fail to know if I should
+        zero the VMT field in static objects PM }
 .LHC_4:
+      {  movl    $0,8(%ebp)                      }
+.LHC_6:
       { is there a VMT address ? }
         orl     %eax,%eax
         jnz     .LHC_7
@@ -226,6 +232,39 @@ asm
 .LHC_5:
 end;
 
+procedure int_help_fail;assembler;[public,alias:'FPC_HELP_FAIL'];
+{ should be called with a object that needs to be
+  freed if VMT field is at -1
+  %edi contains VMT offset in object again }
+asm
+        orl    %esi,%esi
+        je     .LHF_1
+        cmpl   $-1,8(%ebp)
+        je     .LHF_2
+        { reset vmt field to zero for static instances }
+        cmpl    $0,8(%ebp)
+        je      .LHF_3
+        { main constructor, we can zero the VMT field now }
+        movl    $0,(%esi,%edi,1)
+.LHF_3:
+        { we zero esi to indicate failure }
+        xorl    %esi,%esi
+        jmp    .LHF_1
+.LHF_2:
+        { get vmt address in eax }
+        movl    (%esi,%edi,1),%eax
+        movl    %esi,12(%ebp)
+        { push object size }
+        pushl   (%eax)
+        { push object position }
+        leal    12(%ebp),%eax
+        pushl   %eax
+        call    FreeMem
+        { set both object places to zero }
+        xorl    %esi,%esi
+        movl    %esi,12(%ebp)
+.LHF_1:
+end;
 
 {$define FPC_SYSTEM_HAS_FPC_HELP_DESTRUCTOR}
 
@@ -833,7 +872,10 @@ end;
 
 {
   $Log$
-  Revision 1.52  1999-08-18 10:43:31  pierre
+  Revision 1.53  1999-08-19 12:50:08  pierre
+   * changes for fail support
+
+  Revision 1.52  1999/08/18 10:43:31  pierre
    + VMT reset to -1 if getmem called, neede for fail
 
   Revision 1.51  1999/08/09 22:20:02  peter