diff options
Diffstat (limited to 'queue.ads')
-rw-r--r-- | queue.ads | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/queue.ads b/queue.ads deleted file mode 100644 index fdfa484..0000000 --- a/queue.ads +++ /dev/null @@ -1,18 +0,0 @@ -generic - type Item is private; -package Queue is - INIT_CAPACITY: constant Integer := 256; - - type Items_Array is array (Natural range <>) of Item; - type Items_Array_Access is access Items_Array; - - type Queue is record - Items: Items_Array_Access := null; - Start: Integer := 0; - Count: Integer := 0; - end record; - - procedure Grow(Q: in out Queue); - procedure Enqueue(Q: in out Queue; X: Item); - function Dequeue(Q: in out Queue; X: out Item) return Boolean; -end Queue; |