This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [gfortran] Make gfortran pass g77 test f90-intrinsic-bit.f90
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: patch <gcc-patches at gcc dot gnu dot org>
- Cc: GCC Fortran mailing list <fortran at gcc dot gnu dot org>
- Date: Thu, 16 Dec 2004 14:58:44 +0100
- Subject: Re: [gfortran] Make gfortran pass g77 test f90-intrinsic-bit.f90
- References: <41BF53F6.7010703@physik.uni-muenchen.de>
Tobias Schlüter wrote:
> *************** SUB_NAME (const TYPE *from, const GFC_IN
> *** 48,53 ****
> --- 48,69 ----
> #endif
>
> #ifndef SUB_NAME
> + # define TYPE GFC_INTEGER_1
> + # define UTYPE GFC_UINTEGER_1
> + # define SUB_NAME mvbits_i1
> + # include "mvbits.c"
> + # undef SUB_NAME
> + # undef TYPE
> + # undef UTYPE
> +
> + # define TYPE GFC_INTEGER_2
> + # define UTYPE GFC_UINTEGER_2
> + # define SUB_NAME mvbits_i2
> + # include "mvbits.c"
> + # undef SUB_NAME
> + # undef TYPE
> + # undef UTYPE
> +
> # define TYPE GFC_INTEGER_4
> # define UTYPE GFC_UINTEGER_4
> # define SUB_NAME mvbits_i4
This hunk should be complemented by adding the appropriate typedefs to
libgfortran.h, as appended. I forgot to include this file when preparing the
original diff.
- Tobi
2004-12-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* libgfortran/libgfortran.h (GFC_UINTEGER_1, GFC_UINTEGER_2): Define.
Index: libgfortran.h
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/libgfortran.h,v
retrieving revision 1.18
diff -u -p -r1.18 libgfortran.h
--- libgfortran.h 14 Dec 2004 10:43:32 -0000 1.18
+++ libgfortran.h 16 Dec 2004 13:54:41 -0000
@@ -189,6 +189,8 @@ typedef int8_t GFC_INTEGER_1;
typedef int16_t GFC_INTEGER_2;
typedef int32_t GFC_INTEGER_4;
typedef int64_t GFC_INTEGER_8;
+typedef uint8_t GFC_UINTEGER_1;
+typedef uint16_t GFC_UINTEGER_2;
typedef uint32_t GFC_UINTEGER_4;
typedef uint64_t GFC_UINTEGER_8;
typedef GFC_INTEGER_4 GFC_LOGICAL_4;