45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
ts->s = NULL;
}
ckfree((void *) ts);
}
static int Tcc4tclHandleCmd ( ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[]){
unsigned long val;
void *val_p;
int index;
int res;
struct TclTCCState *ts;
TCCState *s;
Tcl_Obj *sym_addr;
static CONST char *options[] = {
|
|
|
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
ts->s = NULL;
}
ckfree((void *) ts);
}
static int Tcc4tclHandleCmd ( ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[]){
Tcl_WideInt val;
void *val_p;
int index;
int res;
struct TclTCCState *ts;
TCCState *s;
Tcl_Obj *sym_addr;
static CONST char *options[] = {
|
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
}
case TCC4TCL_ADD_SYMBOL:
if (objc != 4) {
Tcl_WrongNumArgs(interp, 2, objv, "symbol value");
return TCL_ERROR;
}
Tcl_GetLongFromObj(interp, objv[3], &val);
val_p = (void *) val;
tcc_add_symbol(s,Tcl_GetString(objv[2]), val_p);
return TCL_OK;
case TCC4TCL_COMMAND:
if (objc != 4) {
Tcl_WrongNumArgs(interp, 2, objv, "tclname cname");
|
|
>
>
>
|
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
}
case TCC4TCL_ADD_SYMBOL:
if (objc != 4) {
Tcl_WrongNumArgs(interp, 2, objv, "symbol value");
return TCL_ERROR;
}
if (Tcl_GetWideIntFromObj(interp, objv[3], &val) != TCL_OK) {
return TCL_ERROR;
}
val_p = (void *) val;
tcc_add_symbol(s,Tcl_GetString(objv[2]), val_p);
return TCL_OK;
case TCC4TCL_COMMAND:
if (objc != 4) {
Tcl_WrongNumArgs(interp, 2, objv, "tclname cname");
|