On Tue, Mar 24, 2020 at 6:00 PM fredvs via fpc-pascal
<fpc-pascal@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
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
