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

* fixed web bug #1995

Browse Source
This commit is contained in:
Jonas Maebe 2002-06-12 15:46:14 +00:00
parent 2c651f8661
commit f33ee551d7
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pexpr.pas
View File

@ -1895,7 +1895,12 @@ implementation
p1:=factor(true);
got_addrn:=false;
p1:=caddrnode.create(p1);
if assigned(getprocvardef) then
if assigned(getprocvardef) and
(taddrnode(p1).left.nodetype = loadn) and
{ make sure we found a valid procedure, otherwise the }
{ "getprocvardef" will become the default in taddrnode }
{ while there should be an error (JM) }
assigned(tloadnode(taddrnode(p1).left).procdeflist) then
taddrnode(p1).getprocvardef:=getprocvardef;
end;
@ -2224,7 +2229,10 @@ implementation
end.
{
$Log$
Revision 1.68 2002-05-18 13:34:12 peter
Revision 1.69 2002-06-12 15:46:14 jonas
* fixed web bug 1995
Revision 1.68 2002/05/18 13:34:12 peter
* readded missing revisions
Revision 1.67 2002/05/16 19:46:43 carl