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

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

  { FUNCTION: Convert a floating point number into an integer.
  {
  { STATUS MLE$LOSS_OF_SIGNIFICANCE is returned whenever the floating
  {point number cannot be represented as an integer of the specified
  {length. The integer value returned will contain the rightmost
  {significant bits of the correct result. For infinite or indefinite
  {floating point numbers, the integer value returned is 0.
