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

* check the owner of current_specializedef as that is Nil if a generic routine is specialized and this is the specialization of one of its parameters or its result type

Browse Source 
git-svn-id: trunk@34411 -
This commit is contained in:
svenbarth 2016-09-02 15:48:30 +00:00
parent 08cd62fc7e
commit 6a14bb5014
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pgenutil.pas
View File

@ -765,7 +765,11 @@ uses
result:=def; result:=def;
break; break;
end; end;
def:=tstoreddef(def.owner.defowner); if assigned(def.owner) then
def:=tstoreddef(def.owner.defowner)
else
{ this can happen when specializing a generic function }
def:=nil;
until not assigned(def) or not (df_specialization in def.defoptions); until not assigned(def) or not (df_specialization in def.defoptions);
end; end;