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