Source position: systemh.inc line 1300
procedure fpc_setstring_shortstr(
out S: Shortstring;
Buf: PAnsiChar;
Len: SizeInt
);