OSDN Git Service

PR libfortran/27964
authordannysmith <dannysmith@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 23 Sep 2006 01:56:55 +0000 (01:56 +0000)
committerdannysmith <dannysmith@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 23 Sep 2006 01:56:55 +0000 (01:56 +0000)
* configure.ac: Check for setmode() function.
* configure: Regenerate.
* config.h.in: Regenerate.
* io/unix.c (output_stream): Force stdout to binary mode.
(error_stream): Force stderr to binary mode.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117166 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/config.h.in
libgfortran/configure
libgfortran/configure.ac
libgfortran/io/unix.c

index 3832663..709500b 100644 (file)
@@ -1,3 +1,12 @@
+2006-09-22  Danny Smith  <dannysmith@users.sourceforge.net>
+
+       PR libfortran/27964
+       * configure.ac: Check for setmode() function.
+       * configure: Regenerate.
+       * config.h.in: Regenerate.
+       * io/unix.c (output_stream): Force stdout to binary mode. 
+       (error_stream): Force stderr to binary mode.
+
 2006-09-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/29099
index 11f8e72..444cd2b 100644 (file)
 /* libm includes scalbnl */
 #undef HAVE_SCALBNL
 
+/* Define to 1 if you have the `setmode' function. */
+#undef HAVE_SETMODE
+
 /* Define to 1 if you have the `signal' function. */
 #undef HAVE_SIGNAL
 
index 7af0b32..75872aa 100755 (executable)
@@ -10037,7 +10037,7 @@ fi
 done
 
 
-for ac_func in wait
+for ac_func in wait setmode
 do
 as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh`
 echo "$as_me:$LINENO: checking for $ac_func" >&5
index 5e8efd4..4784fa5 100644 (file)
@@ -172,7 +172,7 @@ AC_CHECK_MEMBERS([struct stat.st_rdev])
 AC_CHECK_FUNCS(getrusage times mkstemp strtof strtold snprintf ftruncate chsize)
 AC_CHECK_FUNCS(chdir strerror getlogin gethostname kill link symlink perror)
 AC_CHECK_FUNCS(sleep time ttyname signal alarm ctime clock access fork execl)
-AC_CHECK_FUNCS(wait)
+AC_CHECK_FUNCS(wait setmode)
 
 # Check libc for getgid, getpid, getuid
 AC_CHECK_LIB([c],[getgid],[AC_DEFINE([HAVE_GETGID],[1],[libc includes getgid])])
index 560047f..57883e0 100644 (file)
@@ -1289,6 +1289,9 @@ input_stream (void)
 stream *
 output_stream (void)
 {
+#if defined(HAVE_CRLF) && defined(HAVE_SETMODE)
+  setmode (STDOUT_FILENO, O_BINARY);
+#endif
   return fd_to_stream (STDOUT_FILENO, PROT_WRITE);
 }
 
@@ -1299,6 +1302,9 @@ output_stream (void)
 stream *
 error_stream (void)
 {
+#if defined(HAVE_CRLF) && defined(HAVE_SETMODE)
+  setmode (STDERR_FILENO, O_BINARY);
+#endif
   return fd_to_stream (STDERR_FILENO, PROT_WRITE);
 }