This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [gfortran] Make gfortran pass g77 test f90-intrinsic-bit.f90


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;


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]