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

* use symbol type instead of sp_static flag to determine whether a final

Browse Source 
symbol can only be assigned in the constructor or class constructor

git-svn-id: branches/jvmbackend@18611 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:15:00 +00:00
parent 9a6ab55c97
commit 3320fee51c
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/htypechk.pas
View File

@ -1098,7 +1098,7 @@ implementation
else if vs.varspez=vs_final then else if vs.varspez=vs_final then
begin begin
if (current_procinfo.procdef.owner=vs.owner) then if (current_procinfo.procdef.owner=vs.owner) then
if sp_static in vs.symoptions then if vs.typ=staticvarsym then
result:=current_procinfo.procdef.proctypeoption=potype_class_constructor result:=current_procinfo.procdef.proctypeoption=potype_class_constructor
else else
result:=current_procinfo.procdef.proctypeoption=potype_constructor; result:=current_procinfo.procdef.proctypeoption=potype_constructor;