/haiku-buildtools/gcc/gcc/fortran/ |
H A D | interface.c | 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 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 D | check.c | 1576 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 D | class.c | 1316 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 D | symbol.c | 1656 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 D | trans-decl.c | 1900 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 D | dependency.c | 1069 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 D | intrinsic.c | 385 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 D | resolve.c | 77 /* 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 D | trans-expr.c | 3560 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 D | module.c | 2606 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 D | trans-intrinsic.c | 212 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 D | trans-stmt.c | 239 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 D | gfortran.h | 1043 /* 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 D | iresolve.c | 1001 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 D | trans-array.c | 6358 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 D | parse.c | 2992 gfc_new_block->formal, NULL)) 3056 from the formal namespace. */
|
/haiku-buildtools/legacy/binutils/gas/config/ |
H A D | tc-iq2000.c | 257 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 D | tc-iq2000.c | 255 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 D | integrate.c | 1401 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 D | fixincludes | 1766 echo Fixing $file, bad wait formal
|
/haiku-buildtools/legacy/binutils/gas/ |
H A D | macro.c | 489 /* 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 D | macro.c | 467 /* 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...] |