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

* fixed automatic setter generation if only a setter and no getter prefix

Browse Source 
has been specified

git-svn-id: trunk@23561 -
This commit is contained in:
Jonas Maebe 2013-02-02 15:21:58 +00:00
parent 899951577a
commit 185f71762f
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/jvm/pjvm.pas
View File

@ -892,7 +892,7 @@ implementation
(getter and (getter and
(prop_auto_getter_prefix<>'')) or (prop_auto_getter_prefix<>'')) or
(not getter and (not getter and
(prop_auto_getter_prefix<>'')); (prop_auto_setter_prefix<>''));
sym:=nil; sym:=nil;
procoptions:=[]; procoptions:=[];
if explicitwrapper then if explicitwrapper then