Differences From Artifact [13b34ad3ab]:

• File generic/tclGet.c — part of check-in [c2abe1efd0] at 2017-10-30 08:47:33 on branch no-wideint — Experimental branch meant to eliminate the "wideint" type, just merge it to a single "int" type. No effect on linux64 and similar systems, code simplification for Win64 and 32-bit system. No TIP yet, implementation ongoing. (user: jan.nijtmans size: 4056) [more...]

To Artifact [b5487cda23]:

• File generic/tclGet.c — part of check-in [29bc6e1422] at 2018-02-09 10:09:42 on branch core-8-branch — small code review: resolve conversion warnings (possible loss of data, signed/unsigned comparison) (user: sebres size: 4061) [more...]

138
139
140
141
142
143
144
145
146
147
148
149
150
151
152

    obj.typePtr = NULL;

    code = TclSetBooleanFromAny(interp, &obj);
    if (obj.refCount > 1) {
	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
    }
    if (code == TCL_OK) {
	*boolPtr = obj.internalRep.wideValue;
    }
    return code;
}

/*
 * Local Variables:
 * mode: c

|

138
139
140
141
142
143
144
145
146
147
148
149
150
151
152

    obj.typePtr = NULL;

    code = TclSetBooleanFromAny(interp, &obj);
    if (obj.refCount > 1) {
	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
    }
    if (code == TCL_OK) {
	*boolPtr = (int)obj.internalRep.wideValue;
    }
    return code;
}

/*
 * Local Variables:
 * mode: c