Ada - 从异构列表中释放

Question

操StackOverflow，操OpenAI。

Answer 1

Element

和

Element'Class

是不同的类型， 并且您尝试使用不匹配的类型实例化

Unchecked_Deallocation

。 尝试用

Element'Class

来实例化：

procedure Free is new Ada.Unchecked_Deallocation(Element'Class, ElementPtr);