{+doc 5.1}

procedure AdjustRepresentationFor(TheType: TypEntry);
  extern;

{+doc 5.2.1}

{+doc 5.2.2}

{+doc 5.2.3.1}

{+doc 5.2.3.2}

procedure OpenPresetSpace(Representation: TypeRepresentation);
  extern;

procedure InxPreset(PackedArray: Boolean;
                        LowIndex, HighIndex, LowBound: ObjectValue;
                        Representation: TypeRepresentation);
  extern;

procedure FieldPreset(Field: FieldOffset);
  extern;

procedure PresetSelector(VarPartRep, VariantRep: TypeRepresentation);
  extern;

procedure AssignPreset;
  extern;

procedure CopyPreset;
  extern;

procedure StackPreset;
  extern;

procedure ClsPresetSpace;
  extern;

{+doc 5.3.1}

procedure MakeValue(Magnitude: integer; var Velue: ObjectValue);
  extern;

{+doc 5.2.2}

function Disjoint(Value1, Value2, Value3, Value4: ObjectValue): Boolean;
  extern;

function InRange(Value1, Value, Value2: ObjectValue): Boolean;
  extern;

procedure CheckValue(Min, Max, Value: ObjectValue; Code: Scalar);
  extern;

{+doc 5.3.3}

{+doc 5.3.4}

procedure AddWords(LVal, RVal: ObjectValue; var Result: ObjectValue);
  extern;

procedure SubWords(LVal, RVal: ObjectValue;
                        var Result: ObjectValue);
  extern;

procedure AddValues(LVal, RVal: ObjectValue; var Result: ObjectValue);
  extern;

procedure SubValues(LVal, RVal: ObjectValue;
                         var Result: ObjectValue);
  extern;

procedure NotValues(LVal, RVal: ObjectValue; var Result: ObjectValue);
  extern;

procedure OrValues(LVal, RVal: ObjectValue; var Result: ObjectValue);
  extern;

procedure AndValues(LVal, RVal: ObjectValue; var Result: ObjectValue);
  extern;

procedure ModValues(LVal, RVal: ObjectValue; var Result: ObjectValue);
  extern;

procedure DivValues(LVal, RVal: ObjectValue; var Result: ObjectValue);
  extern;

procedure MultiplyValues(LVal, RVal: ObjectValue;
                         var Result: ObjectValue);
  extern;

procedure CompareValues(var LVal: ObjectValue; RVal: ObjectValue;
                        RelOp: OpType);
  extern;

procedure ConstIntFn(Which: StdProcFuncs; ArgValue: ObjectValue;
                     var Result: ObjectValue);
  extern;

procedure ConstRealFn(Which: StdProcFuncs; ArgValue: ObjectValue;
                      var Result: ObjectValue);
  extern;

procedure ConstWrdFn(Which: StdProcFuncs; Arg1, Arg2: ObjectValue;
                     var Result: ObjectValue);
  extern;

{+doc 5.3.5}

{+doc 5.4}

procedure FutureBlockLabel(var l: BlockLabel);
  extern;

procedure ExternalBlockLabel(var l: BlockLabel);
  extern;

procedure OpenCodeSpace(var l: BlockLabel);
  extern;

procedure CloseCodeSpace;
  extern;

{+doc 5.5}

{+doc 5.6.1}

{+doc 5.6.2}

{+doc 5.6.3}

{+doc 5.6.4}

procedure WordFunction(WhichFunc: StdProcFuncs);
  extern;

procedure MaxMinFunction(WhichFunc: StdProcFuncs;
                         Min, Max: ObjectValue);
  extern;

{+doc 5.6.5}

{+doc 5.6.6}

{+doc 5.6.7}

{+doc 5.6.8}

procedure PnterFunction(Which: StdProcFuncs);
  extern;

{+doc 5.7}

{+doc 5.8}

{+doc 5.9.1.1}

{+doc 5.9.1.2}

{+doc 5.9.1.3}

{+doc 5.9.1.4}

procedure WriteCAPString(HighBound: CAPBound; Format: FormatKind);
  extern;

{+doc 5.9.2}

{+doc 5.9.3}

procedure SizeRequest(Requested: TypeRepresentation);
  extern;

{+doc 5.9.4}

procedure StampProcedure(WhichPf: StdProcFuncs);
  extern;

{+doc 5.10.1}

{+doc 5.10.2}

{+doc 5.10.3}

{+doc 5.10.4}

procedure NextIsRange(Const1, Const2: ObjectValue);
  extern;

procedure OtherCases;
  extern;

{+doc 5.10.5}

{+doc 5.11.1}

{+doc 5.11.2}

{+doc 5.11.3}

{+doc 5.11.4}

{+doc 5.11.5}

{+doc 5.12.1}