|
@@ -580,7 +580,6 @@
|
|
|
savesize:=2
|
|
savesize:=2
|
|
|
else
|
|
else
|
|
|
savesize:=1;
|
|
savesize:=1;
|
|
|
- writeln('enum: ',aktpackenum,' save: ',savesize);
|
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
@@ -2308,14 +2307,14 @@
|
|
|
name:=stringdup(readstring);
|
|
name:=stringdup(readstring);
|
|
|
childof:=pobjectdef(readdefref);
|
|
childof:=pobjectdef(readdefref);
|
|
|
options:=readlong;
|
|
options:=readlong;
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
oldread_member:=read_member;
|
|
oldread_member:=read_member;
|
|
|
read_member:=true;
|
|
read_member:=true;
|
|
|
object_options:=true;
|
|
object_options:=true;
|
|
|
publicsyms:=new(psymtable,loadasstruct(objectsymtable));
|
|
publicsyms:=new(psymtable,loadasstruct(objectsymtable));
|
|
|
object_options:=false;
|
|
object_options:=false;
|
|
|
read_member:=oldread_member;
|
|
read_member:=oldread_member;
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
publicsyms^.defowner:=@self;
|
|
publicsyms^.defowner:=@self;
|
|
|
publicsyms^.datasize:=savesize;
|
|
publicsyms^.datasize:=savesize;
|
|
|
publicsyms^.name := stringdup(name^);
|
|
publicsyms^.name := stringdup(name^);
|
|
@@ -2450,7 +2449,7 @@
|
|
|
writedefref(childof);
|
|
writedefref(childof);
|
|
|
writelong(options);
|
|
writelong(options);
|
|
|
current_ppu^.writeentry(ibobjectdef);
|
|
current_ppu^.writeentry(ibobjectdef);
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
oldread_member:=read_member;
|
|
oldread_member:=read_member;
|
|
|
read_member:=true;
|
|
read_member:=true;
|
|
|
object_options:=true;
|
|
object_options:=true;
|
|
@@ -2629,7 +2628,10 @@
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.29 1998-09-01 12:53:25 peter
|
|
|
|
|
|
|
+ Revision 1.30 1998-09-01 17:37:29 peter
|
|
|
|
|
+ * removed debug writeln :(
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.29 1998/09/01 12:53:25 peter
|
|
|
+ aktpackenum
|
|
+ aktpackenum
|
|
|
|
|
|
|
|
Revision 1.28 1998/09/01 07:54:22 pierre
|
|
Revision 1.28 1998/09/01 07:54:22 pierre
|
peter