paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:09:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* more fixes

Browse Source
This commit is contained in:
florian 2000-11-06 23:05:52 +00:00
parent de70cf38b3
commit c12bff980d
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pdecobj.pas
View File

@ -881,7 +881,6 @@ implementation
procedure readparentclasses;
begin
{ reads the parent class }
if token=_LKLAMMER then
begin
@ -1157,7 +1156,10 @@ implementation
end.
{
$Log$
Revision 1.8 2000-11-06 20:30:55 peter
Revision 1.9 2000-11-06 23:05:52 florian
* more fixes
Revision 1.8 2000/11/06 20:30:55 peter
* more fixes to get make cycle working
Revision 1.7 2000/11/04 18:03:57 florian

9
compiler/symdef.pas
View File

@ -4055,6 +4055,9 @@ Const local_symtable_index : longint = $8001;
constructor tobjectdef.init(ot : tobjectdeftype;const n : string;c : pobjectdef);
begin
inherited init;
objecttype:=ot;
writeln(byte(ot));
writeln(byte(objecttype));
deftype:=objectdef;
objectoptions:=[];
childof:=nil;
@ -4068,7 +4071,6 @@ Const local_symtable_index : longint = $8001;
set_parent(c);
objname:=stringdup(n);
lastvtableindex:=0;
objecttype:=ot;
{ set up guid }
isiidguidvalid:=true; { default null guid }
@ -5521,7 +5523,10 @@ Const local_symtable_index : longint = $8001;
end.
{
$Log$
Revision 1.5 2000-11-06 20:30:55 peter
Revision 1.6 2000-11-06 23:05:52 florian
* more fixes
Revision 1.5 2000/11/06 20:30:55 peter
* more fixes to get make cycle working
Revision 1.4 2000/11/04 14:25:22 florian