return TCL_OK;
}
+int do_ulong_multiply(ClientData cd, Tcl_Interp *ip,
+ uint32_t a, uint32_t b, uint32_t *result) {
+ *result= a * b;
+ return TCL_OK;
+}
+
int do_ulong_subtract(ClientData cd, Tcl_Interp *ip,
uint32_t a, uint32_t b, uint32_t *result) {
*result= a - b;
static void ulong_t_ustr(Tcl_Obj *o) {
uint32_t val;
- char buf[11];
+ char buf[9];
val= *(const uint32_t*)&o->internalRep.longValue;