Browse Source

* vmtmethodoffset made cross target compatible

pierre 26 years ago
parent
commit
7982d8c842
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/symdef.inc

+ 6 - 3
compiler/symdef.inc

@@ -3198,9 +3198,9 @@ Const local_symtable_index : longint = $8001;
       begin
         { for offset of methods for classes, see rtl/inc/objpash.inc }
         if is_class then
-         vmtmethodoffset:=index*4+48
+         vmtmethodoffset:=(index+12)*target_os.size_of_pointer
         else
-         vmtmethodoffset:=index*4+12;
+         vmtmethodoffset:=(index+3)*target_os.size_of_pointer;
       end;
 
 
@@ -3629,7 +3629,10 @@ Const local_symtable_index : longint = $8001;
 
 {
   $Log$
-  Revision 1.148  1999-08-10 12:32:13  pierre
+  Revision 1.149  1999-08-10 13:22:08  pierre
+   * vmtmethodoffset made cross target compatible
+
+  Revision 1.148  1999/08/10 12:32:13  pierre
    * avoid overflow in tarraydef.size
 
   Revision 1.147  1999/08/09 22:19:55  peter