X-Authentication-Warning: delorie.com: mail set sender to djgpp-workers-bounces using -f
X-Recipient: djgpp-workers AT delorie DOT com
X-Authenticated: #27081556
X-Provags-ID: V01U2FsdGVkX19IxMMWNMNIhB20I8gT9n9QDJx+84YuJ27FYvXpnI
	nW//k5tAGUsO6k
From: Juan Manuel Guerrero <juan DOT guerrero AT gmx DOT de>
To: djgpp-workers AT delorie DOT com
Subject: type punning fix for doprnt.c
Date: Sun, 11 May 2008 19:01:36 +0200
User-Agent: KMail/1.9.5
MIME-Version: 1.0
Content-Type: text/plain;
  charset="us-ascii"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Message-Id: <200805111901.37922.juan.guerrero@gmx.de>
X-Y-GMX-Trusted: 0
Reply-To: djgpp-workers AT delorie DOT com

OFYI: to pacify gcc 4.3.0 due to dereferencing type-punned pointers I have
applied this patch.

Regards,
Juan M. Guerrero



Index: src/libc/ansi/stdio/doprnt.c
===================================================================
RCS file: /cvs/djgpp/djgpp/src/libc/ansi/stdio/doprnt.c,v
retrieving revision 1.27
diff -p -U3 -r1.27 doprnt.c
--- src/libc/ansi/stdio/doprnt.c	1 May 2008 00:45:51 -0000	1.27
+++ src/libc/ansi/stdio/doprnt.c	11 May 2008 16:57:35 -0000
@@ -95,7 +95,7 @@ static __inline__ char tochar(int n)
 #define	ZEROPAD		0x0100		/* zero (as opposed to blank) pad */
 #define	HEXPREFIX	0x0200		/* add 0x or 0X prefix */
 #define	GROUPING	0x0400		/* non monetary thousands grouping */
-#define	UPPERCASE	0x0800		/* INF/NAN for [EFG] */
+#define	UPPERCASE	0x0800		/* INF/NAN for [AEFG] */
 
 static int cvtl(long double number, int prec, int flags, char *signp,
 	        unsigned char fmtch, char *startp, char *endp);
@@ -679,12 +679,15 @@ cvtl(long double number, int prec, int f
 #define HEX_DIGIT_SIZE                  4
 #define IEEE754_LONG_DOUBLE_BIAS        0x3FFFU
 
-
-    long_double_t ip = *(long_double_t *)(void *)&number;
+    _longdouble_union_t ieee_value;
     char *fraction_part;
-    int left_shifts, precision_given, positive_exponent, exponent = ip.exponent;
-    unsigned long long int mantissa = (unsigned long long int) ip.mantissah << 32 | ip.mantissal;
+    int left_shifts, precision_given, positive_exponent, exponent;
+    unsigned long long int mantissa;
+
 
+    ieee_value.ld = number;
+    exponent = ieee_value.ldt.exponent;
+    mantissa = (unsigned long long int) ieee_value.ldt.mantissah << 32 | ieee_value.ldt.mantissal;
     p = endp;
     t = startp;
     precision_given = (prec != -1) ? TRUE : FALSE;