Buffer PO

[tonyg <tonythegair@gmail.com>]

I have a Fifo buffer in a protect object with a push / pop procedures and an is_empty function storing a gaggle of variant records.

I push just fine but when I come to collect my data with a pop, I have to assign it to a variable which is predeclared.

I cannot use a function as this cannot change the inside of a protected object.

Now I could use an extra buffer to contain the variant record discriminator but is there a better way?

I did think of adding a function to peek at the discriminator, but this could cause a problem as a push may change the record being viewed before my pop.