Subversion Repositories scarts

/*

 * return (*acc) scaled by 10**dexp.

 */

#include <_ansi.h>

#include <reent.h>

#include "std.h"

#define abs(x) (((x) < 0) ? -(x) : (x))

double

_DEFUN (__adjust, (ptr, acc, dexp, sign),

        struct _reent *ptr _AND

        double *acc _AND

        int dexp _AND

        int sign)

     /* *acc    the 64 bit accumulator */

     /* dexp    decimal exponent       */

     /* sign    sign flag              */

{

  double r;

  if (dexp > MAXE)

    {

      ptr->_errno = ERANGE;

      return (sign) ? -HUGE_VAL : HUGE_VAL;

    }

  else if (dexp < MINE)

    {

      ptr->_errno = ERANGE;

      return 0.0;

    }

  r = *acc;

  if (sign)

    r = -r;

  if (dexp == 0)

    return r;

  if (dexp < 0)

    return r / __exp10 (abs (dexp));

  else

    return r * __exp10 (dexp);

}