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

* make sure the calcparas() is called when calling getcopyas() on a

Browse Source 
procvardef

git-svn-id: trunk@30371 -
This commit is contained in:
Jonas Maebe 2015-03-29 18:16:54 +00:00
parent 2112713579
commit c32b6b01ad
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.pas
View File

@ -615,6 +615,7 @@ interface
function is_methodpointer:boolean;override;
function is_addressonly:boolean;override;
function getmangledparaname:TSymStr;override;
function getcopyas(newtyp: tdeftyp; copytyp: tproccopytyp): tstoreddef; override;
end;
tprocvardefclass = class of tprocvardef;
@ -5935,6 +5936,13 @@ implementation
end;
function tprocvardef.getcopyas(newtyp: tdeftyp; copytyp: tproccopytyp): tstoreddef;
begin
result:=inherited;
tabstractprocdef(result).calcparas;
end;
function tprocvardef.is_publishable : boolean;
begin
is_publishable:=(po_methodpointer in procoptions);