Create a gist now

Instantly share code, notes, and snippets.

anonymous /gist:4070104
Created Nov 14, 2012

What would you like to do?
Linked Strings declaration
type header;
type string_node;
type Lstring is access header;
type str_link is access string_node;
type header is record
length : natural;
list : str_link;
end record;
string_size : constant := 6;
subtype stringlet is string(1 .. string_size);
type string_node is record
data : stringlet;
next: str_link;
end record;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment