From: Craig Burley <craig@jcb-sc.com>
Date: Fri, 18 Jun 1999 08:41:09 +0000 (+0000)
Subject: fix ttynam for no-ttynam case
X-Git-Tag: releases/libgcj-2.95.0~113
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=749f840d899f0e9430656616d38b9b7b283f116f;p=thirdparty%2Fgcc.git

fix ttynam for no-ttynam case

From-SVN: r27594
---

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 00f3a65ca32e..7a62c4f33271 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+Fri Jun 18 11:38:07 1999  Craig Burley  <craig@jcb-sc.com>
+
+	* libU77/ttynam_.c: if !defined (HAVE_TTYNAM),
+	write all spaces into return value instead of trying
+	to return -1 from a void function.
+
 Fri Jun 18 11:22:21 1999  Craig Burley  <craig@jcb-sc.com>
 
 	Update to Netlib version of 1999-05-10:
diff --git a/libf2c/libU77/ttynam_.c b/libf2c/libU77/ttynam_.c
index cb1d1e9a35cd..c7610fb0c872 100644
--- a/libf2c/libU77/ttynam_.c
+++ b/libf2c/libU77/ttynam_.c
@@ -59,6 +59,6 @@ extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
   }
 #else
   errno = ENOSYS;
-  return -1;
+  s_copy (ret_val, " ", ret_val_len, 1);
 #endif
 }