Check-in [9e75cf906d]
Overview
Comment:Updated to set tcc_lib_path sooner, needed for setting library_paths correctly
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9e75cf906d9f54b511f72b9bedfccecafb1e1467
User & Date: rkeene on 2014-05-04 04:26:45.502
Other Links: manifest | tags
Context
2014-05-04
04:27
Updated to search library_paths for libtcc1.a for ELF as is done for PE check-in: 84c0812a1d user: rkeene tags: trunk
04:26
Updated to set tcc_lib_path sooner, needed for setting library_paths correctly check-in: 9e75cf906d user: rkeene tags: trunk
04:25
Updated to clean temporary test directory more frequently check-in: 59936cb094 user: rkeene tags: trunk
Changes
Modified tcc4tcl.c from [fc16e20c80] to [aa505b066c].
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
		index = TCC_OUTPUT_MEMORY;
	} else {
		if (Tcl_GetIndexFromObj(interp, objv[2], types, "type", 0, &index) != TCL_OK) {
			return TCL_ERROR;
		}
	}

	s = tcc_new();
	if (s == NULL) {
		return(TCL_ERROR);
	}

	s->tcc_lib_path = tcc_strdup(Tcl_GetString(objv[1]));

	tcc_set_error_func(s, interp, (void *)&Tcc4tclErrorFunc);

	ts = (void *) ckalloc(sizeof(*ts));
	ts->s = s;
    	ts->relocated = 0;

	/*printf("type: %d\n", index); */







|




<
<







248
249
250
251
252
253
254
255
256
257
258
259


260
261
262
263
264
265
266
		index = TCC_OUTPUT_MEMORY;
	} else {
		if (Tcl_GetIndexFromObj(interp, objv[2], types, "type", 0, &index) != TCL_OK) {
			return TCL_ERROR;
		}
	}

	s = tcc_new(Tcl_GetString(objv[1]));
	if (s == NULL) {
		return(TCL_ERROR);
	}



	tcc_set_error_func(s, interp, (void *)&Tcc4tclErrorFunc);

	ts = (void *) ckalloc(sizeof(*ts));
	ts->s = s;
    	ts->relocated = 0;

	/*printf("type: %d\n", index); */