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

* hopefully an error in Peter's previous commit fixed

Browse Source
This commit is contained in:
florian 1999-09-13 20:49:41 +00:00
parent 2d015b9e80
commit c549646c95
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/cg386mem.pas
View File

@ -801,7 +801,8 @@ implementation
end end
else else
{ call can happend with a property } { call can happend with a property }
if (p^.left^.treetype=calln) and if { (p^.left^.treetype=calln) and Don't think that
this is necessary (FK) }
(p^.left^.resulttype^.deftype=objectdef) and (p^.left^.resulttype^.deftype=objectdef) and
pobjectdef(p^.left^.resulttype)^.is_class then pobjectdef(p^.left^.resulttype)^.is_class then
begin begin
@ -841,7 +842,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.55 1999-09-10 15:42:50 peter Revision 1.56 1999-09-13 20:49:41 florian
* hopefully an error in Peter's previous commit fixed
Revision 1.55 1999/09/10 15:42:50 peter
* fixed with <calln> do * fixed with <calln> do
* fixed finalize/initialize call for new/dispose * fixed finalize/initialize call for new/dispose