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

* fixed web bug #3740

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-03 19:36:42 +00:00
parent ed174f891c
commit 86765dcf57
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pinline.pas
View File

@ -178,7 +178,8 @@ implementation
{ we need the real called method } { we need the real called method }
do_resulttypepass(p2); do_resulttypepass(p2);
if (p2.nodetype=calln) then if (p2.nodetype=calln) and
assigned(tcallnode(p2).procdefinition) then
begin begin
if is_new then if is_new then
begin begin
@ -754,7 +755,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.39 2005-02-14 17:13:07 peter Revision 1.40 2005-03-03 19:36:42 jonas
* fixed web bug 3740
Revision 1.39 2005/02/14 17:13:07 peter
* truncate log * truncate log
} }