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

* also set aktcallnode during tcallnode.pass_1, so that the callparanode

Browse Source 
pass_1 code can make use of it

git-svn-id: trunk@29818 -
This commit is contained in:
Jonas Maebe 2015-02-23 22:47:41 +00:00
parent 863e81315e
commit aae879d28a
1 changed files with 111 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncal.pas
View File

@ -3600,9 +3600,14 @@ implementation
var var
para: tcallparanode; para: tcallparanode;
oldcallnode: tcallnode;
begin begin
result:=nil; result:=nil;
oldcallnode:=aktcallnode;
aktcallnode:=self;
try
{ as pass_1 is never called on the methodpointer node, we must check { as pass_1 is never called on the methodpointer node, we must check
here that it's not a helper type } here that it's not a helper type }
if assigned(methodpointer) and if assigned(methodpointer) and
@ -3717,6 +3722,9 @@ implementation
mark_unregable_parameters; mark_unregable_parameters;
result:=pass1_normal; result:=pass1_normal;
end; end;
finally
aktcallnode:=oldcallnode;
end;
end; end;