Home
last modified time | relevance | path

Searched refs:TYCOMPLEX (Results 1 – 11 of 11) sorted by relevance

/netbsd-src/external/bsd/pcc/dist/pcc/f77/fcom/
H A Dintr.c65 { "cmplx", { INTRCONV, TYCOMPLEX }, },
137 { "csqrt", { INTRSPEC, TYCOMPLEX, 37 }, },
142 { "cexp", { INTRSPEC, TYCOMPLEX, 41 }, },
148 { "clog", { INTRSPEC, TYCOMPLEX, 45 }, },
157 { "csin", { INTRSPEC, TYCOMPLEX, 51 }, },
162 { "ccos", { INTRSPEC, TYCOMPLEX, 55 }, },
222 { TYCOMPLEX,TYREAL,1,"c_abs" },
248 { TYCOMPLEX,TYREAL,1,"r_imag" },
250 { TYCOMPLEX,TYCOMPLEX,1,"r_cnjg" },
255 { TYCOMPLEX,TYCOMPLEX,1,"c_sqrt" },
[all …]
H A Dput.c117 q->vtype += (TYREAL-TYCOMPLEX); in realpart()
131 q->vtype += (TYREAL-TYCOMPLEX); in imagpart()
245 case TYCOMPLEX: in putconst()
H A Dexpr.c162 p = mkconst( (rtype==TYDREAL||itype==TYDREAL) ? TYDCOMPLEX : TYCOMPLEX );
480 p = call2(ptype, ptype==TYCOMPLEX? "c_div" : "z_div",
1774 case TYCOMPLEX:
1786 case TYCOMPLEX:
1816 case TYCOMPLEX:
1846 case TYCOMPLEX:
1905 case TYCOMPLEX:
1922 case TYCOMPLEX:
1943 case TYCOMPLEX:
1964 case TYCOMPLEX:
[all …]
H A Dftypes.h52 #define TYCOMPLEX 6 macro
H A Ddefines.h243 #define MSKCOMPLEX M(TYCOMPLEX)|M(TYDCOMPLEX)
H A Dputscj.c750 if(rtype < TYCOMPLEX) { in putcx1()
752 } else if(ltype < TYCOMPLEX) { in putcx1()
765 if(ltype < TYCOMPLEX) { in putcx1()
773 } else if(rtype < TYCOMPLEX) { in putcx1()
H A Dgram.dcl36 | SCOMPLEX { $$ = TYCOMPLEX; }
H A Dproc.c269 case TYCOMPLEX:
744 case TYCOMPLEX:
H A Ddata.c291 case TYCOMPLEX:
H A Dmisc.c485 if(t==TYCOMPLEX && (t1==TYDREAL || t2==TYDREAL) )
H A Dio.c480 type -= (TYCOMPLEX-TYREAL);