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