Searched refs:formal (Results 1 - 22 of 22) sorted by relevance

/haiku-buildtools/gcc/gcc/fortran/
H A Dinterface.c23 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
487 that is for the formal arg, but oh well. */
554 /* Given two symbols that are formal arguments, compare their ranks
565 /* Given two symbols that are formal arguments, compare their types
566 and rank and their formal interfaces if they are both dummy
608 /* Given a formal argument list and a keyword name, search the list
633 gfc_formal_arglist *formal; local
646 for (formal
1856 compare_allocatable(gfc_symbol *formal, gfc_expr *actual) argument
1877 compare_pointer(gfc_symbol *formal, gfc_expr *actual) argument
1935 compare_parameter(gfc_symbol *formal, gfc_expr *actual, int ranks_must_agree, int is_elemental, locus *where) argument
2572 compare_actual_formal(gfc_actual_arglist **ap, gfc_formal_arglist *formal, int ranks_must_agree, int is_elemental, locus *where) argument
[all...]
H A Dcheck.c1576 gfc_formal_arglist *formal; local
1625 formal = sym->formal;
1627 if (!formal || !formal->next || formal->next->next)
1645 if (!gfc_compare_types (&a->ts, &formal->sym->ts)
1646 || !gfc_compare_types (&a->ts, &formal->next->sym->ts))
1650 gfc_typename (&formal->sym->ts),
1651 gfc_typename (&formal
[all...]
H A Dclass.c1316 if (fini->proc_tree->n.sym->formal->sym->as->type != AS_ASSUMED_SHAPE
1317 || fini->proc_tree->n.sym->formal->sym->attr.contiguous)
1382 tmp_array->as->rank = fini->proc_tree->n.sym->formal->sym->as->rank;
1453 if (fini->proc_tree->n.sym->formal->sym->attr.intent == INTENT_IN)
1613 /* Set up formal argument. */
1627 final->formal = gfc_get_formal_arglist ();
1628 final->formal->sym = array;
1631 /* Set up formal argument. */
1640 final->formal->next = gfc_get_formal_arglist ();
1641 final->formal
[all...]
H A Dsymbol.c1656 gfc_formal_arglist * formal, locus *where)
1680 sym->formal = formal;
2554 gfc_free_formal_arglist (sym->formal);
3030 if (p->formal != old->formal)
3032 gfc_free_formal_arglist (p->formal);
3033 p->formal = old->formal;
3231 if (sym->old_symbol->formal !
1655 gfc_add_explicit_interface(gfc_symbol *sym, ifsrc source, gfc_formal_arglist * formal, locus *where) argument
4076 add_proc_interface(gfc_symbol *sym, ifsrc source, gfc_formal_arglist *formal) argument
[all...]
H A Dtrans-decl.c1900 gcc_assert (isym->formal);
1901 argexpr.ts = isym->formal->ts;
1903 if (isym->formal->next == NULL)
1907 if (isym->formal->next->next == NULL)
1911 if (isym->formal->next->next->next == NULL)
1916 gcc_assert (isym->formal->next->next->next->next == NULL);
2150 /* Build formal argument list. Make sure that their TREE_CONTEXT is
2514 gfc_formal_arglist *formal; local
2558 for (formal = gfc_sym_get_dummy_args (ns->proc_name); formal;
5383 gfc_formal_arglist *formal; local
[all...]
H A Ddependency.c1069 gfc_formal_arglist *formal; local
1072 formal = fnsym ? gfc_sym_get_dummy_args (fnsym) : NULL;
1073 for (; actual; actual = actual->next, formal = formal ? formal->next : NULL)
1086 if (formal && intent == INTENT_IN
1087 && formal->sym->attr.intent == INTENT_IN)
H A Dintrinsic.c385 next_sym->formal = next_arg;
1175 arg = next_sym[-1].formal;
3744 /* Given a formal argument list, remove any NULL arguments that may
3745 have been left behind by a sort against some formal argument list. */
3780 /* Given an actual arglist and a formal arglist, sort the actual
3789 gfc_intrinsic_arg *formal, locus *where)
3797 for (f = formal; f; f = f->next)
3800 f = formal;
3833 for (f = formal; f; f = f->next)
3859 /* At this point, all unmatched formal arg
3788 sort_actual(const char *name, gfc_actual_arglist **ap, gfc_intrinsic_arg *formal, locus *where) argument
3913 gfc_intrinsic_arg *formal; local
4158 gfc_intrinsic_arg *formal; local
[all...]
H A Dresolve.c77 /* Nonzero if we are processing a formal arglist. The corresponding function
254 /* Resolve types of formal argument lists. These have to be done early so that
255 the formal argument lists of module procedures can be copied to the
286 for (f = proc->formal; f; f = f->next)
547 /* Given a namespace, resolve all formal argument lists within the namespace.
616 /* Add NEW_ARGS to the formal argument list of PROC, taking care not to
628 /* See if this arg is already in the formal argument list. */
629 for (f = proc->formal; f; f = f->next)
641 new_arglist->next = proc->formal;
642 proc->formal
5038 gfc_formal_arglist *formal; local
13928 gfc_formal_arglist *formal = sym->formal; local
14968 gfc_formal_arglist *formal; local
[all...]
H A Dtrans-expr.c3560 sym->new_sym->n.sym->formal = NULL;
3699 new_sym->formal = expr->symtree->n.sym->formal;
4367 /* Determine the offset for pointer formal arguments and set the
4523 gfc_formal_arglist *formal; local
4579 formal = gfc_sym_get_dummy_args (sym);
4588 formal = comp->ts.interface ? comp->ts.interface->formal : NULL;
4600 arg = arg->next, formal = formal
[all...]
H A Dmodule.c2606 static void mio_formal_arglist (gfc_formal_arglist **formal);
2738 /* Read and write formal argument lists. */
2741 mio_formal_arglist (gfc_formal_arglist **formal) argument
2749 for (f = *formal; f; f = f->next)
2754 *formal = tail = NULL;
2761 if (*formal == NULL)
2762 *formal = f;
4100 mio_formal_arglist (&sym->formal);
4702 the namespaces that hold the formal parameters of module
4961 /* Some symbols do not have a namespace (eg. formal argument
[all...]
H A Dtrans-intrinsic.c212 gfc_intrinsic_arg *formal; local
216 formal = expr->value.function.isym->formal;
221 formal = formal ? formal->next : NULL)
250 && formal
251 && formal->optional)
252 gfc_conv_missing_dummy (&argse, e, formal->ts, 0);
8821 opr_flag_int |= sym->formal
[all...]
H A Dtrans-stmt.c239 gfc_formal_arglist *formal; local
252 formal = gfc_sym_get_dummy_args (sym);
255 for (; arg != NULL; arg = arg->next, formal = formal ? formal->next : NULL)
268 fsym = formal ? formal->sym : NULL;
H A Dgfortran.h1043 /* Points to the next formal argument. */
1380 /* Once resolved, we use the position of pass_arg in the formal arglist of
1411 /* The formal member points to the formal argument list if the
1419 gfc_formal_arglist *formal; member in struct:gfc_symbol
1671 will appear as several functions with the same formal namespace. */
1908 gfc_intrinsic_arg *formal; member in struct:gfc_intrinsic_sym
H A Diresolve.c1001 f->value.function.isym->formal->ts = a->ts;
1002 f->value.function.isym->formal->next->ts = mo->ts;
2912 /* Create a formal arglist based on an actual one and set the INTENTs given. */
2993 /* Create a dummy formal arglist so the INTENTs are known later for purpose
2995 c->resolved_sym->formal = create_formal_for_intents (c->ext.actual, INTENTS);
H A Dtrans-array.c6358 gfc_formal_arglist *formal; local
6412 formal = gfc_sym_get_dummy_args (expr->symtree->n.sym);
6417 for (; arg != NULL; arg = arg->next, formal = formal ? formal->next : NULL)
6421 if (formal->sym)
6422 gfc_add_interface_mapping (&mapping, formal->sym, NULL, arg->expr);
H A Dparse.c2992 gfc_new_block->formal, NULL))
3056 from the formal namespace. */
/haiku-buildtools/legacy/binutils/gas/config/
H A Dtc-iq2000.c257 formal_entry *formal;
259 formal = xmalloc (sizeof (formal_entry));
261 sb_new (& formal->name);
262 sb_new (& formal->def);
263 sb_new (& formal->actual);
272 sb_add_string (& formal->name, tt_args);
273 sb_add_string (& formal->def, tt_dflt + 1);
276 sb_add_string (& formal->name, *arguments);
279 hash_jam (macro->formal_hash, sb_terminate (& formal->name), formal);
255 formal_entry *formal; local
[all...]
/haiku-buildtools/binutils/gas/config/
H A Dtc-iq2000.c255 formal_entry *formal;
257 formal = XNEW (formal_entry);
259 sb_new (& formal->name);
260 sb_new (& formal->def);
261 sb_new (& formal->actual);
270 sb_add_string (& formal->name, tt_args);
271 sb_add_string (& formal->def, tt_dflt + 1);
274 sb_add_string (& formal->name, *arguments);
277 hash_jam (macro->formal_hash, sb_terminate (& formal->name), formal);
253 formal_entry *formal; local
[all...]
/haiku-buildtools/legacy/gcc/gcc/
H A Dintegrate.c1401 tree formal, actual, block;
1439 for (formal = DECL_ARGUMENTS (fndecl), actual = parms;
1440 formal;
1441 formal = TREE_CHAIN (formal), actual = TREE_CHAIN (actual))
1450 mode = TYPE_MODE (DECL_ARG_TYPE (formal));
1458 != TYPE_MAIN_VARIANT (TREE_TYPE (formal)))))
1479 for (formal = DECL_ARGUMENTS (fndecl), actual = parms, i = 0;
1480 formal;
1481 formal
1394 tree formal, actual, block; local
[all...]
H A Dfixincludes1766 echo Fixing $file, bad wait formal
/haiku-buildtools/legacy/binutils/gas/
H A Dmacro.c489 /* Allocate a new formal. */
494 formal_entry *formal; local
496 formal = xmalloc (sizeof (formal_entry));
498 sb_new (&formal->name);
499 sb_new (&formal->def);
500 sb_new (&formal->actual);
501 formal->next = NULL;
502 formal->type = FORMAL_OPTIONAL;
503 return formal;
506 /* Free a formal
509 del_formal(formal_entry *formal) argument
528 formal_entry *formal = new_formal (); local
616 formal_entry *formal = new_formal (); local
1282 formal_entry *formal; local
[all...]
/haiku-buildtools/binutils/gas/
H A Dmacro.c467 /* Allocate a new formal. */
472 formal_entry *formal; local
474 formal = XNEW (formal_entry);
476 sb_new (&formal->name);
477 sb_new (&formal->def);
478 sb_new (&formal->actual);
479 formal->next = NULL;
480 formal->type = FORMAL_OPTIONAL;
481 return formal;
484 /* Free a formal
487 del_formal(formal_entry *formal) argument
506 formal_entry *formal = new_formal (); local
595 formal_entry *formal = new_formal (); local
629 formal_entry *formal; local
[all...]

Completed in 575 milliseconds