Commit af452a2b by Steve Ellcey Committed by Steve Ellcey

* io/read.c (set_integer): Use memcpy to fill buffer.

From-SVN: r103687
parent e6494c94
2005-08-31 Steve Ellcey <sje@cup.hp.com> 2005-08-31 Steve Ellcey <sje@cup.hp.com>
* io/read.c (set_integer): Use memcpy to fill buffer.
2005-08-31 Steve Ellcey <sje@cup.hp.com>
PR target/23556 PR target/23556
* io/read.c (convert_real): Use memcpy to fill buffer. * io/read.c (convert_real): Use memcpy to fill buffer.
......
...@@ -49,20 +49,35 @@ set_integer (void *dest, GFC_INTEGER_LARGEST value, int length) ...@@ -49,20 +49,35 @@ set_integer (void *dest, GFC_INTEGER_LARGEST value, int length)
{ {
#ifdef HAVE_GFC_INTEGER_16 #ifdef HAVE_GFC_INTEGER_16
case 16: case 16:
*((GFC_INTEGER_16 *) dest) = value; {
GFC_INTEGER_16 tmp = value;
memcpy (dest, (void *) &tmp, length);
}
break; break;
#endif #endif
case 8: case 8:
*((GFC_INTEGER_8 *) dest) = value; {
GFC_INTEGER_8 tmp = value;
memcpy (dest, (void *) &tmp, length);
}
break; break;
case 4: case 4:
*((GFC_INTEGER_4 *) dest) = value; {
GFC_INTEGER_4 tmp = value;
memcpy (dest, (void *) &tmp, length);
}
break; break;
case 2: case 2:
*((GFC_INTEGER_2 *) dest) = value; {
GFC_INTEGER_2 tmp = value;
memcpy (dest, (void *) &tmp, length);
}
break; break;
case 1: case 1:
*((GFC_INTEGER_1 *) dest) = value; {
GFC_INTEGER_1 tmp = value;
memcpy (dest, (void *) &tmp, length);
}
break; break;
default: default:
internal_error ("Bad integer kind"); internal_error ("Bad integer kind");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment