13.6.

. , , , .

:

PACKED_DESCRIPTOR and DESCRIPTOR --     -—    ,   type DESCRIPTOR is record   --  DESCRIPTOR end record;type PACKED_DESCRIPTOR is new DESCRIPTOR;for PACKED_DESCRIPTOR use    record      -—        end record;

:

D : DESCRIPTOR; : PACKED_DESCRIPTOR; := PACKED_DESCRIPTOR(D); —-  DD := DESCRIPTOR(P);        -—