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

* fix crash with duplicate id

Browse Source
This commit is contained in:
peter 2003-03-17 18:56:02 +00:00
parent fe6518a49c
commit d42645ca0a
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecsub.pas
View File

@ -251,7 +251,10 @@ implementation
repeat
vs:=tvarsym.create(orgpattern,generrortype);
currparast.insert(vs);
sc.insert(vs);
if assigned(vs.owner) then
sc.insert(vs)
else
vs.free;
consume(_ID);
until not try_to_consume(_COMMA);
{ read type declaration, force reading for value and const paras }
@ -2117,7 +2120,10 @@ const
end.
{
$Log$
Revision 1.106 2003-03-17 15:54:22 peter
Revision 1.107 2003-03-17 18:56:02 peter
* fix crash with duplicate id
Revision 1.106 2003/03/17 15:54:22 peter
* store symoptions also for procdef
* check symoptions (private,public) when calculating possible
overload candidates

12
compiler/pdecvar.pas
View File

@ -153,7 +153,10 @@ implementation
repeat
vs:=tvarsym.create(orgpattern,generrortype);
symtablestack.insert(vs);
sc.insert(vs);
if assigned(vs.owner) then
sc.insert(vs)
else
vs.free;
consume(_ID);
until not try_to_consume(_COMMA);
consume(_COLON);
@ -336,7 +339,7 @@ implementation
consume(_EQUAL);
readtypedconst(tt,tconstsym,true);
symdone:=true;
end;
end;
end;
{ if the symbol is not completely handled, then try to parse the
hint directives }
@ -609,7 +612,10 @@ implementation
end.
{
$Log$
Revision 1.44 2003-01-02 11:14:02 michael
Revision 1.45 2003-03-17 18:56:02 peter
* fix crash with duplicate id
Revision 1.44 2003/01/02 11:14:02 michael
+ Patch from peter to support initial values for local variables
Revision 1.43 2002/12/27 15:22:20 peter