static int r_set_allowed()

in tcl_cmds.c [1024:1031]

• 7 lines of code
• 2 McCabe index (conditional complexity)

static int r_set_allowed(int objc, Tcl_Obj *CONST objv[])
{
#if TCL_MAJOR_VERSION > 7 && TCL_MINOR_VERSION > 3
	Tcl_GetWideIntFromObj(interp, objv[2], &(_r->allowed));
#endif

	return TCL_OK;
}