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

fcl-passrc: resolver: test in operator on custom integer sets

Browse Source 
git-svn-id: trunk@37369 -
This commit is contained in:
Mattias Gaertner 2017-10-01 14:47:02 +00:00
parent 2b4186fcff
commit d7f67d3689
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -84,7 +84,7 @@ Works:
- function high(ordinal): ordinal - function high(ordinal): ordinal
- function pred(ordinal): ordinal - function pred(ordinal): ordinal
- function high(ordinal): ordinal - function high(ordinal): ordinal
- cast integer to enum - cast integer to enum, enum to integer
- sets - TPasSetType - sets - TPasSetType
- set of char - set of char
- set of integer - set of integer

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

@ -2428,7 +2428,11 @@ begin
' s13 = s2<=s3;', ' s13 = s2<=s3;',
' s14 = s2>=s3;', ' s14 = s2>=s3;',
' s15 = 1 in s2;', ' s15 = 1 in s2;',
'begin']); 'var',
' w: word;',
'begin',
' if w in [1..12] then ;',
'']);
ParseProgram; ParseProgram;
CheckResolverUnexpectedHints; CheckResolverUnexpectedHints;
end; end;
@ -3044,7 +3048,10 @@ begin
' s13 = [a,b]<=[a..b];', ' s13 = [a,b]<=[a..b];',
' s14 = [a,b]>=[a..b];', ' s14 = [a,b]>=[a..b];',
' s15 = a in [a,b];', ' s15 = a in [a,b];',
'begin']); 'var',
' Flag: TFlag;',
'begin',
' if Flag in [b,c] then ;']);
ParseProgram; ParseProgram;
CheckResolverUnexpectedHints; CheckResolverUnexpectedHints;
end; end;