(4)
-- Packed_Descriptor and Descriptor are two different types
-- with identical characteristics, apart from their
-- representation
(5)
type Descriptor is
record
-- components of a descriptor
end record;
(6)
type Packed_Descriptor is new Descriptor;
(7)
for Packed_Descriptor use
record
-- component clauses for some or for all components
end record;
(8)
-- Change of representation can now be accomplished by explicit type conversions:
(9)
D : Descriptor;
P : Packed_Descriptor;
(10)
P := Packed_Descriptor(D); -- pack D
D := Descriptor(P); -- unpack P
-- Email comments, additions, corrections, gripes, kudos, etc. to: