Diff

Differences From Artifact [fc16e20c80]:

To Artifact [aa505b066c]:


248
249
250
251
252
253
254
255

256
257
258
259
260
261
262
263
264
265
266
267
268
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();
	s = tcc_new(Tcl_GetString(objv[1]));
	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); */