Commit ead46789 by Claire Dross Committed by Pierre-Marie de Rodat

[Ada] Functional_Vectors: remove default value for max size

2018-10-09  Claire Dross  <dross@adacore.com>

gcc/ada/

	* libgnat/a-cfinve.ads: Remove default value for
	Max_Size_In_Storage_Elements as it was not supported in SPARK.

From-SVN: r264969
parent 8f0303e7
2018-10-09 Claire Dross <dross@adacore.com>
* libgnat/a-cfinve.ads: Remove default value for
Max_Size_In_Storage_Elements as it was not supported in SPARK.
2018-10-09 Ed Schonberg <schonberg@adacore.com> 2018-10-09 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Add_Call_By_Copy_Node, * exp_ch6.adb (Add_Call_By_Copy_Node,
......
...@@ -38,8 +38,7 @@ with Ada.Containers.Functional_Vectors; ...@@ -38,8 +38,7 @@ with Ada.Containers.Functional_Vectors;
generic generic
type Index_Type is range <>; type Index_Type is range <>;
type Element_Type (<>) is private; type Element_Type (<>) is private;
Max_Size_In_Storage_Elements : Natural := Max_Size_In_Storage_Elements : Natural;
Element_Type'Max_Size_In_Storage_Elements;
-- Maximum size of Vector elements in bytes. This has the same meaning as -- Maximum size of Vector elements in bytes. This has the same meaning as
-- in Ada.Containers.Bounded_Holders, with the same restrictions. Note that -- in Ada.Containers.Bounded_Holders, with the same restrictions. Note that
-- setting this too small can lead to erroneous execution; see comments in -- setting this too small can lead to erroneous execution; see comments in
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment