[packages/gcl.git] / gcl-format.patch

--- gcl/gcl-tk/tkMain.c.orig	2013-11-11 15:55:48.000000000 +0100
+++ gcl/gcl-tk/tkMain.c	2013-11-17 17:37:21.967828865 +0100
@@ -121,7 +121,7 @@
 TCL_signal_error(x)
      char *x;
 {char buf[300] ;
- sprintf("error %s",x);
+ sprintf(buf, "error %s",x);
  Tcl_Eval(interp,buf);
  dfprintf(stderr,x);
 }
Commit	Line	Data
1cc927bc JB	1	--- gcl/gcl-tk/tkMain.c.orig 2013-11-11 15:55:48.000000000 +0100
	2	+++ gcl/gcl-tk/tkMain.c 2013-11-17 17:37:21.967828865 +0100
	3	@@ -121,7 +121,7 @@
	4	TCL_signal_error(x)
	5	char *x;
	6	{char buf[300] ;
	7	- sprintf("error %s",x);
	8	+ sprintf(buf, "error %s",x);
	9	Tcl_Eval(interp,buf);
	10	dfprintf(stderr,x);
	11	}