Source position: compproc.inc line 171
procedure fpc_Write_Text_PChar_As_Pointer(
Len: LongInt;
var f: Text;
p: PChar
);