2007-11-26 Chris Sutcliffe <ir0nh34d@users.sourceforge.net>

        * Makefile.in: Add libmsvcr90.a and libmsvcr90d.a targets.
        * msvcrt.def.in: Add support for __msvcr90__ and __msvcr90d__ defines.
        * mingwex/math/log10f.S: Correct issue with comments.
        * mingwex/math/log10l.S: Ditto.
        * mingwex/math/log1p.S: Ditto.
        * mingwex/math/log1pf.S: Ditto.
        * mingwex/math/log1pl.S: Ditto.
        * mingwex/math/log2.S: Ditto.
        * mingwex/math/log2f.S: Ditto.
        * mingwex/math/log2l.S: Ditto.
        * mingwex/math/logf.S: Ditto.
        * mingwex/math/logl.S: Ditto.

13 files changed, 119 insertions, 102 deletions

diff --git a/winsup/mingw/ChangeLog b/winsup/mingw/ChangeLog
index 732471f..f4bc63f 100644
--- a/winsup/mingw/ChangeLog
+++ b/winsup/mingw/ChangeLog
@@ -1,3 +1,18 @@
+2007-11-26  Chris Sutcliffe <ir0nh34d@users.sourceforge.net>
+
+	* Makefile.in: Add libmsvcr90.a and libmsvcr90d.a targets.
+	* msvcrt.def.in: Add support for __msvcr90__ and __msvcr90d__ defines.
+	* mingwex/math/log10f.S: Correct issue with comments.
+	* mingwex/math/log10l.S: Ditto.
+	* mingwex/math/log1p.S: Ditto.
+	* mingwex/math/log1pf.S: Ditto.
+	* mingwex/math/log1pl.S: Ditto.
+	* mingwex/math/log2.S: Ditto.
+	* mingwex/math/log2f.S: Ditto.
+	* mingwex/math/log2l.S: Ditto.
+	* mingwex/math/logf.S: Ditto.
+	* mingwex/math/logl.S: Ditto.
+
 2007-10-03  Danny Smith  <dannysmith@users.sourceforge.net>
 
 	* mingwex/gdtoa/mingw_snprintf.c: fixed warning during compile.
diff --git a/winsup/mingw/Makefile.in b/winsup/mingw/Makefile.in
index 60ecbb5..51c3336 100644
--- a/winsup/mingw/Makefile.in
+++ b/winsup/mingw/Makefile.in
@@ -184,6 +184,7 @@ LIBS = libcrtdll.a \
        libmsvcr70.a libmsvcr70d.a \
        libmsvcr71.a libmsvcr71d.a \
        libmsvcr80.a libmsvcr80d.a \
+       libmsvcr90.a libmsvcr90d.a \
        libmingw32.a \
        libcoldname.a \
        libmoldname.a libmoldnamed.a \
@@ -273,6 +274,7 @@ msvcrt.def msvcrtd.def \
 msvcr70.def msvcr70d.def \
 msvcr71.def msvcr71d.def \
 msvcr80.def msvcr80d.def \
+msvcr90.def msvcr90d.def \
 : msvcrt.def.in
 	$(CC) -DRUNTIME=$(basename $(notdir $@)) \
 		-D__$(basename $(notdir $@))__=1 \
diff --git a/winsup/mingw/mingwex/math/log10f.S b/winsup/mingw/mingwex/math/log10f.S
index 90fc9af..6483814 100644
--- a/winsup/mingw/mingwex/math/log10f.S
+++ b/winsup/mingw/mingwex/math/log10f.S
@@ -20,29 +20,29 @@ limit:	.double 0.29
 .globl _log10f
 	.def	_log10f;	.scl	2;	.type	32;	.endef
 _log10f:
-	fldlg2			// log10(2)
-	flds	4(%esp)		// x : log10(2)
+	fldlg2			/* log10(2) */
+	flds	4(%esp)		/* x : log10(2) */
 	fxam
 	fnstsw
-	fld	%st		// x : x : log10(2)
+	fld	%st		/* x : x : log10(2) */
 	sahf
-	jc	3f		// in case x is NaN or ħInf
-4:	fsubl	one		// x-1 : x : log10(2)
-	fld	%st		// x-1 : x-1 : x : log10(2)
-	fabs			// |x-1| : x-1 : x : log10(2)
-	fcompl	limit		// x-1 : x : log10(2)
-	fnstsw			// x-1 : x : log10(2)
+	jc	3f		/* in case x is NaN or ħInf */
+4:	fsubl	one		/* x-1 : x : log10(2) */
+	fld	%st		/* x-1 : x-1 : x : log10(2) */
+	fabs			/* |x-1| : x-1 : x : log10(2) */
+	fcompl	limit		/* x-1 : x : log10(2) */
+	fnstsw			/* x-1 : x : log10(2) */
 	andb	$0x45, %ah
 	jz	2f
