
*IF NOT $true(osv$unix)
{ Clp$make_real_value is intended to be an INLINE procedure but cannot be
{ at present because of a CYBIL problem.

  PROCEDURE {INLINE} clp$make_real_value
*ELSE
  PROCEDURE [INLINE] clp$make_real_value
*IFEND
    (    real_number: longreal;
         number_of_digits: clt$real_number_digit_count;
     VAR work_area {input, output} : ^clt$work_area;
     VAR value: ^clt$data_value);

?? PUSH (LISTEXT := ON) ??

    clp$make_value (clc$real, work_area, value);
    IF value <> NIL THEN
*IF NOT $true(osv$unix)
      #UNCHECKED_CONVERSION (real_number, value^.real_value.value);
*ELSE
      value^.real_value.value := real_number;
*IFEND
      value^.real_value.number_of_digits := number_of_digits;
    IFEND;

  PROCEND clp$make_real_value;

*copyc clt$data_value
*copyc clt$real_number_digit_count
*copyc clt$work_area
?? POP ??
*copyc clp$make_value
