mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 13:41:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/91593 (Implicit enum conversions in libgfortran/io/transfer.c)

Browse Source 
2019-09-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/91593
	* io/io.h: Add gcc_unreachable().
	* io/transfer.c (file_mode, current_mode,
	formatted_transfer_scalar_read, formatted_transfer_scalar_write,
	pre_position, next_record_r, next_record_w): Add and use
	FORMATTED_UNSPECIFIED to enumeration.

From-SVN: r276255
This commit is contained in:
Jerry DeLisle 2019-09-28 19:14:47 +00:00
parent 4c59710186
commit 60674b3f8a
3 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libgfortran/ChangeLog
View File

@ -1,3 +1,12 @@
2019-09-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/91593
* io/io.h: Add gcc_unreachable().
* io/transfer.c (file_mode, current_mode,
formatted_transfer_scalar_read, formatted_transfer_scalar_write,
pre_position, next_record_r, next_record_w): Add and use
FORMATTED_UNSPECIFIED to enumeration.
2019-09-27 Maciej W. Rozycki <macro@wdc.com>
* configure: Regenerate.

1
libgfortran/io/io.h
View File

@ -32,6 +32,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#include <gthr.h>
#define gcc_unreachable() __builtin_unreachable ()
/* POSIX 2008 specifies that the extended locale stuff is found in
locale.h, but some systems have them in xlocale.h. */

23
libgfortran/io/transfer.c
View File

@ -193,7 +193,8 @@ static const st_option async_opt[] = {
typedef enum
{ FORMATTED_SEQUENTIAL, UNFORMATTED_SEQUENTIAL,
FORMATTED_DIRECT, UNFORMATTED_DIRECT, FORMATTED_STREAM, UNFORMATTED_STREAM
FORMATTED_DIRECT, UNFORMATTED_DIRECT, FORMATTED_STREAM,
UNFORMATTED_STREAM, FORMATTED_UNSPECIFIED
}
file_mode;
@ -203,7 +204,7 @@ current_mode (st_parameter_dt *dtp)
{
file_mode m;
m = FORM_UNSPECIFIED;
m = FORMATTED_UNSPECIFIED;
if (dtp->u.p.current_unit->flags.access == ACCESS_DIRECT)
{
@ -1727,17 +1728,17 @@ formatted_transfer_scalar_read (st_parameter_dt *dtp, bt type, void *p, int kind
case FMT_S:
consume_data_flag = 0;
dtp->u.p.sign_status = SIGN_S;
dtp->u.p.sign_status = SIGN_PROCDEFINED;
break;
case FMT_SS:
consume_data_flag = 0;
dtp->u.p.sign_status = SIGN_SS;
dtp->u.p.sign_status = SIGN_SUPPRESS;
break;
case FMT_SP:
consume_data_flag = 0;
dtp->u.p.sign_status = SIGN_SP;
dtp->u.p.sign_status = SIGN_PLUS;
break;
case FMT_BN:
@ -2186,17 +2187,17 @@ formatted_transfer_scalar_write (st_parameter_dt *dtp, bt type, void *p, int kin
case FMT_S:
consume_data_flag = 0;
dtp->u.p.sign_status = SIGN_S;
dtp->u.p.sign_status = SIGN_PROCDEFINED;
break;
case FMT_SS:
consume_data_flag = 0;
dtp->u.p.sign_status = SIGN_SS;
dtp->u.p.sign_status = SIGN_SUPPRESS;
break;
case FMT_SP:
consume_data_flag = 0;
dtp->u.p.sign_status = SIGN_SP;
dtp->u.p.sign_status = SIGN_PLUS;
break;
case FMT_BN:
@ -2766,6 +2767,8 @@ pre_position (st_parameter_dt *dtp)
case UNFORMATTED_DIRECT:
dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
break;
case FORMATTED_UNSPECIFIED:
gcc_unreachable ();
}
dtp->u.p.current_unit->current_record = 1;
@ -3637,6 +3640,8 @@ next_record_r (st_parameter_dt *dtp, int done)
while (p != '\n');
}
break;
case FORMATTED_UNSPECIFIED:
gcc_unreachable ();
}
}
@ -4002,6 +4007,8 @@ next_record_w (st_parameter_dt *dtp, int done)
}
break;
case FORMATTED_UNSPECIFIED:
gcc_unreachable ();
io_error:
generate_error (&dtp->common, LIBERROR_OS, NULL);