fix ttynam for no-ttynam case

From-SVN: r27594

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 00f3a65ca32e657efff305124cb7e326c3533bc6..7a62c4f332711f99a6fd72013e524754f2f62f77 100644 (file)
--- 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 cb1d1e9a35cdf373f9c2fdc1d487050990f38da4..c7610fb0c87232add1e6bee07279ad7c5b19a3f5 100644 (file)
--- 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
 }