Source position: tcl80.pp line 925
procedure Tcl_RegExpRange(
prog: pointer;
index: Integer;
var head: PChar;
var tail: PChar
);