paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +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
{ a constructor will and a method may write something to }
{ the fields }
set_varstate(methodpointer,vs_written,[])
set_varstate(methodpointer,vs_readwritten,[])
else if ((hpt.nodetype=loadn) and
(methodpointer.resultdef.typ=classrefdef)) then
set_varstate(methodpointer,vs_read,[])