{$mode objfpc}

procedure xx(var s:shortstring);
var dirbuf:array[0..1321] of widechar;
begin
  s:=dirbuf;
end;
begin
end.