Source position: compproc.inc line 112
procedure fpc_ansistr_append_char(
var S: AnsiString;
c: Char
);