c_src: update to have intern args

[nit.git] / c_src / math._nitni.c

diff --git a/c_src/math._nitni.c b/c_src/math._nitni.c
index e90b572..ba7f92f 100644 (file)
--- a/c_src/math._nitni.c
+++ b/c_src/math._nitni.c
@@ -3,11 +3,9 @@
 /* out/indirect function for math::Int::rand */
 val_t Int_rand___out( val_t recv )
 {
-bigint trans_recv;
 bigint orig_return;
 val_t trans_return;
-trans_recv = UNTAG_Int(recv);
-orig_return = kernel_Int_Int_rand_0( trans_recv );
+orig_return = kernel_Int_Int_rand_0( UNTAG_Int(recv) );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -15,13 +13,9 @@ return trans_return;
 /* out/indirect function for math::Int::bin_and */
 val_t Int_bin_and___out( val_t recv, val_t i )
 {
-bigint trans_recv;
-bigint trans___i;
 bigint orig_return;
 val_t trans_return;
-trans_recv = UNTAG_Int(recv);
-trans___i = UNTAG_Int(i);
-orig_return = kernel_Int_Int_binand_0( trans_recv, trans___i );
+orig_return = kernel_Int_Int_binand_0( UNTAG_Int(recv), UNTAG_Int(i) );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -29,13 +23,9 @@ return trans_return;
 /* out/indirect function for math::Int::bin_or */
 val_t Int_bin_or___out( val_t recv, val_t i )
 {
-bigint trans_recv;
-bigint trans___i;
 bigint orig_return;
 val_t trans_return;
-trans_recv = UNTAG_Int(recv);
-trans___i = UNTAG_Int(i);
-orig_return = kernel_Int_Int_binor_0( trans_recv, trans___i );
+orig_return = kernel_Int_Int_binor_0( UNTAG_Int(recv), UNTAG_Int(i) );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -43,13 +33,9 @@ return trans_return;
 /* out/indirect function for math::Int::bin_xor */
 val_t Int_bin_xor___out( val_t recv, val_t i )
 {
-bigint trans_recv;
-bigint trans___i;
 bigint orig_return;
 val_t trans_return;
-trans_recv = UNTAG_Int(recv);
-trans___i = UNTAG_Int(i);
-orig_return = kernel_Int_Int_binxor_0( trans_recv, trans___i );
+orig_return = kernel_Int_Int_binxor_0( UNTAG_Int(recv), UNTAG_Int(i) );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -57,9 +43,11 @@ return trans_return;
 /* out/indirect function for math::Float::sqrt */
 val_t Float_sqrt___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_sqrt_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_sqrt_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -67,9 +55,11 @@ return trans_return;
 /* out/indirect function for math::Float::cos */
 val_t Float_cos___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_cos_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_cos_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -77,9 +67,11 @@ return trans_return;
 /* out/indirect function for math::Float::sin */
 val_t Float_sin___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_sin_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_sin_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -87,9 +79,11 @@ return trans_return;
 /* out/indirect function for math::Float::tan */
 val_t Float_tan___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_tan_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_tan_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -97,9 +91,11 @@ return trans_return;
 /* out/indirect function for math::Float::acos */
 val_t Float_acos___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_acos_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_acos_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -107,9 +103,11 @@ return trans_return;
 /* out/indirect function for math::Float::asin */
 val_t Float_asin___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_asin_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_asin_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -117,9 +115,11 @@ return trans_return;
 /* out/indirect function for math::Float::atan */
 val_t Float_atan___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_atan_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_atan_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -127,9 +127,13 @@ return trans_return;
 /* out/indirect function for math::Float::pow */
 val_t Float_pow___out( val_t recv, val_t e )
 {
+float trans_recv;
+float trans___e;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_pow_1( UNBOX_Float(recv), UNBOX_Float(e) );
+trans_recv = UNBOX_Float(recv);
+trans___e = UNBOX_Float(e);
+orig_return = kernel_Float_Float_pow_1( trans_recv, trans___e );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -137,9 +141,11 @@ return trans_return;
 /* out/indirect function for math::Float::log */
 val_t Float_log___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_log_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_log_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -147,9 +153,11 @@ return trans_return;
 /* out/indirect function for math::Float::exp */
 val_t Float_exp___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_exp_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_exp_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -157,9 +165,11 @@ return trans_return;
 /* out/indirect function for math::Float::rand */
 val_t Float_rand___out( val_t recv )
 {
+float trans_recv;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Float_Float_rand_0( UNBOX_Float(recv) );
+trans_recv = UNBOX_Float(recv);
+orig_return = kernel_Float_Float_rand_0( trans_recv );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -167,9 +177,13 @@ return trans_return;
 /* out/indirect function for math::Float::hypot_with */
 val_t Float_hypot_with___out( val_t recv, val_t b )
 {
+float trans_recv;
+float trans___b;
 float orig_return;
 val_t trans_return;
-orig_return = hypotf( UNBOX_Float(recv), UNBOX_Float(b) );
+trans_recv = UNBOX_Float(recv);
+trans___b = UNBOX_Float(b);
+orig_return = hypotf( trans_recv, trans___b );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -177,9 +191,13 @@ return trans_return;
 /* out/indirect function for math::Object::atan2 */
 val_t Object_atan2___out( val_t recv, val_t x, val_t y )
 {
+float trans___x;
+float trans___y;
 float orig_return;
 val_t trans_return;
-orig_return = kernel_Any_Any_atan2_2( NULL, UNBOX_Float(x), UNBOX_Float(y) );
+trans___x = UNBOX_Float(x);
+trans___y = UNBOX_Float(y);
+orig_return = kernel_Any_Any_atan2_2( NULL, trans___x, trans___y );
 trans_return = BOX_Float(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -197,9 +215,7 @@ return trans_return;
 /* out/indirect function for math::Object::srand_from */
 void Object_srand_from___out( val_t recv, val_t x )
 {
-bigint trans___x;
-trans___x = UNTAG_Int(x);
-kernel_Any_Any_srand_from_1( NULL, trans___x );
+kernel_Any_Any_srand_from_1( NULL, UNTAG_Int(x) );
 nitni_local_ref_clean(  );
 }
 /* out/indirect function for math::Object::srand */