-	fstp	%st(1)		// x-1 : log10(2)
-	fyl2xp1			// log10(x)
+	fstp	%st(1)		/* x-1 : log10(2) */
+	fyl2xp1			/* log10(x) */
 	ret
 
-2:	fstp	%st(0)		// x : log10(2)
-	fyl2x			// log10(x)
+2:	fstp	%st(0)		/* x : log10(2) */
+	fyl2x			/* log10(x) */
 	ret
 
-3:	jp	4b		// in case x is ħInf
+3:	jp	4b		/* in case x is ħInf */
 	fstp	%st(1)
 	fstp	%st(1)
 	ret
diff --git a/winsup/mingw/mingwex/math/log10l.S b/winsup/mingw/mingwex/math/log10l.S
index 8c046a0..46f6b98 100644
--- a/winsup/mingw/mingwex/math/log10l.S
+++ b/winsup/mingw/mingwex/math/log10l.S
@@ -24,29 +24,29 @@ limit:	.double 0.29
 .globl _log10l
 	.def	_log10l;	.scl	2;	.type	32;	.endef
 _log10l:
-	fldlg2			// log10(2)
-	fldt	4(%esp)		// x : log10(2)
+	fldlg2			/* log10(2) */
+	fldt	4(%esp)		/* x : log10(2) */
 	fxam
 	fnstsw
-	fld	%st		// x : x : log10(2)
+	fld	%st		/* x : x : log10(2) */
 	sahf
-	jc	3f		// in case x is NaN or ħInf
-4:	fsubl	one		// x-1 : x : log10(2)
-	fld	%st		// x-1 : x-1 : x : log10(2)
-	fabs			// |x-1| : x-1 : x : log10(2)
-	fcompl	limit		// x-1 : x : log10(2)
-	fnstsw			// x-1 : x : log10(2)
+	jc	3f		/* in case x is NaN or ħInf */
+4:	fsubl	one		/* x-1 : x : log10(2) */
+	fld	%st		/* x-1 : x-1 : x : log10(2) */
+	fabs			/* |x-1| : x-1 : x : log10(2) */
+	fcompl	limit		/* x-1 : x : log10(2) */
+	fnstsw			/* x-1 : x : log10(2) */
 	andb	$0x45, %ah
 	jz	2f
-	fstp	%st(1)		// x-1 : log10(2)
-	fyl2xp1			// log10(x)
+	fstp	%st(1)		/* x-1 : log10(2) */
+	fyl2xp1			/* log10(x) */
 	ret
 
-2:	fstp	%st(0)		// x : log10(2)
-	fyl2x			// log10(x)
+2:	fstp	%st(0)		/* x : log10(2) */
+	fyl2x			/* log10(x) */
 	ret
 
-3:	jp	4b		// in case x is ħInf
+3:	jp	4b		/* in case x is ħInf */
 	fstp	%st(1)
 	fstp	%st(1)
 	ret
diff --git a/winsup/mingw/mingwex/math/log1p.S b/winsup/mingw/mingwex/math/log1p.S
index a38816c..12e223c 100644
--- a/winsup/mingw/mingwex/math/log1p.S
+++ b/winsup/mingw/mingwex/math/log1p.S
@@ -27,7 +27,7 @@ _log1p:
 	fnstsw
 	fld	%st
 	sahf
-	jc	3f	// in case x is NaN or ħInf
+	jc	3f	/* in case x is NaN or ħInf */
 
 4:	fabs
 	fcompl	limit
@@ -41,7 +41,7 @@ _log1p:
 2:	fyl2xp1
 	ret
 
-3:	jp	4b	// in case x is ħInf
+3:	jp	4b	/* in case x is ħInf */
 	fstp	%st(1)
 	fstp	%st(1)
 	ret
diff --git a/winsup/mingw/mingwex/math/log1pf.S b/winsup/mingw/mingwex/math/log1pf.S
index 1d9949f..b5b1acb 100644
--- a/winsup/mingw/mingwex/math/log1pf.S
+++ b/winsup/mingw/mingwex/math/log1pf.S
@@ -27,7 +27,7 @@ _log1pf:
 	fnstsw
 	fld	%st
 	sahf
-	jc	3f		// in case x is NaN or ħInf
+	jc	3f		/* in case x is NaN or ħInf */
 
 4:	fabs
 	fcomps	limit
