Source position: tcl80.pp line 856
function Tcl_CreateAlias(
slaveInterp: PTcl_Interp;
srcCmd: PAnsiChar;
targetInterp: PTcl_Interp;
targetCmd: PAnsiChar;
argc: Integer;
argv: Tcl_Argv
):Integer;