diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2001-06-02 17:42:21 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2001-06-02 15:42:21 +0000 |
| commit | a49bedaa4dbb72a65549e01cd3b21d82e685bbf1 (patch) | |
| tree | 76de193ef19de8939d8258c2e7bbf38583e23b5f | |
| parent | 6ac485713c3a564e0addf075216c0ad9a2ded1fc (diff) | |
| download | gcc-a49bedaa4dbb72a65549e01cd3b21d82e685bbf1.zip gcc-a49bedaa4dbb72a65549e01cd3b21d82e685bbf1.tar.gz gcc-a49bedaa4dbb72a65549e01cd3b21d82e685bbf1.tar.bz2 | |
com.c (ffecom_init_0): Make CHARACTER*1 unsigned.
2001-06-02 Toon Moene <toon@moene.indiv.nluug.nl>
* com.c (ffecom_init_0): Make CHARACTER*1 unsigned.
From-SVN: r42805
| -rw-r--r-- | gcc/f/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 84b9602..238eb29 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +2001-06-02 Toon Moene <toon@moene.indiv.nluug.nl> + + * com.c (ffecom_init_0): Make CHARACTER*1 unsigned. + 2001-05-23 Theodore Papadopoulo <Theodore.Papadopoulo@sophia.inria.fr> * Make-lang.in ($(srcdir)/f/g77.info): Added dependencies on diff --git a/gcc/f/com.c b/gcc/f/com.c index 6114a53..871c4fa 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -11411,6 +11411,8 @@ ffecom_init_0 () /* Define `int' and `char' first so that dbx will output them first. */ pushdecl (build_decl (TYPE_DECL, get_identifier ("int"), integer_type_node)); + /* CHARACTER*1 is unsigned in ICHAR contexts. */ + char_type_node = make_unsigned_type (CHAR_TYPE_SIZE); pushdecl (build_decl (TYPE_DECL, get_identifier ("char"), char_type_node)); pushdecl (build_decl (TYPE_DECL, get_identifier ("long int"), |