OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2004-08-29 Steven G. Kargl <kargls@comcast.net>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
fortran
/
resolve.c
diff --git
a/gcc/fortran/resolve.c
b/gcc/fortran/resolve.c
index
dfca4ab
..
e310f59
100644
(file)
--- a/
gcc/fortran/resolve.c
+++ b/
gcc/fortran/resolve.c
@@
-344,7
+344,7
@@
resolve_entries (gfc_namespace * ns)
if (ns->proc_name->attr.entry_master)
return;
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
h
as gone horribly wrong. */
assert (ns->proc_name->attr.flavor == FL_PROCEDURE);
/* Remember the current namespace. */
assert (ns->proc_name->attr.flavor == FL_PROCEDURE);
/* Remember the current namespace. */
@@
-369,8
+369,8
@@
resolve_entries (gfc_namespace * ns)
/* Create a new symbol for the master function. */
/* Give the internal function a unique name (within this file).
/* Create a new symbol for the master function. */
/* Give the internal function a unique name (within this file).
- Also include t
eh
function name so the user has some hope of figuring
- out whats going on. */
+ Also include t
he
function name so the user has some hope of figuring
+ out what
i
s going on. */
snprintf (name, GFC_MAX_SYMBOL_LEN, "master.%d.%s",
master_count++, ns->proc_name->name);
name[GFC_MAX_SYMBOL_LEN] = '\0';
snprintf (name, GFC_MAX_SYMBOL_LEN, "master.%d.%s",
master_count++, ns->proc_name->name);
name[GFC_MAX_SYMBOL_LEN] = '\0';
@@
-392,10
+392,10
@@
resolve_entries (gfc_namespace * ns)
for (el = ns->entries; el; el = el->next)
merge_argument_lists (proc, el->sym->formal);
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;
ns->proc_name = proc;
- /* F
I
nalize the new symbols. */
+ /* F
i
nalize the new symbols. */
gfc_commit_symbols ();
/* Restore the original namespace. */
gfc_commit_symbols ();
/* Restore the original namespace. */
@@
-1392,7
+1392,7
@@
resolve_operator (gfc_expr * e)
if (op1->ts.type == BT_CHARACTER && op2->ts.type == BT_CHARACTER)
{
e->ts.type = BT_LOGICAL;
if (op1->ts.type == BT_CHARACTER && op2->ts.type == BT_CHARACTER)
{
e->ts.type = BT_LOGICAL;
- e->ts.kind = gfc_default_logical_kind
()
;
+ e->ts.kind = gfc_default_logical_kind;
break;
}
break;
}
@@
-1401,7
+1401,7
@@
resolve_operator (gfc_expr * e)
gfc_type_convert_binary (e);
e->ts.type = BT_LOGICAL;
gfc_type_convert_binary (e);
e->ts.type = BT_LOGICAL;
- e->ts.kind = gfc_default_logical_kind
()
;
+ e->ts.kind = gfc_default_logical_kind;
break;
}
break;
}