@@ -41,7 +41,7 @@ _log1pf:
 2:	fyl2xp1
 	ret
 
-3:	jp	4b		// in case x is ħInf
+3:	jp	4b		/* in case x is ħInf */
 	fstp	%st(1)
 	fstp	%st(1)
 	ret
diff --git a/winsup/mingw/mingwex/math/log1pl.S b/winsup/mingw/mingwex/math/log1pl.S
index 5ce4fba..158d8ae 100644
--- a/winsup/mingw/mingwex/math/log1pl.S
+++ b/winsup/mingw/mingwex/math/log1pl.S
@@ -33,7 +33,7 @@ _log1pl:
 	fnstsw
 	fld	%st
 	sahf
-	jc	3f		// in case x is NaN or ħInf
+	jc	3f		/* in case x is NaN or ħInf */
 4:
 	fabs
 	fldt	limit
@@ -48,7 +48,7 @@ _log1pl:
 2:	fyl2xp1
 	ret
 
-3:	jp	4b		// in case x is ħInf
+3:	jp	4b		/* in case x is ħInf */
 	fstp	%st(1)
 	fstp	%st(1)
 	ret
diff --git a/winsup/mingw/mingwex/math/log2.S b/winsup/mingw/mingwex/math/log2.S
index 08f0083..68e7fc7 100644
--- a/winsup/mingw/mingwex/math/log2.S
+++ b/winsup/mingw/mingwex/math/log2.S
@@ -24,28 +24,28 @@ limit:	.double 0.29
 	.def	_log2;	.scl	2;	.type	32;	.endef
 _log2:
 	fldl	one
-	fldl	4(%esp)		// x : 1
+	fldl	4(%esp)		/* x : 1 */
 	fxam
 	fnstsw
-	fld	%st		// x : x : 1
+	fld	%st		/* x : x : 1 */
 	sahf
-	jc	3f		// in case x is NaN or ħInf
-4:	fsub	%st(2), %st	// x-1 : x : 1
-	fld	%st		// x-1 : x-1 : x : 1
-	fabs			// |x-1| : x-1 : x : 1
-	fcompl	limit		// x-1 : x : 1
-	fnstsw			// x-1 : x : 1
+	jc	3f		/* in case x is NaN or ħInf */
+4:	fsub	%st(2), %st	/* x-1 : x : 1 */
+	fld	%st		/* x-1 : x-1 : x : 1 */
+	fabs			/* |x-1| : x-1 : x : 1 */
+	fcompl	limit		/* x-1 : x : 1 */
+	fnstsw			/* x-1 : x : 1 */
 	andb	$0x45, %ah
 	jz	2f
-	fstp	%st(1)		// x-1 : 1
-	fyl2xp1			// log(x)
+	fstp	%st(1)		/* x-1 : 1 */
+	fyl2xp1			/* log(x) */
 	ret
 
-2:	fstp	%st(0)		// x : 1
-	fyl2x			// log(x)
+2:	fstp	%st(0)		/* x : 1 */
+	fyl2x			/* log(x) */
 	ret
 
-3:	jp	4b		// in case x is ħInf
+3:	jp	4b		/* in case x is ħInf */
 	fstp	%st(1)
 	fstp	%st(1)
 	ret
diff --git a/winsup/mingw/mingwex/math/log2f.S b/winsup/mingw/mingwex/math/log2f.S
index 211abba..900e26d 100644
--- a/winsup/mingw/mingwex/math/log2f.S
+++ b/winsup/mingw/mingwex/math/log2f.S
@@ -24,28 +24,28 @@ limit:	.double 0.29
 	.def	_log2f;	.scl	2;	.type	32;	.endef
 _log2f:
 	fldl	one
-	flds	4(%esp)		// x : 1
+	flds	4(%esp)		/* x : 1 */
 	fxam
 	fnstsw
-	fld	%st		// x : x : 1
+	fld	%st		/* x : x : 1 */
 	sahf
-	jc	3f		// in case x is NaN or ħInf
-4:	fsub	%st(2), %st	// x-1 : x : 1
-	fld	%st		// x-1 : x-1 : x : 1
-	fabs			// |x-1| : x-1 : x : 1
-	fcompl	limit		// x-1 : x : 1
-	fnstsw			// x-1 : x : 1
+	jc	3f		/* in case x is NaN or ħInf */
+4:	fsub	%st(2), %st	/* x-1 : x : 1 */
+	fld	%st		/* x-1 : x-1 : x : 1 */
+	fabs			/* |x-1| : x-1 : x : 1 */
+	fcompl	limit		/* x-1 : x : 1 */
+	fnstsw			/* x-1 : x : 1 */
 	andb	$0x45, %ah
 	jz	2f
