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

fcl-passrc: resolver: error message on array of const

Browse Source 
git-svn-id: trunk@37405 -
This commit is contained in:
Mattias Gaertner 2017-10-05 21:57:31 +00:00
parent facd1f5002
commit 40717326bc
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/pasresolver.pp
View File

@ -3481,6 +3481,8 @@ begin
else
RaiseXExpectedButYFound(20170216151609,'range',RangeResolved.IdentEl.ElementTypeName,Expr);
end;
if El.ElType=nil then
RaiseNotYetImplemented(20171005235610,El,'array of const');
FinishSubElementType(El,El.ElType);
end;

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

@ -576,6 +576,9 @@ type
Procedure TestArray_ConstOpenArrayWriteFail;
Procedure TestArray_Static_Const;
// array of const
Procedure TestArrayOfConst;
// static arrays
Procedure TestArrayIntRange_OutOfRange;
Procedure TestArrayCharRange_OutOfRange;
@ -9377,6 +9380,16 @@ begin
CheckResolverUnexpectedHints;
end;
procedure TTestResolver.TestArrayOfConst;
begin
StartProgram(false);
Add([
'procedure DoIt(args: array of const);',
'begin end;',
'begin']);
CheckResolverException('not yet implemented: :TPasArrayType [20171005235610] array of const',nNotYetImplemented);
end;
procedure TTestResolver.TestArrayIntRange_OutOfRange;
begin
StartProgram(false);