Node:MedBool, Next:MedCard, Previous:MaxReal, Up:Reference
type MedBool = Boolean attribute (Size = BitSizeOf (MedInt));
The intrinsic MedBool represents boolean values, but occupies
the same memory space as a MedInt. It is used when you need
to define a parameter or record that conforms to some external
library or system specification.
MedBool is a GNU Pascal extension.
program MedBoolDemo;
var
a: MedBool;
begin
MedInt (a) := 1;
if a then WriteLn ('Ord (True) = 1')
end.