From 1e9ae4a7ea02b51fb225d0c4440b581bb7c694bd Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 15 Oct 1998 12:37:42 +0000
Subject: [PATCH]   + passes vmt offset to HELP_CONSTRUCTOR for objects

---
 compiler/cga68k.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/cga68k.pas b/compiler/cga68k.pas
index 208b8ecfa0..6f139149fe 100644
--- a/compiler/cga68k.pas
+++ b/compiler/cga68k.pas
@@ -587,6 +587,7 @@ begin
               procinfo.aktentrycode^.insert(new(pai68k,op_csymbol(A_JSR,S_NO,
               newcsymbol('FPC_HELP_CONSTRUCTOR',0))));
               concat_external('FPC_HELP_CONSTRUCTOR',EXT_NEAR);
+              procinfo.aktentrycode^.insert(new(pai68k,op_const_reg(A_MOVE,S_L,procinfo._class^.vmt_offset,R_D0)));
              end;
         end;
     { don't load ESI, does the caller }
@@ -1344,7 +1345,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.23  1998-10-14 11:28:22  florian
+  Revision 1.24  1998-10-15 12:37:42  pierre
+    + passes vmt offset to HELP_CONSTRUCTOR for objects
+
+  Revision 1.23  1998/10/14 11:28:22  florian
     * emitpushreferenceaddress gets now the asmlist as parameter
     * m68k version compiles with -duseansistrings