admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

complex.c: use mrb_num_div_flo to avoid copying function.

Browse Source 
This change relies that `mrb_num_div_flo` does not use `mrb` inside.
This commit is contained in:
Yukihiro "Matz" Matsumoto
2021-03-24 13:56:08 +09:00
parent 092bba64e7
commit 5a4958af26
1 changed files with 6 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mrbgems/mruby-complex/src/complex.c
+6 -17
View File
@@ -235,19 +235,10 @@ complex_mul(mrb_state *mrb, mrb_value x)
}
}
mrb_float
div_flo(mrb_float x, mrb_float y)
{
if (y != 0.0) {
return x / y;
}
else if (x == 0.0) {
return NAN;
}
else {
return x * (signbit(y) ? -1.0 : 1.0) * INFINITY;
}
}
#ifndef MRB_NO_FLOAT
mrb_float mrb_num_div_flo(mrb_state*, mrb_float, mrb_float);
#define div_flo(x,y) mrb_num_div_flo(NULL, x, y)
#endif
/* Arithmetic on (significand, exponent) pairs avoids premature overflow in
complex division */
@@ -341,8 +332,6 @@ complex_div(mrb_state *mrb, mrb_value self)
return complex_new(mrb, F(ldexp)(zr.s, zr.x), F(ldexp)(zi.s, zi.x));
}
mrb_float mrb_num_div_flo(mrb_state*, mrb_float, mrb_float);
#ifndef MRB_USE_RATIONAL
mrb_int mrb_num_div_int(mrb_state *mrb, mrb_int x, mrb_int y);
@@ -365,7 +354,7 @@ int_div(mrb_state *mrb, mrb_value x)
x = complex_new(mrb, (mrb_float)a, 0);
return mrb_funcall_id(mrb, x, MRB_OPSYM(div), 1, y);
default:
return mrb_float_value(mrb, div_flo(mrb, (mrb_float)a, mrb_to_flo(mrb, y)));
return mrb_float_value(mrb, div_flo((mrb_float)a, mrb_to_flo(mrb, y)));
}
}
@@ -385,7 +374,7 @@ int_quo(mrb_state *mrb, mrb_value x)
x = complex_new(mrb, (mrb_float)a, 0);
return mrb_funcall_id(mrb, x, MRB_OPSYM(div), 1, y);
default:
return mrb_float_value(mrb, mrb_num_div_flo(mrb, (mrb_float)a, mrb_to_flo(mrb, y)));
return mrb_float_value(mrb, div_flo((mrb_float)a, mrb_to_flo(mrb, y)));
}
}
#endif