Source position: tcl80.pp line 867
function Tcl_SetCommandInfo(
interp: PTcl_Interp;
cmdName: PChar;
var info: Tcl_CmdInfo
):Integer;