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

* assigned(proc()) does not change the calln to loadn

Browse Source
This commit is contained in:
peter 2003-11-04 16:42:13 +00:00
parent a9f6c42c3d
commit 1688a42f0d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pexpr.pas
View File

@ -470,13 +470,16 @@ implementation
begin begin
{ With tp procvars we allways need to load a { With tp procvars we allways need to load a
procvar when it is passed, but not when the procvar when it is passed, but not when the
callnode is inserted due a property } callnode is inserted due a property or has
arguments }
if (m_tp_procvar in aktmodeswitches) and if (m_tp_procvar in aktmodeswitches) and
(p1.nodetype=calln) and (p1.nodetype=calln) and
not(assigned(tcallnode(p1).left)) and
not(nf_isproperty in tcallnode(p1).flags) then not(nf_isproperty in tcallnode(p1).flags) then
load_procvar_from_calln(p1); load_procvar_from_calln(p1);
case p1.resulttype.def.deftype of case p1.resulttype.def.deftype of
procdef, { procvar }
pointerdef, pointerdef,
procvardef, procvardef,
classrefdef : ; classrefdef : ;
@ -2472,7 +2475,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.136 2003-10-28 15:36:01 peter Revision 1.137 2003-11-04 16:42:13 peter
* assigned(proc()) does not change the calln to loadn
Revision 1.136 2003/10/28 15:36:01 peter
* absolute to object field supported, fixes tb0458 * absolute to object field supported, fixes tb0458
Revision 1.135 2003/10/09 15:20:56 peter Revision 1.135 2003/10/09 15:20:56 peter