Source position: tcl80.pp line 924
function TclRegExec(
prog: pointer;
str: PAnsiChar;
start: PAnsiChar
):Integer;