{

 History
 -------

 25/10/85 - Delete spec for CheckCAPRange. (agh)
 07/11/85 - Add specs for ConvertInteger and AdjustSet. (agh)
 04/12/85 - Simplify spec for CAPDeReference. Add equivalent
            spec for CAPWDeReference. (agh)
 05/12/85 - Add specs for CAPRangeCheck and CAPWRangeCheck. (agh)

                                                                    }

procedure DeReference(Representation: TypeRepresentation);
  extern;

procedure CAPDeReference(PackedSchema, InnerMost: Boolean;
                         LowBound, HighBound: CAPBound;
                         Component: TypeRepresentation);
  extern;

procedure CAPWDeReference(PackedSchema, InnerMost: Boolean;
                          LowBound, HighBound: CAPBound;
                          Component: TypeRepresentation);
  extern;

procedure StackConstant(ConstValue: ObjectValue);
  extern;

procedure UndefVariableCheck;
  extern;

procedure TailoredFactorCheck(Representation: TypeRepresentation);
  extern;

function WordExpression: Boolean;
  extern;

procedure SetBndValue(var Bound: BoundForm; BdValue: MCIntegerForm);
  extern;

procedure SetBndAddress(var Bound: BoundForm; BdAddress: RuntimeAddress);
  extern;

procedure CheckRange(Min, Max: MCIntegerForm; CheckNumber: Scalar);
  extern;

procedure CheckWRange(Min, Max: ICLWord; CheckNumber: Scalar);
  extern;

procedure RangeCheck(Min, Max: ObjectValue; ChekNumber: Scalar);
  extern;

procedure CAPRangeCheck(LowBound, HighBound: CAPBound; Error: Scalar);
  extern;

procedure CAPWRangeCheck(LowBound, HighBound: CAPBound; Error: Scalar);
  extern;

procedure SetCheck(Min, Max: ObjectValue);
  extern;

procedure SelectCheck(EntryToCheck: StackEntry; CheckNumber: Scalar);
  extern;

procedure IntFunction(WhichFunc: StdProcFuncs);
  extern;

procedure NegInteger;
  extern;

procedure BinaryIntegerOperation(Operator: OpType);
  extern;

procedure ConvertInteger(NewSize: ByteRange; var Expression: StackEntry);
  extern;

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

procedure BinaryWordOperation(Operator: OpType);
  extern;

procedure WordComparison(Operator: OpType);
  extern;

procedure WordFunction(WhicFunc: StdProcFuncs);
  extern;

procedure OrdComparison(Operator: OpType);
  extern;

procedure FloatInteger(StackPosition: StackTop);
  extern;

procedure RealFunction(WhichFunc: StdProcFuncs);
  extern;

procedure NegReal;
  extern;

procedure BinaryRealOperation(RealOperator: OpType);
  extern;

procedure RealComparison(Operator: OpType);
  extern;

procedure NegateBoolean;
  extern;

procedure BinaryBooleanOperation(Operator: OpType;
                                 FirstOperation: Boolean);
  extern;

procedure EliminateConditions;
  extern;

procedure SingletonSet(SetRepresentation: TypeRepresentation);
  extern;

procedure RangeSet(SetRepresentation: TypeRepresentation);
  extern;

procedure BinarySetOperation(SetOperator: OpType);
  extern;

procedure SetComparison(SetOperator: OpType);
  extern;

procedure AdjustSet(NewSize: WordRange; Expression: StackEntry);
  extern;

procedure PnterComparison(Operator: OpType);
  extern;

procedure PnterFunction(Which: StdProcFuncs);
  extern;

procedure StringComparison(Operator: OpType; Length: ObjectValue);
  extern;