paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* buffer overflow checking in ptccrt.KeyBufAdd

Browse Source 
git-svn-id: trunk@16141 -
This commit is contained in:
nickysn 2010-10-12 14:17:35 +00:00
parent ba6a4760e9
commit e7c4990780
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/graph/src/ptcgraph/ptccrt.pp
View File

@ -79,7 +79,10 @@ end;
procedure KeyBufAdd(Ch: Char); procedure KeyBufAdd(Ch: Char);
begin begin
{todo: overflow checking} { do nothing, if the buffer is full }
if ((KeyBufTail + 1) = KeyBufHead) or
((KeyBufTail = High(KeyBuffer)) and (KeyBufHead = Low(KeyBuffer))) then
exit;
KeyBuffer[KeyBufTail] := Ch; KeyBuffer[KeyBufTail] := Ch;
Inc(KeyBufTail); Inc(KeyBufTail);
if KeyBufTail > High(KeyBuffer) then if KeyBufTail > High(KeyBuffer) then