Message ID | 20110829140443.GA24529@adacore.com |
---|---|
State | New |
Headers | show |
Index: a-chtgbo.adb =================================================================== --- a-chtgbo.adb (revision 178228) +++ a-chtgbo.adb (working copy) @@ -350,7 +350,7 @@ Node := HT.Buckets (Indx); while Node /= 0 loop Process (Node); - Node := Next (HT, Node); + Node := Next (HT.Nodes (Node)); end loop; end loop; end Generic_Iteration;