Source position: tcl80.pp line 641
type TTclPackageInitProc = function(
interp: PTcl_Interp
):Integer;