[fpc-pascal] Range check error warning.

[Bart]

On Tue, Mar 24, 2020 at 6:00 PM fredvs via fpc-pascal
<fpc-pascal at lists.freepascal.org> wrote:

> OK, I stop.

This works?

{$mode objfpc}
{$apptype console}

const
  foldhiddenbit = byte(7);
  foldhiddenmask = byte(1 shl foldhiddenbit);
  currentfoldhiddenbit = byte(6);
  currentfoldhiddenmask = byte(1 shl currentfoldhiddenbit);
  intermediate = word(byte(foldhiddenmask) or byte(currentfoldhiddenmask));
  intermediate2 = Word(not intermediate);
  foldlevelmask = byte(lo(intermediate2)); //byte(not
(byte(foldhiddenmask) or byte(currentfoldhiddenmask)));

begin
  writeln('intermediate=',intermediate);
  writeln('foldlevelmask=',foldlevelmask);
end.

Prints:
intermediate=192
foldlevelmask=63


-- 
Bart