| /src/external/bsd/pcc/dist/pcc/arch/nova/ |
| code.c | 131 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
169 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
|
| local.c | 390 r->n_sp->stype = INCREF(p->n_type)+(FTN-PTR);
|
| /src/external/bsd/pcc/dist/pcc/arch/hppa/ |
| code.c | 94 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
144 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
|
| local.c | 417 (s = block(NAME, NIL, NIL, FTN, 0, 0)),
418 NIL, PTR|FTN, 0, 0),
439 (s = block(NAME, NIL, NIL, FTN, 0, 0)),NIL,0,0,0),
498 block(NAME, NIL, NIL, FTN, 0, 0), NIL, PTR|FTN, 0, 0);
|
| /src/external/bsd/pcc/dist/pcc/arch/m16c/ |
| code.c | 75 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
128 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
|
| /src/external/bsd/pcc/dist/pcc/arch/m68k/ |
| code.c | 109 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
145 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
|
| local2.c | 484 p->n_left = mklnode(ICON, 0, 0, FTN|p->n_type);
495 p->n_left = mklnode(ICON, 0, 0, FTN|p->n_type);
|
| local.c | 249 r->n_sp->stype = INCREF(VOID+PTR)+(FTN-PTR);
|
| /src/external/bsd/pcc/dist/pcc/arch/pdp11/ |
| code.c | 100 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
124 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
|
| /src/external/bsd/pcc/dist/pcc/arch/pdp10/ |
| code.c | 85 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
|
| local.c | 422 sp->stype = INCREF(type | FTN);
|
| /src/external/bsd/pcc/dist/pcc/arch/i86/ |
| code.c | 89 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
145 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
|
| /src/external/bsd/pcc/dist/pcc/arch/vax/ |
| code.c | 132 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
159 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
|
| local2.c | 1174 p->n_left = mklnode(ICON, 0, 0, FTN|p->n_type);
1194 s = mklnode(ICON, 0, 0, FTN|UNSIGNED);
1202 p->n_left = mklnode(ICON, 0, 0, FTN|UNSIGNED);
1214 p->n_left = mklnode(ICON, 0, 0, FTN|p->n_type);
|
| /src/external/bsd/pcc/dist/pcc/arch/arm/ |
| code.c | 264 p = tempnode(0, PTR-FTN+cftnsp->stype, 0, cftnsp->sap);
333 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
397 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
826 ty = DECREF(l->n_type) - FTN;
877 if (p->n_type == STRTY+FTN || p->n_type == UNIONTY+FTN) {
|
| /src/external/bsd/pcc/dist/pcc/arch/mips/ |
| code.c | 131 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
134 ty = cftnsp->stype - FTN;
383 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
699 if (ty == STRTY+FTN || ty == UNIONTY+FTN) {
700 ty = DECREF(l->n_type) - FTN;
|
| /src/external/bsd/pcc/dist/pcc/arch/i386/ |
| code.c | 141 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
266 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
|
| /src/external/bsd/pcc/dist/pcc/mip/ |
| manifest.h | 95 #define FTN 0x40
122 #define ISFTN(x) (((x)&TMASK)==FTN) /* is x a function type? */
|
| /src/external/bsd/pcc/dist/pcc/arch/powerpc/ |
| code.c | 365 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
490 if (cftnsp->stype != STRTY+FTN && cftnsp->stype != UNIONTY+FTN)
493 ty = cftnsp->stype - FTN;
1499 ty = DECREF(l->n_type) - FTN;
1534 if (DECREF(p->n_left->n_type) == STRTY+FTN ||
1535 DECREF(p->n_left->n_type) == UNIONTY+FTN)
|
| /src/external/bsd/pcc/dist/pcc/arch/amd64/ |
| code.c | 249 if (cftnsp->stype == STRTY+FTN || cftnsp->stype == UNIONTY+FTN) {
576 sp->sclass = USTATIC; sp->stype = FTN|VOID|(PTR<<TSHIFT); }
1115 if ((l = p->n_left)->n_type == INCREF(FTN)+STRTY ||
1116 l->n_type == INCREF(FTN)+UNIONTY) {
|
| /src/share/mk/ |
| sys.mk | 11 _FORTRAN_SUFFIXES_NOCPP=.f .for .ftn .f90 .f95 .f03 .f08
12 _FORTRAN_SUFFIXES_CPP= .F .FOR .fpp .FPP .FTN .F90 .F95 .F03 .F08
|
| /src/external/bsd/pcc/dist/pcc/cc/ccom/ |
| pftn.c | 1162 case FTN:
1221 case FTN:
2097 t += (FTN-PTR);
2101 t += (FTN-PTR);
2418 /* al = prototyp, apole = argument till ftn */
2569 case FTN:
2659 if( mod1 == ARY && mod2 == FTN ){
2663 else if( mod1 == FTN && ( mod2 == ARY || mod2 == FTN ) ){
2893 p = block(NAME, NIL, NIL, FTN+VOID, 0, 0)
[all...] |
| /src/external/bsd/pcc/dist/pcc/cc/cxxcom/ |
| pftn.c | 1156 case FTN:
1208 case FTN:
2079 t += (FTN-PTR);
2083 t += (FTN-PTR);
2386 /* al = prototyp, apole = argument till ftn */
2528 case FTN:
2618 if( mod1 == ARY && mod2 == FTN ){
2622 else if( mod1 == FTN && ( mod2 == ARY || mod2 == FTN ) ){
2849 p = block(NAME, NIL, NIL, FTN+VOID, 0, 0)
[all...] |
| builtins.c | 406 f->n_sp->stype = INCREF(rt)+(FTN-PTR);
801 p->n_type = INCREF(bt->rt) + (FTN-PTR);
|
| cxxcode.c | 80 sp->stype = (FTN|VOID) | (PTR << TSHIFT);
|
