X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=libgfortran%2Flibgfortran.h;h=99f7342958fd136fc14dd2395f44692c3902a312;hb=bab8ca0a0d3a908805ec0d358e93b2069546eee2;hp=7c497004a814db28f7457e45f5d764f208b5faa7;hpb=da6ffc6d7f06a20743992bbe20e735042d059cca;p=pf3gnuchains%2Fgcc-fork.git diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 7c497004a81..99f7342958f 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -1,37 +1,42 @@ /* Common declarations for all of libgfortran. - Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008 + Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. Contributed by Paul Brook , and Andy Vaught -This file is part of the GNU Fortran 95 runtime library (libgfortran). +This file is part of the GNU Fortran runtime library (libgfortran). -Libgfortran is free software; you can redistribute it and/or -modify it under the terms of the GNU Lesser General Public -License as published by the Free Software Foundation; either -version 2.1 of the License, or (at your option) any later version. +Libgfortran is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 3, or (at your option) +any later version. Libgfortran is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU Lesser General Public License for more details. +GNU General Public License for more details. -You should have received a copy of the GNU Lesser General Public -License along with libgfor; see the file COPYING.LIB. If not, -write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -Boston, MA 02110-1301, USA. */ - -/* As a special exception, if you link this library with other files, - some of which are compiled with GCC, to produce an executable, - this library does not by itself cause the resulting executable - to be covered by the GNU General Public License. - This exception does not however invalidate any other reasons why - the executable file might be covered by the GNU General Public License. */ +Under Section 7 of GPL version 3, you are granted additional +permissions described in the GCC Runtime Library Exception, version +3.1, as published by the Free Software Foundation. +You should have received a copy of the GNU General Public License and +a copy of the GCC Runtime Library Exception along with this program; +see the files COPYING3 and COPYING.RUNTIME respectively. If not, see +. */ #ifndef LIBGFOR_H #define LIBGFOR_H +/* Ensure that ANSI conform stdio is used. This needs to be set before + any system header file is included. */ +#if defined __MINGW32__ +# define _POSIX 1 +# define gfc_printf gnu_printf +#else +# define gfc_printf __printf__ +#endif + /* config.h MUST be first because it can affect system headers. */ #include "config.h" @@ -41,6 +46,19 @@ Boston, MA 02110-1301, USA. */ #include #include +#ifdef __MINGW32__ +extern float __strtof (const char *, char **); +#define gfc_strtof __strtof +extern double __strtod (const char *, char **); +#define gfc_strtod __strtod +extern long double __strtold (const char *, char **); +#define gfc_strtold __strtold +#else +#define gfc_strtof strtof +#define gfc_strtod strtod +#define gfc_strtold strtold +#endif + #if HAVE_COMPLEX_H # include #else @@ -60,7 +78,12 @@ Boston, MA 02110-1301, USA. */ #if HAVE_SYS_TYPES_H #include #endif + +#ifdef __MINGW32__ +typedef off64_t gfc_offset; +#else typedef off_t gfc_offset; +#endif #ifndef NULL #define NULL (void *) 0 @@ -68,6 +91,11 @@ typedef off_t gfc_offset; #ifndef __GNUC__ #define __attribute__(x) +#define likely(x) (x) +#define unlikely(x) (x) +#else +#define likely(x) __builtin_expect(!!(x), 1) +#define unlikely(x) __builtin_expect(!!(x), 0) #endif @@ -107,7 +135,8 @@ typedef off_t gfc_offset; mingw provides, __mingw_snprintf(). We also provide a prototype for __mingw_snprintf(), because the mingw headers currently don't have one. */ #if HAVE_MINGW_SNPRINTF -extern int __mingw_snprintf (char *, size_t, const char *, ...); +extern int __mingw_snprintf (char *, size_t, const char *, ...) + __attribute__ ((format (gnu_printf, 3, 4))); #undef snprintf #define snprintf __mingw_snprintf #endif @@ -175,13 +204,6 @@ extern int __mingw_snprintf (char *, size_t, const char *, ...); # define iexport1(x,y) iexport2(x,y) # define iexport2(x,y) \ extern __typeof(x) PREFIX(x) __attribute__((__alias__(#y))) -/* ??? We're not currently building a dll, and it's wrong to add dllexport - to objects going into a static library archive. */ -#elif 0 && defined(HAVE_ATTRIBUTE_DLLEXPORT) -# define export_proto_np(x) extern __typeof(x) x __attribute__((dllexport)) -# define export_proto(x) sym_rename(x, PREFIX(x)) __attribute__((dllexport)) -# define iexport_proto(x) export_proto(x) -# define iexport(x) extern char swallow_semicolon #else # define export_proto(x) sym_rename(x, PREFIX(x)) # define export_proto_np(x) extern char swallow_semicolon @@ -292,13 +314,44 @@ internal_proto(big_endian); (GFC_INTEGER_16)((((GFC_UINTEGER_16)1) << 127) - 1) #endif +/* M{IN,AX}{LOC,VAL} need also infinities and NaNs if supported. */ + +#ifdef __FLT_HAS_INFINITY__ +# define GFC_REAL_4_INFINITY __builtin_inff () +#endif +#ifdef __DBL_HAS_INFINITY__ +# define GFC_REAL_8_INFINITY __builtin_inf () +#endif +#ifdef __LDBL_HAS_INFINITY__ +# ifdef HAVE_GFC_REAL_10 +# define GFC_REAL_10_INFINITY __builtin_infl () +# endif +# ifdef HAVE_GFC_REAL_16 +# define GFC_REAL_16_INFINITY __builtin_infl () +# endif +#endif +#ifdef __FLT_HAS_QUIET_NAN__ +# define GFC_REAL_4_QUIET_NAN __builtin_nanf ("") +#endif +#ifdef __DBL_HAS_QUIET_NAN__ +# define GFC_REAL_8_QUIET_NAN __builtin_nan ("") +#endif +#ifdef __LDBL_HAS_QUIET_NAN__ +# ifdef HAVE_GFC_REAL_10 +# define GFC_REAL_10_QUIET_NAN __builtin_nanl ("") +# endif +# ifdef HAVE_GFC_REAL_16 +# define GFC_REAL_16_QUIET_NAN __builtin_nanl ("") +# endif +#endif typedef struct descriptor_dimension { - index_type stride; - index_type lbound; - index_type ubound; + index_type _stride; + index_type _lbound; + index_type _ubound; } + descriptor_dimension; #define GFC_ARRAY_DESCRIPTOR(r, type) \ @@ -351,6 +404,30 @@ typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_LOGICAL_16) gfc_array_l16; #define GFC_DESCRIPTOR_DATA(desc) ((desc)->data) #define GFC_DESCRIPTOR_DTYPE(desc) ((desc)->dtype) +#define GFC_DIMENSION_LBOUND(dim) ((dim)._lbound) +#define GFC_DIMENSION_UBOUND(dim) ((dim)._ubound) +#define GFC_DIMENSION_STRIDE(dim) ((dim)._stride) +#define GFC_DIMENSION_EXTENT(dim) ((dim)._ubound + 1 - (dim)._lbound) +#define GFC_DIMENSION_SET(dim,lb,ub,str) \ + do \ + { \ + (dim)._lbound = lb; \ + (dim)._ubound = ub; \ + (dim)._stride = str; \ + } while (0) + + +#define GFC_DESCRIPTOR_LBOUND(desc,i) ((desc)->dim[i]._lbound) +#define GFC_DESCRIPTOR_UBOUND(desc,i) ((desc)->dim[i]._ubound) +#define GFC_DESCRIPTOR_EXTENT(desc,i) ((desc)->dim[i]._ubound + 1 \ + - (desc)->dim[i]._lbound) +#define GFC_DESCRIPTOR_EXTENT_BYTES(desc,i) \ + (GFC_DESCRIPTOR_EXTENT(desc,i) * GFC_DESCRIPTOR_SIZE(desc)) + +#define GFC_DESCRIPTOR_STRIDE(desc,i) ((desc)->dim[i]._stride) +#define GFC_DESCRIPTOR_STRIDE_BYTES(desc,i) \ + (GFC_DESCRIPTOR_STRIDE(desc,i) * GFC_DESCRIPTOR_SIZE(desc)) + /* Macros to get both the size and the type with a single masking operation */ #define GFC_DTYPE_SIZE_MASK \ @@ -437,6 +514,12 @@ typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, GFC_LOGICAL_16) gfc_array_l16; (__alignof__(GFC_INTEGER_16) - 1)) #endif +#define GFC_UNALIGNED_C4(x) (((uintptr_t)(x)) & \ + (__alignof__(GFC_COMPLEX_4) - 1)) + +#define GFC_UNALIGNED_C8(x) (((uintptr_t)(x)) & \ + (__alignof__(GFC_COMPLEX_8) - 1)) + /* Runtime library include. */ #define stringize(x) expand_macro(x) #define expand_macro(x) # x @@ -503,7 +586,7 @@ st_option; that were given (-std=, -pedantic) we should issue an error, a warning or nothing. */ typedef enum -{ SILENT, WARNING, ERROR } +{ NOTIFICATION_SILENT, NOTIFICATION_WARNING, NOTIFICATION_ERROR } notification; /* This is returned by notify_std and several io functions. */ @@ -582,6 +665,7 @@ st_parameter_common; #define IOPARM_OPEN_HAS_ROUND (1 << 20) #define IOPARM_OPEN_HAS_SIGN (1 << 21) #define IOPARM_OPEN_HAS_ASYNCHRONOUS (1 << 22) +#define IOPARM_OPEN_HAS_NEWUNIT (1 << 23) /* library start function and end macro. These can be expanded if needed in the future. cmp is st_parameter_common *cmp */ @@ -597,7 +681,7 @@ extern void stupid_function_name_for_static_linking (void); internal_proto(stupid_function_name_for_static_linking); extern void set_args (int, char **); -export_proto(set_args); +iexport_proto(set_args); extern void get_args (int *, char ***); internal_proto(get_args); @@ -615,19 +699,26 @@ internal_proto(show_backtrace); /* error.c */ +#if defined(HAVE_GFC_REAL_16) +#define GFC_LARGEST_BUF (sizeof (GFC_REAL_16)) +#elif defined(HAVE_GFC_INTEGER_16) +#define GFC_LARGEST_BUF (sizeof (GFC_INTEGER_LARGEST)) +#elif defined(HAVE_GFC_REAL_10) +#define GFC_LARGEST_BUF (sizeof (GFC_REAL_10)) +#else +#define GFC_LARGEST_BUF (sizeof (GFC_INTEGER_LARGEST)) +#endif + #define GFC_ITOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 3 + 2) -#define GFC_XTOA_BUF_SIZE (sizeof (GFC_UINTEGER_LARGEST) * 2 + 1) -#define GFC_OTOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 3 + 1) -#define GFC_BTOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 8 + 1) +#define GFC_XTOA_BUF_SIZE (GFC_LARGEST_BUF * 2 + 1) +#define GFC_OTOA_BUF_SIZE (GFC_LARGEST_BUF * 3 + 1) +#define GFC_BTOA_BUF_SIZE (GFC_LARGEST_BUF * 8 + 1) extern void sys_exit (int) __attribute__ ((noreturn)); internal_proto(sys_exit); -extern const char *gfc_itoa (GFC_INTEGER_LARGEST, char *, size_t); -internal_proto(gfc_itoa); - -extern const char *xtoa (GFC_UINTEGER_LARGEST, char *, size_t); -internal_proto(xtoa); +extern const char *gfc_xtoa (GFC_UINTEGER_LARGEST, char *, size_t); +internal_proto(gfc_xtoa); extern void os_error (const char *) __attribute__ ((noreturn)); iexport_proto(os_error); @@ -636,14 +727,15 @@ extern void show_locus (st_parameter_common *); internal_proto(show_locus); extern void runtime_error (const char *, ...) - __attribute__ ((noreturn, format (printf, 1, 2))); + __attribute__ ((noreturn, format (gfc_printf, 1, 2))); iexport_proto(runtime_error); extern void runtime_error_at (const char *, const char *, ...) - __attribute__ ((noreturn, format (printf, 2, 3))); + __attribute__ ((noreturn, format (gfc_printf, 2, 3))); iexport_proto(runtime_error_at); -extern void runtime_warning_at (const char *, const char *, ...); +extern void runtime_warning_at (const char *, const char *, ...) + __attribute__ ((format (gfc_printf, 2, 3))); iexport_proto(runtime_warning_at); extern void internal_error (st_parameter_common *, const char *) @@ -675,9 +767,6 @@ internal_proto(set_fpu); extern void *get_mem (size_t) __attribute__ ((malloc)); internal_proto(get_mem); -extern void free_mem (void *); -internal_proto(free_mem); - extern void *internal_malloc_size (size_t) __attribute__ ((malloc)); internal_proto(internal_malloc_size); @@ -727,7 +816,7 @@ extern int unit_to_fd (int); internal_proto(unit_to_fd); extern int st_printf (const char *, ...) - __attribute__ ((format (printf, 1, 2))); + __attribute__ ((format (gfc_printf, 1, 2))); internal_proto(st_printf); extern int st_vprintf (const char *, va_list); @@ -738,8 +827,9 @@ internal_proto(filename_from_unit); /* stop.c */ -extern void stop_numeric (GFC_INTEGER_4) __attribute__ ((noreturn)); -iexport_proto(stop_numeric); +extern void stop_string (const char *, GFC_INTEGER_4) + __attribute__ ((noreturn)); +export_proto(stop_string); /* reshape_packed.c */ @@ -1210,4 +1300,76 @@ typedef GFC_ARRAY_DESCRIPTOR (GFC_MAX_DIMENSIONS, void) array_t; extern index_type size0 (const array_t * array); iexport_proto(size0); +/* bounds.c */ + +extern void bounds_equal_extents (array_t *, array_t *, const char *, + const char *); +internal_proto(bounds_equal_extents); + +extern void bounds_reduced_extents (array_t *, array_t *, int, const char *, + const char *intrinsic); +internal_proto(bounds_reduced_extents); + +extern void bounds_iforeach_return (array_t *, array_t *, const char *); +internal_proto(bounds_iforeach_return); + +extern void bounds_ifunction_return (array_t *, const index_type *, + const char *, const char *); +internal_proto(bounds_ifunction_return); + +extern index_type count_0 (const gfc_array_l1 *); + +internal_proto(count_0); + +/* Internal auxiliary functions for cshift */ + +void cshift0_i1 (gfc_array_i1 *, const gfc_array_i1 *, ssize_t, int); +internal_proto(cshift0_i1); + +void cshift0_i2 (gfc_array_i2 *, const gfc_array_i2 *, ssize_t, int); +internal_proto(cshift0_i2); + +void cshift0_i4 (gfc_array_i4 *, const gfc_array_i4 *, ssize_t, int); +internal_proto(cshift0_i4); + +void cshift0_i8 (gfc_array_i8 *, const gfc_array_i8 *, ssize_t, int); +internal_proto(cshift0_i8); + +#ifdef HAVE_GFC_INTEGER_16 +void cshift0_i16 (gfc_array_i16 *, const gfc_array_i16 *, ssize_t, int); +internal_proto(cshift0_i16); +#endif + +void cshift0_r4 (gfc_array_r4 *, const gfc_array_r4 *, ssize_t, int); +internal_proto(cshift0_r4); + +void cshift0_r8 (gfc_array_r8 *, const gfc_array_r8 *, ssize_t, int); +internal_proto(cshift0_r8); + +#ifdef HAVE_GFC_REAL_10 +void cshift0_r10 (gfc_array_r10 *, const gfc_array_r10 *, ssize_t, int); +internal_proto(cshift0_r10); +#endif + +#ifdef HAVE_GFC_REAL_16 +void cshift0_r16 (gfc_array_r16 *, const gfc_array_r16 *, ssize_t, int); +internal_proto(cshift0_r16); +#endif + +void cshift0_c4 (gfc_array_c4 *, const gfc_array_c4 *, ssize_t, int); +internal_proto(cshift0_c4); + +void cshift0_c8 (gfc_array_c8 *, const gfc_array_c8 *, ssize_t, int); +internal_proto(cshift0_c8); + +#ifdef HAVE_GFC_COMPLEX_10 +void cshift0_c10 (gfc_array_c10 *, const gfc_array_c10 *, ssize_t, int); +internal_proto(cshift0_c10); +#endif + +#ifdef HAVE_GFC_COMPLEX_16 +void cshift0_c16 (gfc_array_c16 *, const gfc_array_c16 *, ssize_t, int); +internal_proto(cshift0_c16); +#endif + #endif /* LIBGFOR_H */