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

* object constructors/methods obviously can also read the object

Browse Source 
git-svn-id: trunk@6022 -
This commit is contained in:
Jonas Maebe 2007-01-17 10:09:41 +00:00
parent 685844b61c
commit 3d99dcc178
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -2149,7 +2149,7 @@ implementation
) then ) then
{ a constructor will and a method may write something to } { a constructor will and a method may write something to }
{ the fields } { the fields }
set_varstate(methodpointer,vs_written,[]) set_varstate(methodpointer,vs_readwritten,[])
else if ((hpt.nodetype=loadn) and else if ((hpt.nodetype=loadn) and
(methodpointer.resultdef.typ=classrefdef)) then (methodpointer.resultdef.typ=classrefdef)) then
set_varstate(methodpointer,vs_read,[]) set_varstate(methodpointer,vs_read,[])