diff options
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/mvbits.c | 8 |
2 files changed, 10 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 25b5d4c..7f4a815 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/32357 + * intrinsics/mvbits.c: Change prototype so that FROMPOS, LEN and + TOPOS arguments are C int. + 2007-07-09 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/32702 diff --git a/libgfortran/intrinsics/mvbits.c b/libgfortran/intrinsics/mvbits.c index a452fc9..8e5813c2 100644 --- a/libgfortran/intrinsics/mvbits.c +++ b/libgfortran/intrinsics/mvbits.c @@ -38,13 +38,13 @@ Boston, MA 02110-1301, USA. */ /* MVBITS copies LEN bits starting at bit position FROMPOS from FROM into TO, starting at bit position TOPOS. */ -extern void SUB_NAME (const TYPE *, const GFC_INTEGER_4 *, - const GFC_INTEGER_4 *, TYPE *, const GFC_INTEGER_4 *); +extern void SUB_NAME (const TYPE *, const int *, const int *, TYPE *, + const int *); export_proto(SUB_NAME); void -SUB_NAME (const TYPE *from, const GFC_INTEGER_4 *frompos, - const GFC_INTEGER_4 *len, TYPE *to, const GFC_INTEGER_4 *topos) +SUB_NAME (const TYPE *from, const int *frompos, const int *len, TYPE *to, + const int *topos) { TYPE oldbits, newbits, lenmask; |