physics.box2d.source.thin: Regenerate thin binding with swig.

3-mid/physics/implement/box2d/source/thin/box2d_c-binding.ads

@@ -157,7 +157,8 @@ collide_Connected : in swig.bool) return box2d_c.Pointers.Joint_Pointer;
 
    procedure b2d_free_hinge_Joint (Self : in box2d_c.Pointers.Joint_Pointer);
 
-   function  b2d_new_space_hinge_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;
+   function  b2d_new_space_hinge_Joint (in_Space : in box2d_c.Pointers.Space_Pointer;
+                                        Object_A : in box2d_c.Pointers.Object_Pointer;
                                         Frame_A : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
 
    function  b2d_new_DoF6_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;

3-mid/physics/implement/box2d/source/thin/box2d_c-pointers.ads

@@ -1,13 +1,14 @@
 -- This file is generated by SWIG. Please do not modify by hand.
 --
-with interfaces.C.Pointers,
+with Interfaces.C;
-     System;
+
+use  Interfaces.C;
+with interfaces.C.Pointers;
+with System;
 
 
 
-package box2d_c.Pointers
+package box2d_c.Pointers is
-is
-   use System;
 
 
 
@@ -16,7 +17,7 @@ is
    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 => null_Address);
+                                                          default_Terminator => System.null_Address);
 
    subtype Shape_Pointer is C_Shape_Pointers.Pointer;
 
@@ -31,7 +32,7 @@ subtype Shape_Pointer is C_Shape_Pointers.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 => null_Address);
+                                                           default_Terminator => System.null_Address);
 
    subtype Object_Pointer is C_Object_Pointers.Pointer;
 
@@ -46,7 +47,7 @@ subtype Object_Pointer is C_Object_Pointers.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 => null_Address);
+                                                          default_Terminator => System.null_Address);
 
    subtype Joint_Pointer is C_Joint_Pointers.Pointer;
 
@@ -61,7 +62,7 @@ subtype Joint_Pointer is C_Joint_Pointers.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 => null_Address);
+                                                          default_Terminator => System.null_Address);
 
    subtype Space_Pointer is C_Space_Pointers.Pointer;
 
@@ -76,7 +77,7 @@ subtype Space_Pointer is C_Space_Pointers.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 => null_Address);
+                                                            default_Terminator => System.null_Address);
 
    subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;
 
@@ -86,11 +87,4 @@ subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;
 
 
 
-
-
-
-
-
-
-
 end box2d_c.Pointers;

3-mid/physics/implement/box2d/source/thin/box2d_c_wrap.cxx

@@ -1329,18 +1329,24 @@ DllExport void * SWIGSTDCALL Ada_b2d_new_space_hinge_Joint (
   ,
 
   void * a_arg2
+  ,
+
+  void * a_arg3
   )
 {
   void * jresult ;
-  Object *arg1 = (Object *) 0 ;
+  Space *arg1 = (Space *) 0 ;
-  Matrix_4x4 *arg2 = (Matrix_4x4 *) 0 ;
+  Object *arg2 = (Object *) 0 ;
+  Matrix_4x4 *arg3 = (Matrix_4x4 *) 0 ;
   Joint *result = 0 ;
 
-  arg1 = (Object *)a_arg1; 
+  arg1 = (Space *)a_arg1;
 
-  arg2 = (Matrix_4x4 *)a_arg2; 
+  arg2 = (Object *)a_arg2;
 
-  result = (Joint *)b2d_new_space_hinge_Joint(arg1,arg2);
+  arg3 = (Matrix_4x4 *)a_arg3;
+
+  result = (Joint *)b2d_new_space_hinge_Joint(arg1,arg2,arg3);
   jresult = (void *) result;
 
 
@@ -1527,26 +1533,26 @@ DllExport void* SWIGSTDCALL Ada_b2d_Joint_user_Data (
 }
 
 
-/* RAK
-DllExport void SWIGSTDCALL Ada_b2d_Joint_user_Data_is (
-  void * a_arg1
-  ,
 
-  void* a_arg2
+// DllExport void SWIGSTDCALL Ada_b2d_Joint_user_Data_is (
-  )
+//   void * a_arg1
-{
+//   ,
-  Joint *arg1 = (Joint *) 0 ;
+//
-  void *arg2 = (void *) 0 ;
+//   void* a_arg2
+//   )
+// {
+//   Joint *arg1 = (Joint *) 0 ;
+//   void *arg2 = (void *) 0 ;
+//
+//   arg1 = (Joint *)a_arg1;
+//
+//   arg2 = (void *)a_arg2;
+//
+//   b2d_Joint_user_Data_is(arg1,arg2);
+//
+//
+// }
 
-  arg1 = (Joint *)a_arg1; 
-  
-  arg2 = (void *)a_arg2; 
-  
-  b2d_Joint_user_Data_is(arg1,arg2);
-  
-  
-}
-*/
 
 
 DllExport void * SWIGSTDCALL Ada_b2d_Joint_Object_A (

4-high/gel/source/joint/gel-hinge_joint.adb

@@ -225,6 +225,8 @@ is
       Self.Softness          := Softness;
       Self.bias_Factor       := bias_Factor;
       Self.relaxation_Factor := relaxation_Factor;
+
+      Self.apply_Limits;
    end Limits_are;