3 lines
189 B
Ada
3 lines
189 B
Ada
|
type Response is (Yes, No); -- Definition of an enumeration type with two values
|
||
|
|
for Response'Size use 1; -- Setting the size of Response to 1 bit, rather than the default single byte size
|