resolve.c (compare_case): Give arguments correct type.

2005-01-14  Steven G. Kargl  <kargls@comcast.net>

	* resolve.c (compare_case): Give arguments correct type.

From-SVN: r93637

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e4c6792ee751982b36fb039f51aae2e02ba20361..84eae3d5b13a1ef5b170e83c339a6c77012ca06d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2005-01-14  Steven G. Kargl  <kargls@comcast.net>
+
+       * resolve.c (compare_case): Give arguments correct type.
+
 2005-01-13  Kazu Hirata  <kazu@cs.umass.edu>
 
        * iresolve.c, trans-common.c, trans-types.c: Fix comment

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 8bc638fcee5b83eed17766ff9c26aac9d9bdf00c..70886772d9d19ad999af19b383f2f381e14a6550 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -2496,12 +2496,8 @@ resolve_allocate_expr (gfc_expr * e)
    op1 > op2.  Assumes we're not dealing with the default case.  */
 
 static int
-compare_cases (const void * _op1, const void * _op2)
+compare_cases (const gfc_case * op1, const gfc_case * op2)
 {
-  const gfc_case *op1, *op2;
-
-  op1 = (const gfc_case *) _op1;
-  op2 = (const gfc_case *) _op2;
 
   if (op1->low == NULL) /* op1 = (:N) */
     {