4 ms·
Would you mind sharing which bounded container you tried to instantiate and what the problem was?
by gusthoff 6y ago
Would you mind sharing which bounded container you tried to instantiate and what the problem was?
- MaxBarraclough 6y agoI wasn't able to instantiate any of them, I couldn't figure out the proper syntax. There are no examples anywhere that show how to used them.
- gusthoff 6y agoIs this the kind of example you were looking for? with Ada.Text_IO; use Ada.Text_IO; with Ada.Containers.Bounded_Vectors; procedure Main is package BV_Integer is new Ada.Containers.Bounded_Vectors (Index_Type => Positive, Element_Type => Integer); use BV_Integer; Vec_Max : constant := 10; Vec : Vector (Vec_Max); begin Put_Line ("Appending some numbers..."); for I in 1 .. Vec_Max loop Vec.Append (Integer (I)); end loop; Put_Line ("Appending another number..."); Vec.Append (Vec_Max + 1); -- this raises an exception. end Main;
- MaxBarraclough 6y agoYes, thanks. Perhaps I was just missing Vec : Vector (Vec_Max);. I'll give this a go on GNAT some time.