-	fstp	%st(1)		// x-1 : 1
-	fyl2xp1			// log(x)
+	fstp	%st(1)		/* x-1 : 1 */
+	fyl2xp1			/* log(x) */
 	ret
 
-2:	fstp	%st(0)		// x : 1
-	fyl2x			// log(x)
+2:	fstp	%st(0)		/* x : 1 */
+	fyl2x			/* log(x) */
 	ret
 
-3:	jp	4b		// in case x is ħInf
+3:	jp	4b		/* in case x is ħInf */
 	fstp	%st(1)
 	fstp	%st(1)
 	ret
diff --git a/winsup/mingw/mingwex/math/log2l.S b/winsup/mingw/mingwex/math/log2l.S
index 52503fc..0ad5696 100644
--- a/winsup/mingw/mingwex/math/log2l.S
+++ b/winsup/mingw/mingwex/math/log2l.S
@@ -21,28 +21,28 @@ limit:	.double 0.29
 	.def	_log2l;	.scl	2;	.type	32;	.endef
 _log2l:
 	fldl	one
-	fldt	4(%esp)		// x : 1
+	fldt	4(%esp)		/* x : 1 */
 	fxam
 	fnstsw
-	fld	%st		// x : x : 1
+	fld	%st		/* x : x : 1 */
 	sahf
-	jc	3f		// in case x is NaN or ħInf
-4:	fsub	%st(2), %st	// x-1 : x : 1
-	fld	%st		// x-1 : x-1 : x : 1
-	fabs			// |x-1| : x-1 : x : 1
-	fcompl	limit		// x-1 : x : 1
-	fnstsw			// x-1 : x : 1
+	jc	3f		/* in case x is NaN or ħInf */
+4:	fsub	%st(2), %st	/* x-1 : x : 1 */
+	fld	%st		/* x-1 : x-1 : x : 1 */
+	fabs			/* |x-1| : x-1 : x : 1 */
+	fcompl	limit		/* x-1 : x : 1 */
+	fnstsw			/* x-1 : x : 1 */
 	andb	$0x45, %ah
 	jz	2f
-	fstp	%st(1)		// x-1 : 1
-	fyl2xp1			// log(x)
+	fstp	%st(1)		/* x-1 : 1 */
+	fyl2xp1			/* log(x) */
 	ret
 
-2:	fstp	%st(0)		// x : 1
-	fyl2x			// log(x)
+2:	fstp	%st(0)		/* x : 1 */
+	fyl2x			/* log(x) */
 	ret
 
-3:	jp	4b		// in case x is ħInf
+3:	jp	4b		/* in case x is ħInf */
 	fstp	%st(1)
 	fstp	%st(1)
 	ret
diff --git a/winsup/mingw/mingwex/math/logf.S b/winsup/mingw/mingwex/math/logf.S
index 32119ec..d59fe58 100644
--- a/winsup/mingw/mingwex/math/logf.S
+++ b/winsup/mingw/mingwex/math/logf.S
@@ -20,20 +20,20 @@ limit:	.double 0.29
 .globl _logf
 	.def	_logf;	.scl	2;	.type	32;	.endef
 _logf:
-	fldln2			// log(2)
-	flds	4(%esp)		// x : log(2)
-	fld	%st		// x : x : log(2)
-	fsubl	one		// x-1 : x : log(2)
-	fld	%st		// x-1 : x-1 : x : log(2)
-	fabs			// |x-1| : x-1 : x : log(2)
-	fcompl	limit		// x-1 : x : log(2)
-	fnstsw			// x-1 : x : log(2)
+	fldln2			/* log(2) */
+	flds	4(%esp)		/* x : log(2) */
+	fld	%st		/* x : x : log(2) */
+	fsubl	one		/* x-1 : x : log(2) */
+	fld	%st		/* x-1 : x-1 : x : log(2) */
+	fabs			/* |x-1| : x-1 : x : log(2) */
+	fcompl	limit		/* x-1 : x : log(2) */
+	fnstsw			/* x-1 : x : log(2) */
 	andb	$0x45, %ah
 	jz	2f
-	fstp	%st(1)		// x-1 : log(2)
-	fyl2xp1			// log(x)
+	fstp	%st(1)		/* x-1 : log(2) */
+	fyl2xp1			/* log(x) */
 	ret
 
-2:	fstp	%st(0)		// x : log(2)
-	fyl2x			// log(x)
+2:	fstp	%st(0)		/* x : log(2) */
+	fyl2x			/* log(x) */
 	ret
diff --git a/winsup/mingw/mingwex/math/logl.S b/winsup/mingw/mingwex/math/logl.S
index 8dc1449..75a282f 100644
--- a/winsup/mingw/mingwex/math/logl.S
+++ b/winsup/mingw/mingwex/math/logl.S
@@ -21,20 +21,20 @@ limit:	.double 0.29
 .globl _logl
 	.def	_logl;	.scl	2;	.type	32;	.endef
 _logl:
-	fldln2			// log(2)
-	fldt	4(%esp)		// x : log(2)
-	fld	%st		// x : x : log(2)
-	fsubl	one		// x-1 : x : log(2)
-	fld	%st		// x-1 : x-1 : x : log(2)
-	fabs			// |x-1| : x-1 : x : log(2)
-	fcompl	limit		// x-1 : x : log(2)
-	fnstsw			// x-1 : x : log(2)
+	fldln2			/* log(2) */
+	fldt	4(%esp)		/* x : log(2) */
+	fld	%st		/* x : x : log(2) */
+	fsubl	one		/* x-1 : x : log(2) */
+	fld	%st		/* x-1 : x-1 : x : log(2) */
+	fabs			/* |x-1| : x-1 : x : log(2) */
+	fcompl	limit		/* x-1 : x : log(2) */
+	fnstsw			/* x-1 : x : log(2) */
 	andb	$0x45, %ah
 	jz	2f
-	fstp	%st(1)		// x-1 : log(2)
-	fyl2xp1			// log(x)
+	fstp	%st(1)		/* x-1 : log(2) */
+	fyl2xp1			/* log(x) */
 	ret
 
-2:	fstp	%st(0)		// x : log(2)
-	fyl2x			// log(x)
+2:	fstp	%st(0)		/* x : log(2) */
+	fyl2x			/* log(x) */
 	ret
diff --git a/winsup/mingw/msvcrt.def.in b/winsup/mingw/msvcrt.def.in
index edac445..f541dfa 100644
--- a/winsup/mingw/msvcrt.def.in
+++ b/winsup/mingw/msvcrt.def.in
@@ -5,7 +5,7 @@
 ;* This file is a part of the mingw-runtime package.
 ;* No warranty is given; refer to the file DISCLAIMER within the package.
 ;
-; Exports from msvcrt.dll, msvcr70.dll, msvcr71.dll and msvcr80.dll
+; Exports from msvcrt.dll, msvcr70.dll, msvcr71.dll, msvcr80.dll and msvcr90.dll
 ;
 ; NOTE: All exports, except for what appeared to be C++ mangled names,
 ;       are included. Not all functions have prototypes in the headers
@@ -148,7 +148,7 @@ _cprintf
 _cputs
 _creat
 _cscanf
-#if  !(__msvcr71__ || __msvcr71d__ || __msvcr80__ || __msvcr80d__)
+#if  !(__msvcr71__ || __msvcr71d__ || __msvcr80__ || __msvcr80d__ || __msvcr90__ || msvcr90d__)
 _ctype DATA
 #endif
 _cwait
@@ -743,7 +743,7 @@ _wfindfirst64
 _wfindnext64
 _wstat64
 _wutime64
-#if ( __msvcr70__ || __msvcr70d__ ||  __msvcr71__ || __msvcr71d__ || __msvcr80__ || __msvcr80d__)
+#if ( __msvcr70__ || __msvcr70d__ ||  __msvcr71__ || __msvcr71d__ || __msvcr80__ || __msvcr80d__ || __msvcr90__ || __msvcr90d__)
 ; msvcr70.dll amd later
 __buffer_overrun
 __CxxDetectRethrow
@@ -787,7 +787,7 @@ _wcstoui64
 _wctype
 _wtof
 #endif  /* 7.0 */
-#if  (__msvcr71__ || __msvcr71d__ || __msvcr80__ || __msvcr80d__)
+#if  (__msvcr71__ || __msvcr71d__ || __msvcr80__ || __msvcr80d__ || __msvcr90__ || __msvcr90d__)
 ; msvcr71.dll
 ___lc_codepage_func
 ___lc_collate_cp_func
@@ -808,7 +808,7 @@ _get_heap_handle
 _set_purecall_handler
 _set_SSE2_enable
 #endif /* 7.1  */
-#if ( __msvcr80__ || __msvcr80d__)
+#if ( __msvcr80__ || __msvcr80d__ || __msvcr90__ || __msvcr90d__)
 ; msvcr80.dll
 _get_printf_count_output
 _set_printf_count_output