RosettaCodeData/Task/Variable-size-Get/Ada/variable-size-get.ada

mirror of https://github.com/acmeism/RosettaCodeData.git
Int_Bits : constant Integer := Integer'size;
Whole_Bytes : constant Integer := Int_Bits / Storage_Unit; -- Storage_Unit is the number of bits per storage element
	`Int_Bits : constant Integer := Integer'size;`
	`Whole_Bytes : constant Integer := Int_Bits / Storage_Unit; -- Storage_Unit is the number of bits per storage element`