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

* fixed two bugs to get make cycle work, but it's not enough

Browse Source
This commit is contained in:
florian 2000-11-06 15:54:15 +00:00
parent fb6d6792f3
commit d5a2d64cf5
2 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ptconst.pas
View File

@ -739,7 +739,10 @@ implementation
else break; else break;
end; end;
end; end;
end; for i:=1 to def^.size-aktpos do
curconstsegment^.concat(new(pai_const,init_8bit(0)));
consume(_RKLAMMER);
end;
end; end;
{ reads a typed object } { reads a typed object }
objectdef: objectdef:
@ -835,7 +838,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.11 2000-11-04 14:25:21 florian Revision 1.12 2000-11-06 15:54:15 florian
* fixed two bugs to get make cycle work, but it's not enough
Revision 1.11 2000/11/04 14:25:21 florian
+ merged Attila's changes for interfaces, not tested yet + merged Attila's changes for interfaces, not tested yet
Revision 1.10 2000/10/31 22:02:51 peter Revision 1.10 2000/10/31 22:02:51 peter

21
compiler/symtable.pas
View File

@ -124,20 +124,6 @@ interface
systemunit : punitsymtable; { pointer to the system unit } systemunit : punitsymtable; { pointer to the system unit }
read_member : boolean; { reading members of an symtable } read_member : boolean; { reading members of an symtable }
aktprocsym : pprocsym; { pointer to the symbol for the
currently be parsed procedure }
aktcallprocsym : pprocsym; { pointer to the symbol for the
currently be called procedure,
only set/unset in firstcall }
aktvarsym : pvarsym; { pointer to the symbol for the
currently read var, only used
for variable directives }
procprefix : string; { eindeutige Namen bei geschachtel- }
{ ten Unterprogrammen erzeugen }
lexlevel : longint; { level of code } lexlevel : longint; { level of code }
{ 1 for main procedure } { 1 for main procedure }
{ 2 for normal function or proc } { 2 for normal function or proc }
@ -2366,7 +2352,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.14 2000-11-04 14:25:22 florian Revision 1.15 2000-11-06 15:54:15 florian
* fixed two bugs to get make cycle work, but it's not enough
Revision 1.14 2000/11/04 14:25:22 florian
+ merged Attila's changes for interfaces, not tested yet + merged Attila's changes for interfaces, not tested yet
Revision 1.13 2000/11/01 23:04:38 peter Revision 1.13 2000/11/01 23:04:38 peter
@ -2409,4 +2398,4 @@ end.
Revision 1.2 2000/07/13 11:32:50 michael Revision 1.2 2000/07/13 11:32:50 michael
+ removed logs + removed logs
} }