Use F_SETOWN if SIOCSPGRP is not available.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 3c5981d5e8669fa66ef2c87522d91a7d971478a4..b435aaaef409077eaefa0f418287280a137abc18 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Tue Apr 11 11:07:12 1995  Michael Meissner  <meissner@tiktok.cygnus.com>
+
+       * gdbtk.c (gdbtk_init): If SIOCSPGRP is not available, but
+       F_SETOWN is, use that.
+
 Mon Apr 10 18:31:57 1995  Stan Shebs  <shebs@andros.cygnus.com>
        
        Merge in support for Mac MPW as a host.

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index f3d820495e8f328b3e778328b8de19393cc86fb8..5d8fcb93d2f52330ab2b359bad8d2e53a44ed385 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -105,7 +105,7 @@ gdbtk_fputs (ptr, stream)
      FILE *stream;
 {
   if (result_ptr)
-    Tcl_DStringAppend (result_ptr, ptr, -1);
+    Tcl_DStringAppend (result_ptr, (char *)ptr, -1);
   else
     {
       Tcl_DString str;
@@ -113,7 +113,7 @@ gdbtk_fputs (ptr, stream)
       Tcl_DStringInit (&str);
 
       Tcl_DStringAppend (&str, "gdbtk_tcl_fputs", -1);
-      Tcl_DStringAppendElement (&str, ptr);
+      Tcl_DStringAppendElement (&str, (char *)ptr);
 
       Tcl_Eval (interp, Tcl_DStringValue (&str));
       Tcl_DStringFree (&str);
@@ -1121,7 +1121,14 @@ gdbtk_init ()
   i = getpid();
   if (ioctl (x_fd, SIOCSPGRP, &i))
     perror_with_name ("gdbtk_init: ioctl SIOCSPGRP failed");
-#endif
+
+#else
+#ifdef F_SETOWN
+  i = getpid();
+  if (fcntl (x_fd, F_SETOWN, i))
+    perror_with_name ("gdbtk_init: fcntl F_SETOWN failed");
+#endif /* F_SETOWN */
+#endif /* !SIOCSPGRP */
 #else
   if (ioctl (x_fd,  I_SETSIG, S_INPUT|S_RDNORM) < 0)
     perror_with_name ("gdbtk_init: ioctl I_SETSIG failed");