From: pavenis AT lanet DOT lv
Message-ID: <B0000094278@stargate.astr.lu.lv>
To: Eli Zaretskii <eliz AT is DOT elta DOT co DOT il>
Date: Mon, 12 Jul 1999 13:08:30 +0300
MIME-Version: 1.0
Content-type: Multipart/Mixed; boundary=Message-Boundary-11776
Subject: Re: Operand-size suffixes
CC: djgpp-workers AT delorie DOT com
In-reply-to: <Pine.SUN.3.91.990707173223.2851v-100000@is>
X-mailer: Pegasus Mail for Win32 (v3.11)
Reply-To: djgpp-workers AT delorie DOT com
X-Mailing-List: djgpp-workers AT delorie DOT com
X-Unsubscribes-To: listserv AT delorie DOT com
Precedence: bulk


--Message-Boundary-11776
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Content-description: Mail message body

On 7 Jul 99, at 17:36, Eli Zaretskii wrote:

> Some time in January 1999, you posted diffs to djgpp-workers for several 
> places in the library where FP instructions used suffixes, like fpreml 
> and fld1l.  You wrote that latest snapshots of Binutils 2.9.1 don't 
> accept these anymore.
> 
> Is that still true?  I'm asking because it seems that those diffs you 
> sent were not applied, and you have built the CVS tree several 
> times since then, so I would expect this problem to keep popping up.
> 
> If the current Binutils don't like those suffixes, I will correct the few 
> places where they are used.
> 

Well I tried gcc-2.95 19990629 (prerelease) and binutils 990710
snapshot together. Seems that generally both works Ok together. 
No evident problems yet.

About CVS version of DJGPP. Had to still patch some operand 
length suffixes and some more things:

     - some unnecessary operand length prefixes which are no more
       accepted by new binutils snapshots

	- missing prototype for 
		long double hypotl(long double x, long double y);
        in math.h

	- one warning in src/debug/fsdb/fullscr.c where argument of
	  wrong type  were given to sprintf()

Patches included.

Andris



--Message-Boundary-11776
Content-type: text/plain; charset=US-ASCII
Content-disposition: inline
Content-description: Attachment information.

The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.

   ---- File information -----------
     File:  diffs-990712
     Date:  12 Jul 1999, 12:52
     Size:  2636 bytes.
     Type:  Text

--Message-Boundary-11776
Content-type: Application/Octet-stream; name="diffs-990712"; type=Text
Content-disposition: attachment; filename="diffs-990712"

*** include/math.h~1	Mon Jul 12 12:19:46 1999
--- include/math.h	Mon Jul 12 12:10:28 1999
***************
*** 75,80 ****
--- 75,83 ----
  double	powi(double, int);
  void	sincos(double *, double *, double);
  
+ long double hypotl(long double x, long double y);
+ 
+ 
  /* These are in libm.a (Cygnus).  You must link -lm to get these */
  /* See libm/math.h for comments */
  
*** src/debug/fsdb/fullscr.c~1	Wed Jun 16 13:51:06 1999
--- src/debug/fsdb/fullscr.c	Mon Jul 12 12:51:02 1999
***************
*** 1615,1621 ****
  	    if (abs (exp) < 1000)
  	      {
  		d = *((long double*)(npx.reg + i));
! 		sprintf(dstr,"%+.19Lg", (double) d);
  	      }
  	    else
  	      sprintf (dstr, "Valid, %s, and %s",
--- 1615,1621 ----
  	    if (abs (exp) < 1000)
  	      {
  		d = *((long double*)(npx.reg + i));
! 		sprintf(dstr,"%+.19Lg", d);
  	      }
  	    else
  	      sprintf (dstr, "Valid, %s, and %s",
*** src/libc/ansi/math/ceil.S~1	Sun Jul  4 17:58:34 1999
--- src/libc/ansi/math/ceil.S	Mon Jul 12 12:07:08 1999
***************
*** 19,30 ****
  	andw	$0xf3ff,%ax
  	orw	$0x0800,%ax
  	movw	%ax, 2(%esp)
! 	fldcww	2(%esp)
  
  	fldl	8(%esp)
  	frndint
  
! 	fldcww	(%esp)
  
  cleanup:
  	addl	$4, %esp
--- 19,30 ----
  	andw	$0xf3ff,%ax
  	orw	$0x0800,%ax
  	movw	%ax, 2(%esp)
! 	fldcw	2(%esp)
  
  	fldl	8(%esp)
  	frndint
  
! 	fldcw	(%esp)
  
  cleanup:
  	addl	$4, %esp
*** src/libc/ansi/math/floor.S~1	Sun Jul  4 17:58:34 1999
--- src/libc/ansi/math/floor.S	Mon Jul 12 12:07:58 1999
***************
*** 19,30 ****
  	andw	$0xf3ff,%ax
  	orw	$0x0400,%ax
  	movw	%ax, 2(%esp)
! 	fldcww	2(%esp)
  
  	fldl	8(%esp)
  	frndint
  
! 	fldcww	(%esp)
  
  cleanup:
  	addl	$4, %esp
--- 19,30 ----
  	andw	$0xf3ff,%ax
  	orw	$0x0400,%ax
  	movw	%ax, 2(%esp)
! 	fldcw	2(%esp)
  
  	fldl	8(%esp)
  	frndint
  
! 	fldcw	(%esp)
  
  cleanup:
  	addl	$4, %esp
*** src/libc/ansi/math/pow.S~1	Mon Jul 12 12:18:50 1999
--- src/libc/ansi/math/pow.S	Mon Jul 12 12:17:56 1999
***************
*** 53,59 ****
  
  xzero:					/* x == 0; y is in st(0); test y */
  	ftst
! 	fnstsww %ax
  	sahf
  	fstp	%st(0)
  	ja	zeroresult		/* x = 0 y > 0 */
--- 53,59 ----
  
  xzero:					/* x == 0; y is in st(0); test y */
  	ftst
! 	fnstsw  %ax
  	sahf
  	fstp	%st(0)
  	ja	zeroresult		/* x = 0 y > 0 */
***************
*** 135,141 ****
  	fxch	%st(1)
  	call	frac
  	ftst
! 	fnstsww %ax
  	fstp	%st(0)
  	sahf
  	je	yisint
--- 135,141 ----
  	fxch	%st(1)
  	call	frac
  	ftst
! 	fnstsw  %ax
  	fstp	%st(0)
  	sahf
  	je	yisint

--Message-Boundary-11776--