+Mon Mar 20 15:49:40 2000 Jim Wilson <wilson@cygnus.com>
+
+ * f/target.h (FFETARGET_32bit_longs): New. Define for alpha, sparc64,
+ and ia64.
+ (ffetargetInteger1, ffetargetLogical1, ffetargetReal1, ffetargetReal2,
+ ffetarget_integerdefault_is_magical): Use FFETARGET_32bit_longs.
+
Fri Mar 10 00:43:55 2000 Jason Merrill <jason@casey.cygnus.com>
* com.c (ffecom_stabilize_aggregate_): Don't refer to TREE_RAISES.
#define FFETARGET_f2cTYLOGICAL2 13
#define FFETARGET_f2cTYQUAD 14
+#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__))) && (!defined(__ia64__) || !defined(__LP64__))
+#define FFETARGET_32bit_longs
+#endif
+
/* Typedefs. */
typedef unsigned char ffetargetAlign; /* ffetargetOffset for alignment. */
#define ffetargetOffset_f "ll"
#if FFETARGET_okINTEGER1
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
typedef long int ffetargetInteger1;
#define ffetargetInteger1_f "l"
#else
?
#endif
#if FFETARGET_okLOGICAL1
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
typedef long int ffetargetLogical1;
#define ffetargetLogical1_f "l"
#else
#endif
#if FFETARGET_okREAL1
#ifdef REAL_ARITHMETIC
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
typedef long int ffetargetReal1;
#define ffetargetReal1_f "l"
#define ffetarget_cvt_r1_to_rv_ REAL_VALUE_UNTO_TARGET_SINGLE
#endif
#if FFETARGET_okREAL2
#ifdef REAL_ARITHMETIC
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
typedef struct
{
long int v[2];
#define ffetarget_init_2()
#define ffetarget_init_3()
#define ffetarget_init_4()
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
#define ffetarget_integerdefault_is_magical(i) \
(((unsigned long int) i) == FFETARGET_integerBIG_MAGICAL)
#else