fpc/tw10800.pp at pierre/fix-composite-parasyms - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 20:28:14 +02:00

Jonas Maebe 4d9445749c * fixed buffer overflow in delete() for widestrings (patch by

Martin Schreiber, #10800)

git-svn-id: trunk@10255 -

2008-02-09 11:47:14 +00:00

14 lines

283 B

ObjectPascal

Raw Permalink Blame History

 program widestringdelete;
 {$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
 {$ifdef mswindows}{$apptype console}{$endif}
 uses
  {$ifdef FPC}{$ifdef unix}cthreads,{$endif}{$endif}
  sysutils;
 var
  wstr1: widestring;
 begin
  setlength(wstr1,10240);
  delete(wstr1,1,10230);
 end.