diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-09-10 02:51:06 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-09-10 02:51:06 +0200 |
| commit | 06b931fa60f5038b2ece5cf8257b07e3925d8ae8 (patch) | |
| tree | 658c5d5904e1a5e8b5d465e82c3dc7aa6125813e /src/lists.ads | |
| parent | 409a39f4b2afa0f527ee4cb2732bef719ce5a5b9 (diff) | |
| download | ghdl-06b931fa60f5038b2ece5cf8257b07e3925d8ae8.tar.gz ghdl-06b931fa60f5038b2ece5cf8257b07e3925d8ae8.tar.bz2 ghdl-06b931fa60f5038b2ece5cf8257b07e3925d8ae8.zip | |
lists.ads: add comments.
Diffstat (limited to 'src/lists.ads')
| -rw-r--r-- | src/lists.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lists.ads b/src/lists.ads index efb7a21ea..bf9512a73 100644 --- a/src/lists.ads +++ b/src/lists.ads @@ -72,12 +72,13 @@ package Lists is -- Must be used to free the memory used by the lists. procedure Initialize; - -- Append ELEMENT to the list. + -- Append ELEMENT to the list. It's an O(1) operation. procedure Append_Element (List : List_Type; Element : Node_Type); -- Return the first element of the list. function Get_First_Element (List : List_Type) return Node_Type; + -- Append EL if not already in LIST. It's an O(n) operation. procedure Add_Element (List : List_Type; El : Node_Type); -- Return the number of elements in the list. |