Add initial prototype.
This commit is contained in:
15
3-mid/physics/interface/source/physics-space.adb
Normal file
15
3-mid/physics/interface/source/physics-space.adb
Normal file
@@ -0,0 +1,15 @@
|
||||
with
|
||||
ada.unchecked_Deallocation;
|
||||
|
||||
package body physics.Space
|
||||
is
|
||||
|
||||
procedure free (Self : in out View)
|
||||
is
|
||||
procedure deallocate is new ada.unchecked_Deallocation (Item'Class, View);
|
||||
begin
|
||||
Self.destruct;
|
||||
deallocate (Self);
|
||||
end free;
|
||||
|
||||
end physics.Space;
|
||||
Reference in New Issue
Block a user