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

fcl-passrc: useanalyzer: mark property index and default value

Browse Source 
git-svn-id: trunk@37318 -
This commit is contained in:
Mattias Gaertner 2017-09-25 17:08:14 +00:00
parent 333316f356
commit 894c22c05c
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -1452,8 +1452,8 @@ begin
UseExpr(Prop.IndexExpr); UseExpr(Prop.IndexExpr);
// ToDo: Prop.ImplementsFunc // ToDo: Prop.ImplementsFunc
// ToDo: Prop.DispIDExpr // ToDo: Prop.DispIDExpr
// ToDo: Prop.StoredAccessor; UseExpr(Prop.StoredAccessor);
// ToDo: Prop.DefaultExpr; UseExpr(Prop.DefaultExpr);
end; end;
end end
else else

10
packages/fcl-passrc/tests/tcresolver.pas
View File

@ -8131,11 +8131,14 @@ procedure TTestResolver.TestPropertyDefaultValue;
begin begin
StartProgram(false); StartProgram(false);
Add([ Add([
'type',
' TEnum = (red, blue);',
' TSet = set of TEnum;',
'const', 'const',
' CB = true or false;', ' CB = true or false;',
' CI = 1+2;', ' CI = 1+2;',
' CS = [red,blue];',
'type', 'type',
' TEnum = (red, blue);',
' TObject = class', ' TObject = class',
' FB: boolean;', ' FB: boolean;',
' property B1: boolean read FB default true;', ' property B1: boolean read FB default true;',
@ -8147,6 +8150,11 @@ begin
' FE: TEnum;', ' FE: TEnum;',
' property E1: TEnum read FE default red;', ' property E1: TEnum read FE default red;',
' property E2: TEnum read FE default TEnum.blue;', ' property E2: TEnum read FE default TEnum.blue;',
' FSet: TSet;',
' property Set1: TSet read FSet default [];',
' property Set2: TSet read FSet default [red];',
' property Set3: TSet read FSet default [red,blue];',
' property Set4: TSet read FSet default CS;',
' end;', ' end;',
'begin']); 'begin']);
ParseProgram; ParseProgram;