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

* copy tcallnode.fforcedprocname field

Browse Source 
git-svn-id: trunk@27740 -
This commit is contained in:
Jonas Maebe 2014-05-10 12:47:22 +00:00
parent 6d43208e44
commit 9f6d6f4aa8
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/ncal.pas
View File

@ -1359,6 +1359,10 @@ implementation
end
else
n.varargsparas:=nil;
if assigned(fforcedprocname) then
n.fforcedprocname:=stringdup(fforcedprocname^)
else
n.fforcedprocname:=nil;
result:=n;
end;