paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +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);
// ToDo: Prop.ImplementsFunc
// ToDo: Prop.DispIDExpr
// ToDo: Prop.StoredAccessor;
// ToDo: Prop.DefaultExpr;
UseExpr(Prop.StoredAccessor);
UseExpr(Prop.DefaultExpr);
end;
end
else

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

@ -8131,11 +8131,14 @@ procedure TTestResolver.TestPropertyDefaultValue;
begin
StartProgram(false);
Add([
'type',
' TEnum = (red, blue);',
' TSet = set of TEnum;',
'const',
' CB = true or false;',
' CI = 1+2;',
' CS = [red,blue];',
'type',
' TEnum = (red, blue);',
' TObject = class',
' FB: boolean;',
' property B1: boolean read FB default true;',
@ -8147,6 +8150,11 @@ begin
' FE: TEnum;',
' property E1: TEnum read FE default red;',
' 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;',
'begin']);
ParseProgram;