Smalltalk › Gnu

[PATCH]Support for tcl-8.6.x

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

4 messages Options

Jochen Schmitt

[PATCH]Support for tcl-8.6.x

Hello,

I have to find out, that the expression interp->result will not supported
on tcl-8.6.x anymore.

So I have created the following patch which you may find below.

Best Regrads:

diff -up smalltalk-3.2.5/packages/blox/tk/BloxTK.c.tk86 smalltalk-3.2.5/packages/blox/tk/BloxTK.c
--- smalltalk-3.2.5/packages/blox/tk/BloxTK.c.tk86 2013-03-23 20:56:26.000000000 +0100
+++ smalltalk-3.2.5/packages/blox/tk/BloxTK.c 2014-05-29 16:34:15.744694202 +0200
@@ -173,12 +173,12 @@ tclInit (void)

if (Tcl_Init (interp) == TCL_ERROR)
{
- fprintf (stderr, "Tcl_Init failed: %s\n", interp->result);
+ fprintf (stderr, "Tcl_Init failed: %s\n", Tcl_GetStringResult(interp));
exit (1);
}
if (Tk_Init (interp) == TCL_ERROR)
{
- fprintf (stderr, "Tk_Init failed: %s\n", interp->result);
+ fprintf (stderr, "Tk_Init failed: %s\n", Tcl_GetStringResult(interp));
exit (1);
}
Tcl_CreateCommand (interp, "callback", doCallback, NULL, NULL);

_______________________________________________
help-smalltalk mailing list
[hidden email]
https://lists.gnu.org/mailman/listinfo/help-smalltalk

Paolo Bonzini-2

Re: [PATCH]Support for tcl-8.6.x

Il 29/05/2014 17:01, Jochen Schmitt ha scritto:

> Hello,
>
> I have to find out, that the expression interp->result will not supported
> on tcl-8.6.x anymore.
>
> So I have created the following patch which you may find below.
>
> Best Regrads:
>
> diff -up smalltalk-3.2.5/packages/blox/tk/BloxTK.c.tk86 smalltalk-3.2.5/packages/blox/tk/BloxTK.c
> --- smalltalk-3.2.5/packages/blox/tk/BloxTK.c.tk86 2013-03-23 20:56:26.000000000 +0100
> +++ smalltalk-3.2.5/packages/blox/tk/BloxTK.c 2014-05-29 16:34:15.744694202 +0200
> @@ -173,12 +173,12 @@ tclInit (void)
>
> if (Tcl_Init (interp) == TCL_ERROR)
> {
> - fprintf (stderr, "Tcl_Init failed: %s\n", interp->result);
> + fprintf (stderr, "Tcl_Init failed: %s\n", Tcl_GetStringResult(interp));
> exit (1);
> }
> if (Tk_Init (interp) == TCL_ERROR)
> {
> - fprintf (stderr, "Tk_Init failed: %s\n", interp->result);
> + fprintf (stderr, "Tk_Init failed: %s\n", Tcl_GetStringResult(interp));
> exit (1);
> }
> Tcl_CreateCommand (interp, "callback", doCallback, NULL, NULL);
>
> _______________________________________________
> help-smalltalk mailing list
> [hidden email]
> https://lists.gnu.org/mailman/listinfo/help-smalltalk
>

Thanks, looks good.

Holger, can you commit it?

Paolo

_______________________________________________
help-smalltalk mailing list
[hidden email]
https://lists.gnu.org/mailman/listinfo/help-smalltalk

Holger Freyther

Re: [PATCH]Support for tcl-8.6.x

On Thu, May 29, 2014 at 05:36:34PM +0200, Paolo Bonzini wrote:

> Holger, can you commit it?

sure, do you mind if I use the commit I sent on the 26th? I have
a readline patch as well. :)

_______________________________________________
help-smalltalk mailing list
[hidden email]
https://lists.gnu.org/mailman/listinfo/help-smalltalk

Paolo Bonzini-2

Re: [PATCH]Support for tcl-8.6.x

Il 29/05/2014 21:05, Holger Hans Peter Freyther ha scritto:
> On Thu, May 29, 2014 at 05:36:34PM +0200, Paolo Bonzini wrote:
>
>> Holger, can you commit it?
>
> sure, do you mind if I use the commit I sent on the 26th? I have
> a readline patch as well. :)

Oh, I misremembered 2/2 as another readline patch. :)

Paolo

_______________________________________________
help-smalltalk mailing list
[hidden email]
https://lists.gnu.org/mailman/listinfo/help-smalltalk