FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[multiple changes]

Browse source 
2007-07-02  Steven G. Kargl  <kargl@gcc.gnu.org>

	Restore collateral damage from ISO C Binding merge.

        2007-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/32456
	* io/unit.c (filename_from_unit): Don't use find_unit, instead search
	for unit directly.

From-SVN: r126238
This commit is contained in:
Steven G. Kargl 2007-07-02 23:29:27 +00:00
parent 5cc4845564
commit 8eacc23d94
2 changed files with 31 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
libgfortran/ChangeLog
View file

@ -1,3 +1,14 @@
2007-07-02 Steven G. Kargl <kargl@gcc.gnu.org>
Restore collateral damage from ISO C Binding merge.
2007-06-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/32456
* io/unit.c (filename_from_unit): Don't use find_unit, instead search
for unit directly.
2007-07-02 Steven G. Kargl <kargl@gcc.gnu.org>
* Makefile.in: Regenerated with automake 1.9.6.

24
libgfortran/io/unit.c
View file

@ -690,11 +690,26 @@ update_position (gfc_unit *u)
must free memory allocated for the filename string. */
char *
filename_from_unit (int unit_number)
filename_from_unit (int n)
{
char *filename;
gfc_unit *u = NULL;
u = find_unit (unit_number);
gfc_unit *u;
int c;
/* Find the unit. */
u = unit_root;
while (u != NULL)
{
c = compare (n, u->unit_number);
if (c < 0)
u = u->left;
if (c > 0)
u = u->right;
if (c == 0)
break;
}
/* Get the filename. */
if (u != NULL)
{
filename = (char *) get_mem (u->file_len + 1);
@ -703,4 +718,5 @@ filename_from_unit (int unit_number)
}
else
return (char *) NULL;
}
}