OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

transfer.c (us_read): Use memcpy/memset instead of assignment to fill unaligned buffer. 

* libgfortran/io/transfer.c (us_read): Use memcpy/memset
	instead of assignment to fill unaligned buffer.
	(us_write): Ditto.
	(next_record_w): Ditto.

From-SVN: r92143
This commit is contained in:
Steve Ellcey 2004-12-14 16:34:08 +00:00 committed by Steve Ellcey
parent 0cc1b87903
commit 0865674700
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2004-12-14 Steve Ellcey <sje@cup.hp.com>
* libgfortran/io/transfer.c (us_read): Use memcpy/memset
instead of assignment to fill unaligned buffer.
(us_write): Ditto.
(next_record_w): Ditto.
2004-12-05 Steven G. Kargl <kargls@comcast.net>
PR libfortran/18966

18
libgfortran/io/transfer.c
View File

@ -827,11 +827,12 @@ transfer_complex (void *p, int kind)
static void
us_read (void)
{
gfc_offset *p;
char *p;
int n;
gfc_offset i;
n = sizeof (gfc_offset);
p = (gfc_offset *) salloc_r (current_unit->s, &n);
p = salloc_r (current_unit->s, &n);
if (p == NULL || n != sizeof (gfc_offset))
{
@ -839,7 +840,8 @@ us_read (void)
return;
}
current_unit->bytes_left = *p;
memcpy (&i, p, sizeof (gfc_offset));
current_unit->bytes_left = i;
}
@ -849,11 +851,11 @@ us_read (void)
static void
us_write (void)
{
gfc_offset *p;
char *p;
int length;
length = sizeof (gfc_offset);
p = (gfc_offset *) salloc_w (current_unit->s, &length);
p = salloc_w (current_unit->s, &length);
if (p == NULL)
{
@ -861,7 +863,7 @@ us_write (void)
return;
}
*p = 0; /* Bogus value for now. */
memset (p, '\0', sizeof (gfc_offset)); /* Bogus value for now. */
if (sfree (current_unit->s) == FAILURE)
generate_error (ERROR_OS, NULL);
@ -1285,7 +1287,7 @@ next_record_w (int done)
if (p == NULL)
goto io_error;
*((gfc_offset *) p) = m;
memcpy (p, &m, sizeof (gfc_offset));
if (sfree (current_unit->s) == FAILURE)
goto io_error;
@ -1296,7 +1298,7 @@ next_record_w (int done)
if (p == NULL)
generate_error (ERROR_OS, NULL);
*((gfc_offset *) p) = m;
memcpy (p, &m, sizeof (gfc_offset));
if (sfree (current_unit->s) == FAILURE)
goto io_error;