in both bc-containers-list-single.adb and bc-containers-lists-double.adb, in
procedure Purge(L : in out List; From : Positive; Count : Positive), the code
if Shared_Node_foound then
Ptr.Next := null;
is incorrect. If the assignment to Ptr.Next is executed then other lists that share items with L will be damaged.
Log in to post a comment.