From: Steven G. Kargl <kargls@comcast.net>
Date: Fri, 14 Jan 2005 09:28:03 +0000 (+0000)
Subject: resolve.c (compare_case): Give arguments correct type.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6e06dac503ef7c6aa78bf4c744c0125dac10d563;p=gcc.git

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 e4c6792ee75..84eae3d5b13 100644
--- 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 8bc638fcee5..70886772d9d 100644
--- 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) */
     {