mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
9 lines
286 B
Ada
9 lines
286 B
Ada
package equal1 is
|
|
type Basic_Connection_Status_T is (Connected, Temporary_Disconnected,
|
|
Disconnected);
|
|
for Basic_Connection_Status_T'Size use 8;
|
|
type Application_Connection_Status_T is (Connected, Disconnected);
|
|
for Application_Connection_Status_T'Size use 8;
|
|
end equal1;
|
|
|