*copyc MLT$COMPARE
*copyc MLT$ERROR
*copyc MLT$FLOATING_LENGTH
  ?? SKIP := 2 ??
  ?? PUSH (LIST := ON) ??
  { MLD$CF - Declare mlp$compare_floating }
  ?? POP ??

  PROCEDURE [XREF] mlp$compare_floating (source: ^cell;
        source_length: mlt$floating_length;
        target: ^cell;
        target_length: mlt$floating_length;
    VAR result: mlt$compare;
    VAR status: mlt$error);

  { FUNCTION: Compare the values of two floating point numbers.
  {
  { STATUS MLE$INDEFINITE is returned whenever the source or target is
  {indefinite or whenever both source and target are infinite with the
  {same sign. The result is then MLC$UNORDERED.
