Dispose
=============================
WITH Unchecked_Deallocation;
PROCEDURE Dispose IS NEW Unchecked_Deallocation (
Object => ListNode,
Name  => NodePtr);
Dispose
=============================
WITH Unchecked_Deallocation;
PROCEDURE Dispose IS NEW Unchecked_Deallocation (
Object => ListNode,
Name  => NodePtr);