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

* also handle call nodes when determining the generic symbol for inline specializations

Browse Source 
git-svn-id: trunk@47999 -
This commit is contained in:
svenbarth 2021-01-02 23:23:24 +00:00
parent f42b39a7b5
commit a65d778f73
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pexpr.pas
View File

@ -3567,6 +3567,8 @@ implementation
idstr:=ttypenode(tloadvmtaddrnode(p1).left).typesym.name; idstr:=ttypenode(tloadvmtaddrnode(p1).left).typesym.name;
loadn: loadn:
idstr:=tloadnode(p1).symtableentry.name; idstr:=tloadnode(p1).symtableentry.name;
calln:
idstr:=tcallnode(p1).symtableprocentry.name;
else else
; ;
end; end;
@ -4231,6 +4233,8 @@ implementation
loadn: loadn:
if not searchsym_with_symoption(tloadnode(n).symtableentry.Name,srsym,srsymtable,sp_generic_dummy) then if not searchsym_with_symoption(tloadnode(n).symtableentry.Name,srsym,srsymtable,sp_generic_dummy) then
srsym:=nil; srsym:=nil;
calln:
srsym:=tcallnode(n).symtableprocentry;
specializen: specializen:
srsym:=tspecializenode(n).sym; srsym:=tspecializenode(n).sym;
{ TODO : handle const nodes } { TODO : handle const nodes }