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

* automatically call calcparas adter creating a procvardef from a procvdef,

Browse Source 
so it doesn't have to be done explicitly anymore afterwards

git-svn-id: branches/hlcgllvm@28473 -
This commit is contained in:
Jonas Maebe 2014-08-19 20:22:03 +00:00
parent b36e244e34
commit 6f01bb56d6
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncnv.pas
View File

@ -2014,8 +2014,6 @@ implementation
(not(m_nested_procvars in current_settings.modeswitches) or (not(m_nested_procvars in current_settings.modeswitches) or
not is_nested_pd(tprocvardef(resultdef))) then not is_nested_pd(tprocvardef(resultdef))) then
include(tprocvardef(resultdef).procoptions,po_addressonly); include(tprocvardef(resultdef).procoptions,po_addressonly);
{ calculate parameter list & order }
tprocvardef(resultdef).calcparas;
end; end;
end; end;

6
compiler/symdef.pas
View File

@ -5249,7 +5249,11 @@ implementation
begin begin
result:=inherited getcopyas(newtyp,copytyp); result:=inherited getcopyas(newtyp,copytyp);
if newtyp=procvardef then if newtyp=procvardef then
exit; begin
{ create new paralist }
tprocvardef(result).calcparas;
exit;
end;
{ don't copy mangled name, can be different } { don't copy mangled name, can be different }
tprocdef(result).messageinf:=messageinf; tprocdef(result).messageinf:=messageinf;
tprocdef(result).dispid:=dispid; tprocdef(result).dispid:=dispid;