Source position: GPCStrings.pas line 320
procedure Str63IntoStr31(
const s: Str63;
var theResult: Str31
);