tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_T;
- tv->lab = 0;
tarval_bad = tarval_identify (tv);
tarval_b_false = tarval_from_long (mode_b, 0);
/* IsInf <-> exponent == 0x7ff && ! (bits | fraction_low) */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_d;
- tv->lab = 0;
x.ieee.negative = 0;
x.ieee.exponent = 0x7ff;
x.ieee.mantissa0 = 0;
/* IsNaN <-> exponent==0x7ff && (qnan_bit | bits | fraction_low) */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_d;
- tv->lab = 0;
x.ieee_nan.negative = 0;
x.ieee_nan.exponent = 0x7ff;
x.ieee_nan.quiet_nan = 1; /* @@@ quiet or signalling? */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_p;
- tv->lab = 0;
tv->u.p.xname = NULL;
tv->u.p.ent = NULL;
tv->u.p.tv = NULL;
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_Z;
- tv->lab = 0;
if (mpz_init_set_str (&tv->u.Z, buf, base)) assert (0);
return tarval_identify (tv);
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_B;
- tv->lab = 0;
assert (s[0] == '0');
switch (s[1]) {
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_d;
- tv->lab = 0;
tv->u.d = strtod (buf, &eptr);
assert (eptr == buf+strlen(buf));
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_s;
- tv->lab = 0;
tv->u.s.n = len;
tv->u.s.p = obstack_copy (&tv_obst, s, len);
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_S;
- tv->lab = 0;
tv->u.s.n = len;
tv->u.s.p = obstack_copy (&tv_obst, s, len);
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = m;
- tv->lab = 0;
switch (m->code) {
/* floating */
case irm_f:
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_p;
- tv->lab = 0;
tv->u.p.xname = obstack_copy0 (&tv_obst, xname, strlen (xname));
tv->u.p.ent = NULL;
tv->u.p.tv = NULL;
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_p;
- tv->lab = 0;
tv->u.p.xname = NULL;
tv->u.p.ent = ent;
tv->u.p.tv = NULL;
tv = obstack_finish (&tv_obst);
p = (unsigned char *)tv + sizeof (tarval);
tv->mode = m;
- tv->lab = 0;
switch (m->code) {
case irm_C:
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = m;
- tv->lab = 0;
switch (src->mode->code) {
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* floating */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* floating */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* floating */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* floating */
case irm_f:
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_f;
- tv->lab = 0;
tv->u.f = a->u.f / b->u.f; /* @@@ overflow etc */
break;
case irm_d:
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = mode_d;
- tv->lab = 0;
tv->u.d = a->u.d / b->u.d; /* @@@ overflow etc */
break;
default:
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* floating */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* floating */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* unsigned */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* unsigned */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* unsigned */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* unsigned */
tv = (tarval *)obstack_alloc (&tv_obst, sizeof (tarval));
tv->mode = a->mode;
- tv->lab = 0;
switch (a->mode->code) {
/* unsigned */