diff options
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/gdbtk.c | 13 |
2 files changed, 15 insertions, 3 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 3c5981d..b435aaa 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 f3d8204..5d8fcb9 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"); |