{

 History
 -------

 16/10/85 - Add specs for DataBytes and Align. (agh)
 17/10/85 - Add spec for CheckRepresentation. (agh)
 21/10/85 - Remove spec for AugmentSchema. (agh)
 22/10/85 - Change formal param type of Cardinality from TypeForm
            to TypEntry. (agh)
 22/10/85 - Remove PresetByCall, PostsetByCall, and EnvelopeUsed. (agh)
 01/12/85 - Add specs for DataSize, IndexUnit. (agh)
 09/12/85 - Add specs for PrintField and PrintRep (agh).

                                                                         }

function WordsFor(Units, UnitsPerWord: Scalar): Scalar;
  extern;

function DataBytes(Representation: TypeRepresentation): ByteRange;
  extern;

function DataSize(Representation: TypeRepresentation): Scalar;
  extern;

procedure Align(var Offset: ByteRange; Amount: ByteRange);
  extern;

function Cardinality(OrdinalType: TypEntry): integer;
  extern;

function IndexUnit(PackedArray: Boolean;
                   ElementRep: TypeRepresentation): AccessUnit;
  extern;

procedure SetRepresentationFor(TheType: TypEntry);
  extern;

procedure AdjustRepresentationFor(TheType: TypEntry);
  extern;

function APartWord(Representation: TypeRepresentation): Boolean;
  extern;

function StructuredWord(Representation: TypeRepresentation): Boolean;
  extern;

procedure SetBaseLimits(var SetRep: TypeRepresentation;
                        SetConstant: ObjectValue);
  extern;

procedure PrintField(Offset: FieldOffset; var f: text);
  extern;

procedure PrintRep(Representation: TypeRepresentation; var f: text);
  extern;

procedure InitRepresentations;
  extern;