paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-19 19:16:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* avoid stack corruption in CharStr if count > 255

Browse Source
This commit is contained in:
pierre 2002-03-20 13:48:31 +00:00
parent 35b958e6a2
commit 47b7e5c5b6
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/wutils.pas
View File

@ -340,7 +340,9 @@ begin
begin
CharStr:='';
exit;
end;
end
else if Count>255 then
Count:=255;
{$ifdef FPC}
CharStr[0]:=chr(Count);
FillChar(CharStr[1],Count,C);
@ -1234,7 +1236,10 @@ BEGIN
END.
{
$Log$
Revision 1.5 2001-11-18 20:18:54 peter
Revision 1.6 2002-03-20 13:48:31 pierre
* avoid stack corruption in CharStr if count > 255
Revision 1.5 2001/11/18 20:18:54 peter
* use cp_value_equal_const instead of cp_all
Revision 1.4 2001/09/18 15:36:58 pierre