[fortran,committed] Trivial MVBITS cleanup

[fortran,committed] Trivial MVBITS cleanup

[FX]

[-- Attachment #1: Type: text/plain, Size: 145 bytes --]

The attached patch, committed as rev. 227502 after regtesting on x86_64-apple-darwin15, removes an unused simplify function for MVBITS.

FX


[-- Attachment #2: z.diff --]
[-- Type: application/octet-stream, Size: 2406 bytes --]

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 227501)
+++ ChangeLog	(working copy)
@@ -1,3 +1,10 @@
+2015-09-04  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	* intrinsic.h (gfc_simplify_mvbits): Remove.
+	* simplify.c (gfc_simplify_mvbits): Remove.
+	* intrinsic.c (add_subroutines): Remove reference to
+	gfc_simplify_mvbits.
+
 2015-09-04  Manuel López-Ibáñez  <manu@gcc.gnu.org>
 
 	PR fortran/67429
Index: intrinsic.c
===================================================================
--- intrinsic.c	(revision 227316)
+++ intrinsic.c	(working copy)
@@ -3290,8 +3290,7 @@ add_subroutines (void)
 	      t, BT_UNKNOWN, 0, REQUIRED, INTENT_OUT);
 
   add_sym_5s ("mvbits", GFC_ISYM_MVBITS, CLASS_ELEMENTAL, BT_UNKNOWN, 0,
-	      GFC_STD_F95, gfc_check_mvbits, gfc_simplify_mvbits,
-	      gfc_resolve_mvbits,
+	      GFC_STD_F95, gfc_check_mvbits, NULL, gfc_resolve_mvbits,
 	      f, BT_INTEGER, di, REQUIRED, INTENT_IN,
 	      fp, BT_INTEGER, di, REQUIRED, INTENT_IN,
 	      ln, BT_INTEGER, di, REQUIRED, INTENT_IN,
Index: intrinsic.h
===================================================================
--- intrinsic.h	(revision 227316)
+++ intrinsic.h	(working copy)
@@ -345,8 +345,6 @@ gfc_expr *gfc_simplify_maxexponent (gfc_
 gfc_expr *gfc_simplify_minexponent (gfc_expr *);
 gfc_expr *gfc_simplify_mod (gfc_expr *, gfc_expr *);
 gfc_expr *gfc_simplify_modulo (gfc_expr *, gfc_expr *);
-gfc_expr *gfc_simplify_mvbits (gfc_expr *, gfc_expr *, gfc_expr *, gfc_expr *,
-			       gfc_expr *);
 gfc_expr *gfc_simplify_nearest (gfc_expr *, gfc_expr *);
 gfc_expr *gfc_simplify_new_line (gfc_expr *);
 gfc_expr *gfc_simplify_nint (gfc_expr *, gfc_expr *);
Index: simplify.c
===================================================================
--- simplify.c	(revision 227316)
+++ simplify.c	(working copy)
@@ -4443,18 +4443,6 @@ gfc_simplify_modulo (gfc_expr *a, gfc_ex
 }
 
 
-/* Exists for the sole purpose of consistency with other intrinsics.  */
-gfc_expr *
-gfc_simplify_mvbits (gfc_expr *f  ATTRIBUTE_UNUSED,
-		     gfc_expr *fp ATTRIBUTE_UNUSED,
-		     gfc_expr *l  ATTRIBUTE_UNUSED,
-		     gfc_expr *to ATTRIBUTE_UNUSED,
-		     gfc_expr *tp ATTRIBUTE_UNUSED)
-{
-  return NULL;
-}
-
-
 gfc_expr *
 gfc_simplify_nearest (gfc_expr *x, gfc_expr *s)
 {