2014-03-26 14:28:41 +00:00
|
|
|
with H2.Scheme;
|
|
|
|
|
|
|
|
|
|
package H2.Slim is
|
|
|
|
|
|
2014-05-30 03:15:40 +00:00
|
|
|
subtype Character is Standard.Character;
|
|
|
|
|
type String is array(System_Index range<>) of Character;
|
|
|
|
|
package Scheme is new H2.Scheme (Character);
|
2014-03-26 14:28:41 +00:00
|
|
|
|
2014-06-17 15:23:35 +00:00
|
|
|
pragma Assert (Character'Size = System_Byte'Size);
|
2014-03-26 14:28:41 +00:00
|
|
|
end H2.Slim;
|
