paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 20:29: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
packages/fcl-passrc
src
pasresolver.pp
tests
tcresolver.pas

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

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

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

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