diff options
| -rw-r--r-- | gcc/ada/nlists.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/nlists.ads b/gcc/ada/nlists.ads index 169c8e5..c006131 100644 --- a/gcc/ada/nlists.ads +++ b/gcc/ada/nlists.ads @@ -146,9 +146,9 @@ package Nlists is -- No_List. (No_List is not considered to be the same as an empty list). function List_Length (List : List_Id) return Nat; - -- Returns number of items in the given list. It is an error to call - -- this function with No_List (No_List is not considered to be the same - -- as an empty list). + -- Returns number of items in the given list. If called on No_List it + -- returns 0, even though No_List is not considered to be the same as an + -- empty list. function Next (Node : Node_Or_Entity_Id) return Node_Or_Entity_Id; pragma Inline (Next); |