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

* check for calln in handle_procvar

Browse Source
This commit is contained in:
peter 1999-05-06 10:13:20 +00:00
parent b107bae0b3
commit 8ba31512e1
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/pexpr.pas
View File

@ -537,7 +537,8 @@ unit pexpr;
procedure handle_procvar(procvar : pprocvardef;var t : ptree); procedure handle_procvar(procvar : pprocvardef;var t : ptree);
begin begin
if ((procvar^.options and pomethodpointer)<>0) then if (t^.treetype=calln) and
((procvar^.options and pomethodpointer)<>0) then
begin begin
if (t^.methodpointer^.resulttype^.deftype=objectdef) and if (t^.methodpointer^.resulttype^.deftype=objectdef) and
(pobjectdef(t^.methodpointer^.resulttype)^.isclass) and (pobjectdef(t^.methodpointer^.resulttype)^.isclass) and
@ -1979,7 +1980,10 @@ unit pexpr;
end. end.
{ {
$Log$ $Log$
Revision 1.101 1999-05-06 09:05:21 peter Revision 1.102 1999-05-06 10:13:20 peter
* check for calln in handle_procvar
Revision 1.101 1999/05/06 09:05:21 peter
* generic write_float and str_float * generic write_float and str_float
* fixed constant float conversions * fixed constant float conversions