From: Michael Meissner <gnu@the-meissners.org>
Date: Tue, 11 Apr 1995 15:14:07 +0000 (+0000)
Subject: Use F_SETOWN if SIOCSPGRP is not available.
X-Git-Url: http://git.efficios.com/?a=commitdiff_plain;h=45f90c50d3cd042cbf1696549dcb229cf26dfc13;p=deliverable%2Fbinutils-gdb.git

Use F_SETOWN if SIOCSPGRP is not available.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 3c5981d5e8..b435aaaef4 100644
--- 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 f3d820495e..5d8fcb93d2 100644
--- 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");