diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-08-24 20:40:32 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-24 20:40:32 +0200 |
| commit | 45ede75e36a7bdb9c3e182f7439a233dc058d268 (patch) | |
| tree | 72cc222c60b0131b14b23ba9aa092f88d1c3c4c0 /gcc | |
| parent | 0c8eb9985d66ce596412f676313d1dcbeaebd210 (diff) | |
| download | gcc-45ede75e36a7bdb9c3e182f7439a233dc058d268.zip gcc-45ede75e36a7bdb9c3e182f7439a233dc058d268.tar.gz gcc-45ede75e36a7bdb9c3e182f7439a233dc058d268.tar.bz2 | |
trans-decl.c, [...]: Add and remove blank lines as required.
* trans-decl.c, trans-types.c: Add and remove blank lines as
required.
From-SVN: r86505
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 3 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 3 |
3 files changed, 7 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7d9fdfe..d4d9d00 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + + * trans-decl.c, trans-types.c: Add and remove blank lines as + required. + 2004-08-24 Richard Henderson <rth@redhat.com> * trans-const.c (gfc_conv_mpz_to_tree): Fix 64-bit shift warning. diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 7801c65..76618b2 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -220,7 +220,6 @@ gfc_get_return_label (void) tree gfc_get_label_decl (gfc_st_label * lp) { - if (lp->backend_decl) return lp->backend_decl; else @@ -258,7 +257,6 @@ gfc_get_label_decl (gfc_st_label * lp) static tree gfc_sym_identifier (gfc_symbol * sym) { - return (get_identifier (sym->name)); } @@ -428,7 +426,6 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) void gfc_allocate_lang_decl (tree decl) { - DECL_LANG_SPECIFIC (decl) = (struct lang_decl *) ggc_alloc_cleared (sizeof (struct lang_decl)); } diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 20ba428..f96dc28 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -903,7 +903,6 @@ gfc_get_array_type_bounds (tree etype, int dimen, tree * lbound, static tree gfc_build_pointer_type (gfc_symbol * sym, tree type) { - /* Array pointer types aren't actually pointers. */ if (sym->attr.dimension) return type; @@ -1377,6 +1376,7 @@ tree gfc_unsigned_type (tree type) { tree type1 = TYPE_MAIN_VARIANT (type); + if (type1 == signed_char_type_node || type1 == char_type_node) return unsigned_char_type_node; if (type1 == integer_type_node) @@ -1413,6 +1413,7 @@ tree gfc_signed_type (tree type) { tree type1 = TYPE_MAIN_VARIANT (type); + if (type1 == unsigned_char_type_node || type1 == char_type_node) return signed_char_type_node; if (type1 == unsigned_type_node) |