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

* don't add empty symtables when specializing generics

Browse Source 
git-svn-id: trunk@8066 -
This commit is contained in:
florian 2007-07-15 17:16:21 +00:00
parent a05d228679
commit 2b2c6f7f53
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/psub.pas
View File

@ -1810,8 +1810,10 @@ implementation
symtablestack.push(pu.u.globalsymtable); symtablestack.push(pu.u.globalsymtable);
pu:=tused_unit(pu.next); pu:=tused_unit(pu.next);
end; end;
symtablestack.push(hmodule.globalsymtable); if assigned(hmodule.globalsymtable) then
symtablestack.push(hmodule.localsymtable); symtablestack.push(hmodule.globalsymtable);
if assigned(hmodule.localsymtable) then
symtablestack.push(hmodule.localsymtable);
{ definitions } { definitions }
for i:=0 to tobjectdef(ttypesym(p).typedef).symtable.DefList.Count-1 do for i:=0 to tobjectdef(ttypesym(p).typedef).symtable.DefList.Count-1 do