Check-in [6deb0e2500]
Tcl 2014 Conference, Portland/OR, US, Nov 10-14
Send your abstracts to tclconference@googlegroups.com by Sep 8.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Updated to get pointers from Tcl using Tcl_GetWideIntFromObj()
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:6deb0e2500e0e48d009bff3e053a285380f73ded
User & Date: rkeene 2014-06-22 17:31:30
Context
2014-06-22
18:05
Updated to process string through expr(wide()) to format them correctly Leaf check-in: fc293f04c4 user: rkeene tags: trunk
17:31
Updated to get pointers from Tcl using Tcl_GetWideIntFromObj() check-in: 6deb0e2500 user: rkeene tags: trunk
2014-06-21
21:44
Updated to use "source" instead of "." to source a file, for really old shells check-in: 8615f936d3 user: rkeene tags: trunk
Changes

Changes to tcc4tcl.c.

45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
...
119
120
121
122
123
124
125
126



127
128
129
130
131
132
133
		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[] = {
................................................................................
            }
        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");







|







 







|
>
>
>







45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
...
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
		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[] = {
................................................................................
            }
        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");