diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-24 22:56:21 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-24 22:56:21 +0000 |
| commit | 87557722c87bd2ef0905ff061e7b0f990626ec5e (patch) | |
| tree | 02b1685a81931b1ab370a868e2b201861e6a069c /libgfortran/libgfortran.h | |
| parent | a49c5793d5df1c90f00aa0419b1f218bb4983fd9 (diff) | |
| download | gcc-87557722c87bd2ef0905ff061e7b0f990626ec5e.zip gcc-87557722c87bd2ef0905ff061e7b0f990626ec5e.tar.gz gcc-87557722c87bd2ef0905ff061e7b0f990626ec5e.tar.bz2 | |
re PR libfortran/32456 (IO error message should show Unit/Filename)
2007-06-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/32456
* runtime/error.c (show_locus): Update to emit the unit number
and file name involved with the error. Use new function
filename_from_unit.
* libgfortran.h (filename_from_unit): Declare new function.
* io/unit.c (init_units): Set the unit file name for stdin, stdout,
and stderr for use later in error reporting.
(filename_from_unit): Add this new function.
From-SVN: r125989
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index d42302a..e0801a1 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -683,6 +683,9 @@ extern int st_printf (const char *, ...) __attribute__ ((format (printf, 1, 2))); internal_proto(st_printf); +extern char * filename_from_unit (int); +internal_proto(filename_from_unit); + /* stop.c */ extern void stop_numeric (GFC_INTEGER_4) __attribute__ ((noreturn)); |