[fpc-pascal] Range check error warning.

[fredvs]

And only changing this:

> foldhiddenbit: byte = 7;

Gives also a error message on next line unchanged:

> foldhiddenmask = 1 shl foldhiddenbit; // raise a error on that line.

Error: (3203) Illegal expression

Fre;D



-----
Many thanks ;-)
--
Sent from: http://free-pascal-general.1045716.n5.nabble.com/