Example #1
0
static Error
_packbin2int(
  floatnum x,
  p_ext_seq_desc n)
{
  t_longint l;
  Error result;

  float_setnan(x);
  if ((result = _pack2longint(&l, n)) != Success)
    return result;
  _longint2floatnum(x, &l);
  return Success;
}
Example #2
0
void
_logic2floatnum(
  floatnum f,
  t_longint* longint)
{
  int idx;
  signed char sign;

  sign = _signextend(longint);
  if (sign < 0)
    _neg(longint);
  idx = MAXIDX;
  while (idx >= 0 && longint->value[idx] == 0)
    --idx;
  if (idx < 0)
    longint->length = 0;
  else
    longint->length = idx + 1;
  _longint2floatnum(f, longint);
  float_setsign(f, sign);
}