paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 16:29:27 +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,
parasymtable,
staticsymtable :
break;
exit;
globalsymtable :
begin
findunitsymtable:=st;
break;
exit;
end;
objectsymtable :
st:=st.defowner.owner;
@ -1914,7 +1914,10 @@ implementation
{ don't continue when the current
symtable is used for variant records }
if trecorddef(st.defowner).isunion then
st:=nil
begin
findunitsymtable:=nil;
exit;
end
else
st:=st.defowner.owner;
end;
@ -2308,7 +2311,10 @@ implementation
end.
{
$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
is only allowed for the same name
* varsyms are inserted in symtable before the types are parsed. This