Displaying 2 results from an estimated 2 matches for "tcl_incrrefcount".
2018 Jul 01
2
[PATCH nbdkit] Add Tcl plugin, for writing plugins in Tcl.
...));
+ exit (EXIT_FAILURE);
+ }
+}
+
+static void
+tcl_unload (void)
+{
+ if (interp)
+ Tcl_DeleteInterp (interp);
+ Tcl_Finalize ();
+}
+
+/* Test if proc was defined by the Tcl code. */
+static int
+proc_defined (const char *name)
+{
+ int r;
+ Tcl_Obj *cmd;
+
+ cmd = Tcl_NewObj ();
+ Tcl_IncrRefCount (cmd);
+ Tcl_ListObjAppendElement (0, cmd, Tcl_NewStringObj ("info", -1));
+ Tcl_ListObjAppendElement (0, cmd, Tcl_NewStringObj ("procs", -1));
+ Tcl_ListObjAppendElement (0, cmd, Tcl_NewStringObj (name, -1));
+ r = Tcl_EvalObjEx (interp, cmd, TCL_EVAL_DIRECT);
+ Tcl_DecrRe...
2003 Oct 22
1
Core dump when calling tclvalue (PR#4724)
...NULL) (129.124.42.210)
I get a core dump when executing the following code:
> library("tcltk")
> zzz<-tclArray()
> tclvalue(zzz)
Running under gdb gives this output:
Program received signal SIGSEGV, Segmentation fault.
makeRTclObject (tclobj=0x0) at tcltk.c:48
48 Tcl_IncrRefCount(tclobj);