فهرست منبع

* tobjectdef.publicsyms.datasize was set to savesize, this is wrong now
because the symtable size is read from the ppu file

florian 27 سال پیش
والد
کامیت
75c7b44b80
1فایلهای تغییر یافته به همراه7 افزوده شده و 3 حذف شده
  1. 7 3
      compiler/symdef.inc

+ 7 - 3
compiler/symdef.inc

@@ -2512,7 +2512,7 @@
          object_options:=false;
          read_member:=oldread_member;
          publicsyms^.defowner:=@self;
-         publicsyms^.datasize:=savesize;
+         { publicsyms^.datasize:=savesize; }
          publicsyms^.name := stringdup(name^);
 
          { handles the predefined class tobject  }
@@ -2521,7 +2521,7 @@
          if (name^='TOBJECT') and not(cs_compilesystem in aktmoduleswitches) and
            isclass and (childof=pointer($ffffffff)) then
            class_tobject:=@self;
-      end;
+       end;
 
 
    procedure tobjectdef.check_forwards;
@@ -3025,7 +3025,11 @@
 
 {
   $Log$
-  Revision 1.50  1998-09-23 15:46:40  florian
+  Revision 1.51  1998-09-25 12:01:41  florian
+    * tobjectdef.publicsyms.datasize was set to savesize, this is wrong now
+      because the symtable size is read from the ppu file
+
+  Revision 1.50  1998/09/23 15:46:40  florian
     * problem with with and classes fixed
 
   Revision 1.49  1998/09/23 12:03:55  peter