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

* fix generics parsing for new symtable

Browse Source 
git-svn-id: trunk@5220 -
This commit is contained in:
peter 2006-11-04 12:13:06 +00:00
parent 3cae449fda
commit 86f1fe11d6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pdecsub.pas
View File

@ -624,7 +624,8 @@ implementation
storepos,
procstartfilepos : tfileposinfo;
searchagain : boolean;
st : TSymtable;
st,
genericst : TSymtable;
aprocsym : tprocsym;
popclass : boolean;
ImplIntf : TImplementedInterface;
@ -837,12 +838,12 @@ implementation
replay the tokens to generate the body }
if not assigned(pd._class.genericdef) then
internalerror(200512113);
st:=pd._class.genericdef.GetSymtable(gs_record);
if not assigned(st) then
genericst:=pd._class.genericdef.GetSymtable(gs_record);
if not assigned(genericst) then
internalerror(200512114);
{ We are parsing the same objectdef, the def index numbers
are the same }
pd.genericdef:=tstoreddef(st.DefList[st.DefList.IndexOf(pd)]);
pd.genericdef:=tstoreddef(genericst.DefList[pd.owner.DefList.IndexOf(pd)]);
if not assigned(pd.genericdef) or
(pd.genericdef.typ<>procdef) then
internalerror(200512115);