diff options
Diffstat (limited to 'gcc/ada/a-fihema.ads')
| -rw-r--r-- | gcc/ada/a-fihema.ads | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/a-fihema.ads b/gcc/ada/a-fihema.ads index 7e492ad..41659d6 100644 --- a/gcc/ada/a-fihema.ads +++ b/gcc/ada/a-fihema.ads @@ -118,9 +118,10 @@ private type Node is record -- This should really be limited, but we can see the full view of - -- Limited_Controlled, which NOT limited. If it were limited, we could - -- default initialize here, and get rid of Initialize for - -- Finalization_Collection. + -- Limited_Controlled, which is NOT limited. Note that default + -- initialization does not happen for this type (these pointers will not + -- be automatically set to null), because of the games we're playing + -- with address arithmetic. Prev : Node_Ptr; Next : Node_Ptr; |