diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-01-14 09:28:03 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2005-01-14 09:28:03 +0000 |
| commit | 6e06dac503ef7c6aa78bf4c744c0125dac10d563 (patch) | |
| tree | d98c10f8e93e0bb951b17d578e310427dc06698f /gcc | |
| parent | eebeecacfb9c097f7b3766bcb96097a86d0860b7 (diff) | |
| download | gcc-6e06dac503ef7c6aa78bf4c744c0125dac10d563.zip gcc-6e06dac503ef7c6aa78bf4c744c0125dac10d563.tar.gz gcc-6e06dac503ef7c6aa78bf4c744c0125dac10d563.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e4c6792..84eae3d 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 8bc638f..7088677 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) */ { |