From 5a2eff0fa1120a61369690316bf487327ebe283e Mon Sep 17 00:00:00 2001 From: pbrook Date: Fri, 14 Jan 2005 09:28:03 +0000 Subject: [PATCH] 2005-01-14 Steven G. Kargl * resolve.c (compare_case): Give arguments correct type. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@93637 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/resolve.c | 6 +----- 2 files changed, 5 insertions(+), 5 deletions(-) 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 + + * resolve.c (compare_case): Give arguments correct type. + 2005-01-13 Kazu Hirata * 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) */ { -- 2.11.4.GIT