mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
28 lines
412 B
ObjectPascal
28 lines
412 B
ObjectPascal
unit uw40634c;
|
|
{$mode ObjFPC}{$H+}
|
|
interface
|
|
|
|
type
|
|
|
|
generic TLazFifoQueue<T> = class
|
|
private
|
|
FList: array of T;
|
|
FQueueSize: integer;
|
|
//protected
|
|
// function PushItem(const AItem: TFpThreadWorkerItem): Boolean; virtual;
|
|
end;
|
|
|
|
{ TLazThreadedQueue }
|
|
|
|
generic TLazThreadedQueue<T> = class
|
|
protected
|
|
type
|
|
TLazTypedFifoQueue = specialize TLazFifoQueue<T>;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
end.
|
|
|