*copyc MLT$ERROR
*copyc MLT$FLOATING_LENGTH
*copyc MLT$INTEGER_LENGTH
*copyc MLT$INTEGER_TYPE
  ?? SKIP := 2 ??
  ?? PUSH (LIST := ON) ??
  { MLD$CIF - Declare mlp$convert_integer_to_float }
  ?? POP ??

  PROCEDURE [XREF] mlp$convert_integer_to_float (source: ^cell;
        source_length: mlt$integer_length;
        source_type: mlt$integer_type;
        target: ^cell;
        target_length: mlt$floating_length;
    VAR status: mlt$error);

  { FUNCTION: Convert an integer into a floating point number.
  {
  { STATUS MLE$NO_ERROR is returned.
