Diff

Differences From Artifact [93d31f9b0f]:

To Artifact [a2a733650e]:


35
36
37
38
39
40
41
42
43
44
45

46
47
48
49
50
51
52
53
35
36
37
38
39
40
41




42

43
44
45
46
47
48
49







-
-
-
-
+
-







static void Tcc4tclCCommandDeleteProc (ClientData cdata) {
	struct TclTCCState *ts;
	TCCState *s ;

	ts = (struct TclTCCState *) cdata;
	s = ts->s;

	/* We can delete the compiler if the output was not to memory */
	if (s->output_type != TCC_OUTPUT_MEMORY) {
		tcc_delete(s);
		ts->s = NULL;
	ts->s = NULL;
	}

	ckfree((void *) ts);
}

static int Tcc4tclHandleCmd ( ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[]){
	Tcl_WideInt val;
	Tcl_Obj *val_o;