Check-in [7ce3fcaf57]
Overview
Comment:Updated to never delete compiler memory, since it currently cannot operate again once that happens
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7ce3fcaf576eaa01c920479a659ee1f3e24b0f4c
User & Date: rkeene on 2014-06-23 19:43:24
Other Links: manifest | tags
Context
2014-06-23
19:46
Updated to include more detailed CURL test check-in: aa5e861dc0 user: rkeene tags: trunk
19:43
Updated to never delete compiler memory, since it currently cannot operate again once that happens check-in: 7ce3fcaf57 user: rkeene tags: trunk
19:42
Removed old reference to "tcc_handle" check-in: bc257f54f8 user: rkeene tags: trunk
Changes

Modified tcc4tcl.c from [93d31f9b0f] to [a2a733650e].

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
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;
	}

	ckfree((void *) ts);
}

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







<
<
<
|
<







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;




	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;