blob: 62bf17a598eb8554aa2ec70dc2da587fb812b433 [file] [log] [blame]
package volatile1 is
type Command is (Nothing, Get);
type Data is
record
Time : Duration;
end record;
type Data_Array is array (Integer range <>) of Data;
type Command_Data (Kind : Command; Length : Integer) is
record
case Kind is
when Nothing =>
null;
when Get =>
Data : Data_Array (1 .. Length);
end case;
end record;
end;