| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| interface.cc | 23 singly linked list of formal argument structures attached to the
57 formal argument list structures that don't point to any symbol
63 formal argument list points to symbols within the same namespace as
731 that is for the formal arg, but oh well. */
839 /* Given two symbols that are formal arguments, compare their ranks
850 /* Given two symbols that are formal arguments, compare their types
851 and rank and their formal interfaces if they are both dummy
893 /* Given a formal argument list and a keyword name, search the list
918 gfc_formal_arglist *formal; local
931 for (formal = gfc_sym_get_dummy_args (sym); formal; formal = formal->next
5364 gfc_formal_arglist *formal; local
[all...] |
| class.cc | 1522 if (fini->proc_tree->n.sym->formal->sym->as->type != AS_ASSUMED_SHAPE
1523 || fini->proc_tree->n.sym->formal->sym->attr.contiguous)
1588 tmp_array->as->rank = fini->proc_tree->n.sym->formal->sym->as->rank;
1660 if (fini->proc_tree->n.sym->formal->sym->attr.intent == INTENT_IN)
1823 /* Set up formal argument. */
1837 final->formal = gfc_get_formal_arglist ();
1838 final->formal->sym = array;
1841 /* Set up formal argument. */
1850 final->formal->next = gfc_get_formal_arglist ();
1851 final->formal->next->sym = byte_stride
[all...] |
| symbol.cc | 1955 gfc_formal_arglist * formal, locus *where)
1985 sym->formal = formal;
3161 gfc_free_formal_arglist (sym->formal);
3217 namespace. So we assume that symbols with a formal namespace different
3686 if (p->formal != old->formal)
3688 gfc_free_formal_arglist (p->formal);
3689 p->formal = old->formal;
[all...] |
| dump-parse-tree.cc | 69 debug (gfc_formal_arglist *formal)
73 for (; formal; formal = formal->next)
76 show_symbol (formal->sym);
1101 gfc_formal_arglist *formal; local
1175 if (sym->formal)
1178 fputs ("Formal arglist:", dumpfile);
1180 for (formal = sym->formal; formal; formal = formal->next
[all...] |
| check.cc | 2249 gfc_formal_arglist *formal; local
2298 formal = sym->formal;
2300 if (!formal || !formal->next || formal->next->next)
2318 if (!gfc_compare_types (&a->ts, &formal->sym->ts)
2319 || !gfc_compare_types (&a->ts, &formal->next->sym->ts))
2323 gfc_typename (&formal->sym->ts),
2324 gfc_typename (&formal->next->sym->ts), gfc_typename (a))
[all...] |
| resolve.cc | 249 /* Resolve types of formal argument lists. These have to be done early so that
250 the formal argument lists of module procedures can be copied to the
282 for (f = proc->formal; f; f = f->next)
548 /* Given a namespace, resolve all formal argument lists within the namespace.
630 /* Add NEW_ARGS to the formal argument list of PROC, taking care not to
642 /* See if this arg is already in the formal argument list. */
643 for (f = proc->formal; f; f = f->next)
655 new_arglist->next = proc->formal;
656 proc->formal = new_arglist;
669 for (f = proc->formal; f; f = f->next
6073 gfc_formal_arglist *formal; local
17036 gfc_formal_arglist *formal = sym->formal; local
17081 gfc_formal_arglist *formal = sym->formal; local
18268 gfc_formal_arglist *formal; local
[all...] |
| trans-decl.cc | 2280 gcc_assert (isym->formal);
2281 argexpr.ts = isym->formal->ts;
2283 if (isym->formal->next == NULL)
2287 if (isym->formal->next->next == NULL)
2291 if (isym->formal->next->next->next == NULL)
2296 gcc_assert (isym->formal->next->next->next->next == NULL);
2553 /* Build formal argument list. Make sure that their TREE_CONTEXT is
2960 gfc_formal_arglist *formal; local
3004 for (formal = gfc_sym_get_dummy_args (ns->proc_name); formal;
6338 gfc_formal_arglist *formal; local
[all...] |
| intrinsic.cc | 451 next_sym->formal = next_arg;
1318 arg = next_sym[-1].formal;
4230 /* Given a formal argument list, remove any NULL arguments that may
4231 have been left behind by a sort against some formal argument list. */
4278 /* Given an actual arglist and a formal arglist, sort the actual
4287 gfc_intrinsic_arg *formal, locus *where)
4298 for (f = formal; f; f = f->next)
4304 f = formal;
4408 /* At this point, all unmatched formal args must be optional. */
4421 /* Using the formal argument list, string the actual argument lis
4461 gfc_intrinsic_arg *formal; local
4743 gfc_intrinsic_arg *formal; local
[all...] |
| dependency.cc | 1131 gfc_formal_arglist *formal; local
1134 formal = fnsym ? gfc_sym_get_dummy_args (fnsym) : NULL;
1135 for (; actual; actual = actual->next, formal = formal ? formal->next : NULL)
1148 if (formal && intent == INTENT_IN
1149 && formal->sym->attr.intent == INTENT_IN)
|
| decl.cc | 1346 /* Ideally, at this point, a copy would be made of the formal
3851 type_param_name_list = pdt->formal;
4073 for (f = c1->ts.u.derived->formal; f && f->next; f = f->next)
6652 /* Match a formal argument list or, if typeparam is true, a
6663 gfc_formal_arglist *formal = NULL; local
6667 /* Keep the interface formal argument list and null it so that the
6669 names of the arguments are checked here. The interface formal
6673 and populate the formal namespace of the interface symbol. */
6677 formal = progname->formal;
9951 gfc_formal_arglist *formal, *head, *tail; local
[all...] |
| module.cc | 3062 static void mio_formal_arglist (gfc_formal_arglist **formal);
3205 /* Read and write formal argument lists. */
3208 mio_formal_arglist (gfc_formal_arglist **formal)
3216 for (f = *formal; f; f = f->next)
3221 *formal = tail = NULL;
3228 if (*formal == NULL)
3229 *formal = f;
4334 /* PDT templates make use of the mechanisms for formal args
4335 and so the parameter symbols are stored in the formal
4337 free the formal namespace since it is uneeded. *
[all...] |
| match.cc | 5972 gfc_formal_arglist *formal; local
5977 for (formal = sym->formal; formal; formal = formal->next)
5979 if (formal->sym == e->symtree->n.sym)
6020 ptr = sym->formal;
6052 if (fcn && ptr != sym->formal)
|
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| interface.cc | 23 singly linked list of formal argument structures attached to the
57 formal argument list structures that don't point to any symbol
63 formal argument list points to symbols within the same namespace as
702 that is for the formal arg, but oh well. */
802 /* Given two symbols that are formal arguments, compare their ranks
813 /* Given two symbols that are formal arguments, compare their types
814 and rank and their formal interfaces if they are both dummy
856 /* Given a formal argument list and a keyword name, search the list
881 gfc_formal_arglist *formal; local
894 for (formal = gfc_sym_get_dummy_args (sym); formal; formal = formal->next
5211 gfc_formal_arglist *formal; local
[all...] |
| class.cc | 1412 if (fini->proc_tree->n.sym->formal->sym->as->type != AS_ASSUMED_SHAPE
1413 || fini->proc_tree->n.sym->formal->sym->attr.contiguous)
1480 tmp_array->as->rank = fini->proc_tree->n.sym->formal->sym->as->rank;
1552 if (fini->proc_tree->n.sym->formal->sym->attr.intent == INTENT_IN)
1715 /* Set up formal argument. */
1729 final->formal = gfc_get_formal_arglist ();
1730 final->formal->sym = array;
1733 /* Set up formal argument. */
1742 final->formal->next = gfc_get_formal_arglist ();
1743 final->formal->next->sym = byte_stride
[all...] |
| dump-parse-tree.cc | 69 void debug (gfc_formal_arglist *formal)
73 for (; formal; formal = formal->next)
76 show_symbol (formal->sym);
1083 gfc_formal_arglist *formal; local
1157 if (sym->formal)
1160 fputs ("Formal arglist:", dumpfile);
1162 for (formal = sym->formal; formal; formal = formal->next
[all...] |
| check.cc | 2222 gfc_formal_arglist *formal; local
2271 formal = sym->formal;
2273 if (!formal || !formal->next || formal->next->next)
2291 if (!gfc_compare_types (&a->ts, &formal->sym->ts)
2292 || !gfc_compare_types (&a->ts, &formal->next->sym->ts))
2296 gfc_typename (&formal->sym->ts),
2297 gfc_typename (&formal->next->sym->ts), gfc_typename (a))
[all...] |
| symbol.cc | 1949 gfc_formal_arglist * formal, locus *where)
1979 sym->formal = formal;
3096 gfc_free_formal_arglist (sym->formal);
3569 if (p->formal != old->formal)
3571 gfc_free_formal_arglist (p->formal);
3572 p->formal = old->formal;
3774 if (sym->old_symbol->formal != sym->formal
[all...] |
| resolve.cc | 75 /* True if we are processing a formal arglist. The corresponding function
258 /* Resolve types of formal argument lists. These have to be done early so that
259 the formal argument lists of module procedures can be copied to the
290 for (f = proc->formal; f; f = f->next)
554 /* Given a namespace, resolve all formal argument lists within the namespace.
636 /* Add NEW_ARGS to the formal argument list of PROC, taking care not to
648 /* See if this arg is already in the formal argument list. */
649 for (f = proc->formal; f; f = f->next)
661 new_arglist->next = proc->formal;
662 proc->formal = new_arglist
5912 gfc_formal_arglist *formal; local
16203 gfc_formal_arglist *formal = sym->formal; local
16259 gfc_formal_arglist *formal = sym->formal; local
17423 gfc_formal_arglist *formal; local
[all...] |
| trans-decl.cc | 2256 gcc_assert (isym->formal);
2257 argexpr.ts = isym->formal->ts;
2259 if (isym->formal->next == NULL)
2263 if (isym->formal->next->next == NULL)
2267 if (isym->formal->next->next->next == NULL)
2272 gcc_assert (isym->formal->next->next->next->next == NULL);
2518 /* Build formal argument list. Make sure that their TREE_CONTEXT is
2912 gfc_formal_arglist *formal; local
2956 for (formal = gfc_sym_get_dummy_args (ns->proc_name); formal;
6122 gfc_formal_arglist *formal; local
[all...] |
| intrinsic.cc | 450 next_sym->formal = next_arg;
1317 arg = next_sym[-1].formal;
4226 /* Given a formal argument list, remove any NULL arguments that may
4227 have been left behind by a sort against some formal argument list. */
4274 /* Given an actual arglist and a formal arglist, sort the actual
4283 gfc_intrinsic_arg *formal, locus *where)
4294 for (f = formal; f; f = f->next)
4300 f = formal;
4404 /* At this point, all unmatched formal args must be optional. */
4417 /* Using the formal argument list, string the actual argument lis
4457 gfc_intrinsic_arg *formal; local
4733 gfc_intrinsic_arg *formal; local
[all...] |
| dependency.cc | 1099 gfc_formal_arglist *formal; local
1102 formal = fnsym ? gfc_sym_get_dummy_args (fnsym) : NULL;
1103 for (; actual; actual = actual->next, formal = formal ? formal->next : NULL)
1116 if (formal && intent == INTENT_IN
1117 && formal->sym->attr.intent == INTENT_IN)
|
| decl.cc | 1342 /* Ideally, at this point, a copy would be made of the formal
3813 type_param_name_list = pdt->formal;
4035 for (f = c1->ts.u.derived->formal; f && f->next; f = f->next)
6594 /* Match a formal argument list or, if typeparam is true, a
6605 gfc_formal_arglist *formal = NULL; local
6609 /* Keep the interface formal argument list and null it so that the
6611 names of the arguments are checked here. The interface formal
6615 and populate the formal namespace of the interface symbol. */
6619 formal = progname->formal;
9880 gfc_formal_arglist *formal, *head, *tail; local
[all...] |
| module.cc | 3043 static void mio_formal_arglist (gfc_formal_arglist **formal);
3186 /* Read and write formal argument lists. */
3189 mio_formal_arglist (gfc_formal_arglist **formal)
3197 for (f = *formal; f; f = f->next)
3202 *formal = tail = NULL;
3209 if (*formal == NULL)
3210 *formal = f;
4315 /* PDT templates make use of the mechanisms for formal args
4316 and so the parameter symbols are stored in the formal
4318 free the formal namespace since it is uneeded. *
[all...] |
| /src/external/gpl3/binutils/dist/gas/config/ |
| tc-iq2000.c | 251 formal_entry *formal;
253 formal = XNEW (formal_entry);
255 sb_new (& formal->name);
256 sb_new (& formal->def);
257 sb_new (& formal->actual);
266 sb_add_string (& formal->name, tt_args);
267 sb_add_string (& formal->def, tt_dflt + 1);
270 sb_add_string (& formal->name, *arguments);
274 sb_terminate (&formal->name), formal, 1)
249 formal_entry *formal; local
[all...] |
| /src/external/gpl3/binutils.old/dist/gas/config/ |
| tc-iq2000.c | 251 formal_entry *formal;
253 formal = XNEW (formal_entry);
255 sb_new (& formal->name);
256 sb_new (& formal->def);
257 sb_new (& formal->actual);
266 sb_add_string (& formal->name, tt_args);
267 sb_add_string (& formal->def, tt_dflt + 1);
270 sb_add_string (& formal->name, *arguments);
274 sb_terminate (&formal->name), formal, 1)
249 formal_entry *formal; local
[all...] |
