From 45f90c50d3cd042cbf1696549dcb229cf26dfc13 Mon Sep 17 00:00:00 2001 From: Michael Meissner Date: Tue, 11 Apr 1995 15:14:07 +0000 Subject: [PATCH] Use F_SETOWN if SIOCSPGRP is not available. --- gdb/ChangeLog | 5 +++++ gdb/gdbtk.c | 13 ++++++++++--- 2 files changed, 15 insertions(+), 3 deletions(-) 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 + + * gdbtk.c (gdbtk_init): If SIOCSPGRP is not available, but + F_SETOWN is, use that. + Mon Apr 10 18:31:57 1995 Stan Shebs 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"); -- 2.34.1