Differences From Artifact [fc16e20c80]:

• File tcc4tcl.c — part of check-in [78d29c05b7] at 2014-05-03 20:31:22 on branch trunk — Renamed everything to the name of the package (tcc4tcl) (user: rkeene, size: 9128) [annotate] [blame] [check-ins using]
• File tcltcc.c — part of check-in [ff7febee23] at 2014-05-02 16:37:50 on branch trunk — Corrected macro check for Tcl Stubs and renamed functions (user: rkeene, size: 9128) [annotate] [blame] [check-ins using]

To Artifact [aa505b066c]:

• File tcc4tcl.c — part of check-in [9e75cf906d] at 2014-05-04 04:26:45 on branch trunk — Updated to set tcc_lib_path sooner, needed for setting library_paths correctly (user: rkeene, size: 9094) [annotate] [blame] [check-ins using] [more...]

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); */