version 1.90, 2021/01/01 01:29:30 |
version 1.91, 2021/01/01 01:42:55 |
Line 305 add_type(type_t *tp) |
|
Line 305 add_type(type_t *tp) |
|
else if (dcs->d_cmod == DOUBLE) { |
else if (dcs->d_cmod == DOUBLE) { |
t = DCOMPLEX; |
t = DCOMPLEX; |
} else |
} else |
error(308, basic_type_name(dcs->d_cmod)); |
error(308, tspec_name(dcs->d_cmod)); |
dcs->d_cmod = NOTSPEC; |
dcs->d_cmod = NOTSPEC; |
} |
} |
|
|
|
|
case LCOMPLEX: |
case LCOMPLEX: |
break; |
break; |
default: |
default: |
LERROR("deftyp(%s)", basic_type_name(t)); |
LERROR("deftyp(%s)", tspec_name(t)); |
} |
} |
if (t != INT && t != CHAR && (s != NOTSPEC || l != NOTSPEC)) { |
if (t != INT && t != CHAR && (s != NOTSPEC || l != NOTSPEC)) { |
dcs->d_terr = 1; |
dcs->d_terr = 1; |