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

* real fix internalerror for dup ids in union sym

Browse Source
This commit is contained in:
peter 2002-09-09 19:41:46 +00:00
parent 1df5c70e42
commit 90e8dc3c41
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/symtable.pas
View File

@ -1901,11 +1901,11 @@ implementation
localsymtable, localsymtable,
parasymtable, parasymtable,
staticsymtable : staticsymtable :
break; exit;
globalsymtable : globalsymtable :
begin begin
findunitsymtable:=st; findunitsymtable:=st;
break; exit;
end; end;
objectsymtable : objectsymtable :
st:=st.defowner.owner; st:=st.defowner.owner;
@ -1914,7 +1914,10 @@ implementation
{ don't continue when the current { don't continue when the current
symtable is used for variant records } symtable is used for variant records }
if trecorddef(st.defowner).isunion then if trecorddef(st.defowner).isunion then
st:=nil begin
findunitsymtable:=nil;
exit;
end
else else
st:=st.defowner.owner; st:=st.defowner.owner;
end; end;
@ -2308,7 +2311,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.71 2002-09-09 17:34:16 peter Revision 1.72 2002-09-09 19:41:46 peter
* real fix internalerror for dup ids in union sym
Revision 1.71 2002/09/09 17:34:16 peter
* tdicationary.replace added to replace and item in a dictionary. This * tdicationary.replace added to replace and item in a dictionary. This
is only allowed for the same name is only allowed for the same name
* varsyms are inserted in symtable before the types are parsed. This * varsyms are inserted in symtable before the types are parsed. This