paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 15:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed debug writeln :(

Browse Source
This commit is contained in:
peter 1998-09-01 17:37:29 +00:00
parent b8ff0c3320
commit d3671db8bf
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symdef.inc
View File

@ -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