| /src/external/gpl3/binutils/dist/gas/ |
| macro.c | 447 /* Allocate a new formal. */
452 formal_entry *formal; local
454 formal = XNEW (formal_entry);
456 sb_new (&formal->name);
457 sb_new (&formal->def);
458 sb_new (&formal->actual);
459 formal->next = NULL;
460 formal->type = FORMAL_OPTIONAL;
461 return formal;
464 /* Free a formal. *
486 formal_entry *formal = new_formal (); local
574 formal_entry *formal = new_formal (); local
607 formal_entry *formal; local
[all...] |
| /src/external/gpl3/binutils.old/dist/gas/ |
| macro.c | 475 /* Allocate a new formal. */
480 formal_entry *formal; local
482 formal = XNEW (formal_entry);
484 sb_new (&formal->name);
485 sb_new (&formal->def);
486 sb_new (&formal->actual);
487 formal->next = NULL;
488 formal->type = FORMAL_OPTIONAL;
489 return formal;
492 /* Free a formal. *
514 formal_entry *formal = new_formal (); local
602 formal_entry *formal = new_formal (); local
635 formal_entry *formal; local
[all...] |
| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| 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)
|
| 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...] |
| 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...] |
| 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...] |
| 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)
|
| 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...] |
| 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...] |
| 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...] |
| trans-stmt.cc | 235 gfc_formal_arglist *formal; local
248 formal = gfc_sym_get_dummy_args (sym);
251 for (; arg != NULL; arg = arg->next, formal = formal ? formal->next : NULL)
264 fsym = formal ? formal->sym : NULL;
|
| 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-array.cc | 7621 gfc_formal_arglist *formal; local
7721 formal = gfc_sym_get_dummy_args (expr->symtree->n.sym);
7726 for (; arg != NULL; arg = arg->next, formal = formal ? formal->next : NULL)
7730 if (formal->sym)
7731 gfc_add_interface_mapping (&mapping, formal->sym, NULL, arg->expr);
|
| trans-expr.cc | 711 formal arguments made this necessary. */
4403 sym->new_sym->n.sym->formal = NULL;
4545 new_sym->formal = expr->symtree->n.sym->formal;
5271 /* Determine the offset for pointer formal arguments and set the
6357 gfc_formal_arglist *formal; local
6417 formal = gfc_sym_get_dummy_args (sym);
6426 formal = comp->ts.interface ? comp->ts.interface->formal : NULL;
6435 /* For _vprt->_copy () routines no formal symbol is present. Nevertheles
[all...] |
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| 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)
|
| 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...] |
| 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...] |
| 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...] |
| 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...] |
| 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...] |
| 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...] |
| trans-stmt.cc | 234 gfc_formal_arglist *formal; local
247 formal = gfc_sym_get_dummy_args (sym);
250 for (; arg != NULL; arg = arg->next, formal = formal ? formal->next : NULL)
263 fsym = formal ? formal->sym : NULL;
|
| 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...] |
| /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...] |
