Index: real.c
===================================================================
RCS file: /home/ncvs/src/contrib/gcc/real.c,v
retrieving revision 1.1.1.6
diff -u -r1.1.1.6 real.c
--- real.c	11 Jul 2003 03:40:49 -0000	1.1.1.6
+++ real.c	21 Oct 2003 21:05:31 -0000
@@ -2612,9 +2612,10 @@
      const REAL_VALUE_TYPE *r;
 {
   unsigned long image, sig, exp;
+  unsigned long sign = r->sign;
   bool denormal = (r->sig[SIGSZ-1] & SIG_MSB) == 0;
 
-  image = r->sign << 31;
+  image = sign << 31;
   sig = (r->sig[SIGSZ-1] >> (HOST_BITS_PER_LONG - 24)) & 0x7fffff;
 
   switch (r->class)