* resolve.c (resolve_entries): Fix a bunch of comment typos.
From-SVN: r86497
This commit is contained in:
parent
b5c2f1d1fd
commit
7be7d41bde
|
@ -1,3 +1,11 @@
|
|||
2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
||||
|
||||
* trans-decl.c (build_function_decl): Fix spelling in comment.
|
||||
(build_entry_thunks): Remove code with no function.
|
||||
(gfc_build_intrinsic_function_decls): Remove empty line.
|
||||
|
||||
* resolve.c (resolve_entries): Fix a bunch of comment typos.
|
||||
|
||||
2004-08-24 Nathan Sidwell <nathan@codesourcery.com>
|
||||
|
||||
* fortran/f95-lang.c (gfc_init_decl_processing): Adjust
|
||||
|
|
|
@ -312,6 +312,10 @@ merge_argument_lists (gfc_symbol *proc, gfc_formal_arglist *new_args)
|
|||
/* Add a new argument. Argument order is not important. */
|
||||
new_arglist = gfc_get_formal_arglist ();
|
||||
new_arglist->sym = new_sym;
|
||||
/* We mark all arguments as optional, since in the common case
|
||||
only a subset of the arguments will be present. This avoids
|
||||
having to special case arguments of master functions later on. */
|
||||
new_arglist->sym->attr.optional = 1;
|
||||
new_arglist->next = proc->formal;
|
||||
proc->formal = new_arglist;
|
||||
}
|
||||
|
@ -344,7 +348,7 @@ resolve_entries (gfc_namespace * ns)
|
|||
if (ns->proc_name->attr.entry_master)
|
||||
return;
|
||||
|
||||
/* If this isn't a procedure something as gone horribly wrong. */
|
||||
/* If this isn't a procedure something has gone horribly wrong. */
|
||||
assert (ns->proc_name->attr.flavor == FL_PROCEDURE);
|
||||
|
||||
/* Remember the current namespace. */
|
||||
|
@ -369,8 +373,8 @@ resolve_entries (gfc_namespace * ns)
|
|||
|
||||
/* Create a new symbol for the master function. */
|
||||
/* Give the internal function a unique name (within this file).
|
||||
Also include teh function name so the user has some hope of figuring
|
||||
out whats going on. */
|
||||
Also include the function name so the user has some hope of figuring
|
||||
out what is going on. */
|
||||
snprintf (name, GFC_MAX_SYMBOL_LEN, "master.%d.%s",
|
||||
master_count++, ns->proc_name->name);
|
||||
name[GFC_MAX_SYMBOL_LEN] = '\0';
|
||||
|
@ -392,10 +396,10 @@ resolve_entries (gfc_namespace * ns)
|
|||
for (el = ns->entries; el; el = el->next)
|
||||
merge_argument_lists (proc, el->sym->formal);
|
||||
|
||||
/* And use it for the function body. */
|
||||
/* Use the master function for the function body. */
|
||||
ns->proc_name = proc;
|
||||
|
||||
/* FInalize the new symbols. */
|
||||
/* Finalize the new symbols. */
|
||||
gfc_commit_symbols ();
|
||||
|
||||
/* Restore the original namespace. */
|
||||
|
|
Loading…
Reference in New Issue