Source position: compproc.inc line 197
procedure fpc_Read_Text_PChar_As_Pointer(
var f: Text;
out s: PChar
);