paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 18:40:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed 64bit TDynamicDataQueue

Browse Source 
git-svn-id: trunk@8848 -
This commit is contained in:
mattias 2006-02-28 16:01:04 +00:00
parent 8aac77b3c1
commit 0fc995f2cd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dynqueue.pas
View File

@ -36,7 +36,7 @@ type
A queue for arbitrary data. That means first in first out.
Push: put data in the queue
Pop: fetch data from the queue (data is deleted from queue)
Pop: fetch data from the queue (data is removed from queue)
Top: read data in the queue (data remains in the queue)
This queue maintains internally a ring queue for pointers to data chunks of
@ -49,7 +49,7 @@ type
FTopIndex: integer; // first item in FItems
FLastIndex: integer; // last item in FItems
FMaximumBlockSize: integer;
FMinimumBlockSize: PtrInt;
FMinimumBlockSize: integer;
FSize: int64;
FTopItemSpace: integer; // space in top item
FLastItemSpace: integer; // remaining space in last item