Source position: compproc.inc line 113
procedure fpc_ansistr_append_shortstring(
var S: AnsiString;
Str: ShortString
);