build_all: Updates.

This commit is contained in:
Rod Kay
2024-06-22 20:32:47 +10:00
parent 0889c6c07c
commit d24de3e1f9
6 changed files with 33 additions and 30 deletions

View File

@@ -1,5 +1,7 @@
with
Interfaces.C.Pointers;
Interfaces.C.Pointers,
System;
package GL.safe
--
@@ -42,7 +44,7 @@ is
package GLvoid_Pointers is new C.Pointers (Index => C.size_t,
Element => GLvoid,
Element_Array => GLvoid_array,
Default_Terminator => 0);
Default_Terminator => system.null_Address);
subtype GLvoid_Pointer is GLvoid_Pointers.Pointer;

View File

@@ -1,22 +1,22 @@
-- This file is generated by SWIG. Please do not modify by hand.
--
with Interfaces.C;
use Interfaces.C;
with interfaces.C.Pointers;
with interfaces.C.Pointers,
System;
package box2d_c.Pointers is
package box2d_c.Pointers
is
use System;
-- Shape_Pointer
--
package C_Shape_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.Shape,
element_Array => box2d_c.Shape_Array,
default_Terminator => 0);
Element => box2d_c.Shape,
element_Array => box2d_c.Shape_Array,
default_Terminator => null_Address);
subtype Shape_Pointer is C_Shape_Pointers.Pointer;
@@ -29,9 +29,9 @@ subtype Shape_Pointer is C_Shape_Pointers.Pointer;
-- Object_Pointer
--
package C_Object_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.Object,
element_Array => box2d_c.Object_Array,
default_Terminator => 0);
Element => box2d_c.Object,
element_Array => box2d_c.Object_Array,
default_Terminator => null_Address);
subtype Object_Pointer is C_Object_Pointers.Pointer;
@@ -44,9 +44,9 @@ subtype Object_Pointer is C_Object_Pointers.Pointer;
-- Joint_Pointer
--
package C_Joint_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.Joint,
element_Array => box2d_c.Joint_Array,
default_Terminator => 0);
Element => box2d_c.Joint,
element_Array => box2d_c.Joint_Array,
default_Terminator => null_Address);
subtype Joint_Pointer is C_Joint_Pointers.Pointer;
@@ -59,9 +59,9 @@ subtype Joint_Pointer is C_Joint_Pointers.Pointer;
-- Space_Pointer
--
package C_Space_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.Space,
element_Array => box2d_c.Space_Array,
default_Terminator => 0);
Element => box2d_c.Space,
element_Array => box2d_c.Space_Array,
default_Terminator => null_Address);
subtype Space_Pointer is C_Space_Pointers.Pointer;
@@ -74,9 +74,9 @@ subtype Space_Pointer is C_Space_Pointers.Pointer;
-- b2Joint_Pointer
--
package C_b2Joint_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.b2Joint,
element_Array => box2d_c.b2Joint_Array,
default_Terminator => 0);
Element => box2d_c.b2Joint,
element_Array => box2d_c.b2Joint_Array,
default_Terminator => null_Address);
subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;