| line |
true |
false |
branch |
|
28
|
0 |
2 |
if(x < 1)croak("1st arg (precision) to d_set_prec must be at least 1"); |
|
37
|
34 |
28 |
if(x == x) return 0; |
|
42
|
0 |
26 |
if(x == 0) return 0; |
|
43
|
8 |
18 |
if(_is_nan(x)) return 0; |
|
44
|
10 |
8 |
if(x / x == x / x) return 0; |
|
45
|
4 |
4 |
if(x < 0) return -1; |
|
70
|
0 |
72 |
if(pc == NULL) croak("Failed to allocate memory in create_c function"); |
|
87
|
0 |
76 |
if(SvUOK(d1)) { |
|
91
|
36 |
40 |
if(SvIOK(d1)) { |
|
95
|
28 |
12 |
if(SvNOK(d1)) { |
|
99
|
12 |
0 |
if(SvPOK(d1)) { |
|
100
|
1 |
11 |
if(!looks_like_number(d1)) nnum++; |
|
101
|
12 |
0 |
_d1 = strtod(SvPV_nolen(d1), NULL); |
|
110
|
0 |
76 |
if(SvUOK(d2)) { |
|
114
|
31 |
45 |
if(SvIOK(d2)) { |
|
118
|
34 |
11 |
if(SvNOK(d2)) { |
|
122
|
11 |
0 |
if(SvPOK(d2)) { |
|
123
|
1 |
10 |
if(!looks_like_number(d2)) nnum++; |
|
124
|
11 |
0 |
_d2 = strtod(SvPV_nolen(d2), NULL) ; |
|
140
|
1 |
3 |
if(SvUOK(d1)) { |
|
144
|
0 |
3 |
if(SvIOK(d1)) { |
|
148
|
2 |
1 |
if(SvNOK(d1)) { |
|
152
|
1 |
0 |
if(SvPOK(d1)) { |
|
153
|
0 |
1 |
if(!looks_like_number(d1)) nnum++; |
|
154
|
1 |
0 |
_d1 = strtod(SvPV_nolen(d1), NULL) ; |
|
169
|
0 |
4 |
if(SvUOK(d2)) { |
|
173
|
3 |
1 |
if(SvIOK(d2)) { |
|
177
|
0 |
1 |
if(SvNOK(d2)) { |
|
181
|
1 |
0 |
if(SvPOK(d2)) { |
|
182
|
0 |
1 |
if(!looks_like_number(d2)) nnum++; |
|
183
|
1 |
0 |
_d2 = strtod(SvPV_nolen(d2), NULL) ; |
|
203
|
1 |
0 |
(double)SvNV(op2); |
|
208
|
1 |
0 |
(double)SvIV(op2); |
|
213
|
0 |
1 |
(double)SvUV(op2); |
|
218
|
1 |
0 |
strtod(SvPV_nolen(op2), NULL); |
|
228
|
1 |
0 |
(double)SvNV(op2); |
|
233
|
1 |
0 |
(double)SvIV(op2); |
|
238
|
0 |
1 |
(double)SvUV(op2); |
|
243
|
1 |
0 |
strtod(SvPV_nolen(op2), NULL); |
|
253
|
1 |
0 |
(double)SvNV(op2); |
|
258
|
1 |
0 |
(double)SvIV(op2); |
|
263
|
0 |
1 |
(double)SvUV(op2); |
|
268
|
1 |
0 |
strtod(SvPV_nolen(op2), NULL); |
|
278
|
1 |
0 |
(double)SvNV(op2); |
|
283
|
1 |
0 |
(double)SvIV(op2); |
|
288
|
0 |
1 |
(double)SvUV(op2); |
|
293
|
1 |
0 |
strtod(SvPV_nolen(op2), NULL); |
|
392
|
0 |
2 |
if(creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
|
0 |
0 |
if(creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
400
|
0 |
4 |
if(creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
|
0 |
0 |
if(creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
406
|
1 |
40 |
if(SvUOK(b)) { |
|
407
|
1 |
0 |
if((double)SvUVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if((double)SvUVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
411
|
4 |
36 |
if(SvIOK(b)) { |
|
412
|
4 |
0 |
if((double)SvIVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
4 |
0 |
if((double)SvIVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
416
|
0 |
36 |
if(SvNOK(b)) { |
|
417
|
0 |
0 |
if((double)SvNVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((double)SvNVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
422
|
2 |
34 |
if(SvPOK(b)) { |
|
423
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
424
|
2 |
0 |
if(strtod(SvPV_nolen(b), NULL) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
1 |
if(strtod(SvPV_nolen(b), NULL) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if(strtod(SvPV_nolen(b), NULL) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
429
|
34 |
0 |
if(sv_isobject(b)) { |
|
430
|
34 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
34 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
34 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
34 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
34 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
431
|
34 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
432
|
34 |
0 |
if(creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
|
34 |
0 |
if(creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
443
|
0 |
5 |
if(SvUOK(b)) { |
|
444
|
0 |
0 |
if((double)SvUVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((double)SvUVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
448
|
0 |
5 |
if(SvIOK(b)) { |
|
449
|
0 |
0 |
if((double)SvIVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((double)SvIVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
453
|
0 |
5 |
if(SvNOK(b)) { |
|
454
|
0 |
0 |
if((double)SvNVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((double)SvNVX(b) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
458
|
2 |
3 |
if(SvPOK(b)) { |
|
459
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
460
|
2 |
0 |
if(strtod(SvPV_nolen(b), NULL) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
1 |
if(strtod(SvPV_nolen(b), NULL) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if(strtod(SvPV_nolen(b), NULL) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
464
|
3 |
0 |
if(sv_isobject(b)) { |
|
465
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
3 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
3 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
466
|
3 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
467
|
0 |
3 |
if(creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
|
0 |
0 |
if(creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creal(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
483
|
0 |
17 |
if(pc == NULL) croak("Failed to allocate memory in _overload_pow function"); |
|
491
|
0 |
17 |
if(SvUOK(b)) { |
|
494
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
502
|
9 |
8 |
if(SvIOK(b)) { |
|
505
|
0 |
9 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
9 |
0 |
if(SWITCH_ARGS) { |
|
|
9 |
0 |
if(SWITCH_ARGS) { |
|
|
9 |
0 |
if(SWITCH_ARGS) { |
|
|
3 |
6 |
if(SWITCH_ARGS) { |
|
|
3 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
3 |
6 |
if(SWITCH_ARGS) { |
|
513
|
3 |
5 |
if(SvNOK(b)) { |
|
516
|
0 |
3 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
3 |
0 |
if(SWITCH_ARGS) { |
|
|
3 |
0 |
if(SWITCH_ARGS) { |
|
|
3 |
0 |
if(SWITCH_ARGS) { |
|
|
1 |
2 |
if(SWITCH_ARGS) { |
|
|
1 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
1 |
2 |
if(SWITCH_ARGS) { |
|
524
|
2 |
3 |
if(SvPOK(b)) { |
|
525
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
526
|
2 |
0 |
__real__ t = strtod(SvPV_nolen(b), NULL); |
|
528
|
0 |
2 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
2 |
0 |
if(SWITCH_ARGS) { |
|
|
2 |
0 |
if(SWITCH_ARGS) { |
|
|
2 |
0 |
if(SWITCH_ARGS) { |
|
|
1 |
1 |
if(SWITCH_ARGS) { |
|
|
1 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
1 |
1 |
if(SWITCH_ARGS) { |
|
535
|
3 |
0 |
else if(sv_isobject(b)) { |
|
536
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
3 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
3 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
537
|
3 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
550
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_mul function"); |
|
558
|
0 |
5 |
if(SvUOK(b)) { |
|
563
|
2 |
3 |
if(SvIOK(b)) { |
|
568
|
1 |
2 |
if(SvNOK(b)) { |
|
572
|
1 |
1 |
if(SvPOK(b)) { |
|
573
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
574
|
1 |
0 |
*pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) * strtod(SvPV_nolen(b), NULL); |
|
577
|
1 |
0 |
if(sv_isobject(b)) { |
|
578
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
579
|
1 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
593
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_add function"); |
|
601
|
0 |
5 |
if(SvUOK(b)) { |
|
606
|
2 |
3 |
if(SvIOK(b)) { |
|
611
|
1 |
2 |
if(SvNOK(b)) { |
|
615
|
1 |
1 |
if(SvPOK(b)) { |
|
616
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
617
|
1 |
0 |
*pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) + strtod(SvPV_nolen(b), NULL); |
|
620
|
1 |
0 |
if(sv_isobject(b)) { |
|
621
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
622
|
1 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
636
|
0 |
9 |
if(pc == NULL) croak("Failed to allocate memory in _overload_div function"); |
|
644
|
0 |
9 |
if(SvUOK(b)) { |
|
645
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
650
|
4 |
5 |
if(SvIOK(b)) { |
|
651
|
0 |
4 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
656
|
1 |
4 |
if(SvNOK(b)) { |
|
657
|
0 |
1 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
661
|
2 |
2 |
if(SvPOK(b)) { |
|
662
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
663
|
0 |
2 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
664
|
1 |
0 |
else *pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) / strtod(SvPV_nolen(b), NULL); |
|
667
|
2 |
0 |
if(sv_isobject(b)) { |
|
668
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
669
|
2 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
683
|
0 |
8 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sub function"); |
|
691
|
0 |
8 |
if(SvUOK(b)) { |
|
692
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
697
|
4 |
4 |
if(SvIOK(b)) { |
|
698
|
0 |
4 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
703
|
1 |
3 |
if(SvNOK(b)) { |
|
704
|
0 |
1 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
708
|
2 |
1 |
if(SvPOK(b)) { |
|
709
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
710
|
0 |
2 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtod(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
711
|
1 |
0 |
else *pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) - strtod(SvPV_nolen(b), NULL); |
|
714
|
1 |
0 |
if(sv_isobject(b)) { |
|
715
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
716
|
1 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
730
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sqrt function"); |
|
746
|
0 |
4 |
if(SvUOK(b)) { |
|
752
|
3 |
1 |
if(SvIOK(b)) { |
|
758
|
1 |
0 |
if(SvNOK(b)) { |
|
764
|
0 |
0 |
if(SvPOK(b)) { |
|
765
|
0 |
0 |
if(!looks_like_number(b)) nnum++; |
|
766
|
0 |
0 |
__real__ t = strtod(SvPV_nolen(b), NULL); |
|
771
|
0 |
0 |
if(sv_isobject(b)) { |
|
772
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
773
|
0 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
786
|
0 |
7 |
if(SvUOK(b)) { |
|
791
|
2 |
5 |
if(SvIOK(b)) { |
|
796
|
1 |
4 |
if(SvNOK(b)) { |
|
801
|
2 |
2 |
if(SvPOK(b)) { |
|
802
|
1 |
1 |
if(!looks_like_number(b)) nnum++; |
|
803
|
2 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) *= strtod(SvPV_nolen(b), NULL); |
|
807
|
2 |
0 |
if(sv_isobject(b)) { |
|
808
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
809
|
2 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
822
|
0 |
6 |
if(SvUOK(b)) { |
|
827
|
2 |
4 |
if(SvIOK(b)) { |
|
832
|
1 |
3 |
if(SvNOK(b)) { |
|
837
|
1 |
2 |
if(SvPOK(b)) { |
|
838
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
839
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) += strtod(SvPV_nolen(b), NULL); |
|
843
|
2 |
0 |
if(sv_isobject(b)) { |
|
844
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
845
|
2 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
858
|
0 |
5 |
if(SvUOK(b)) { |
|
863
|
2 |
3 |
if(SvIOK(b)) { |
|
868
|
1 |
2 |
if(SvNOK(b)) { |
|
873
|
1 |
1 |
if(SvPOK(b)) { |
|
874
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
875
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) /= strtod(SvPV_nolen(b), NULL); |
|
879
|
1 |
0 |
if(sv_isobject(b)) { |
|
880
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
881
|
1 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
894
|
0 |
5 |
if(SvUOK(b)) { |
|
899
|
2 |
3 |
if(SvIOK(b)) { |
|
904
|
1 |
2 |
if(SvNOK(b)) { |
|
909
|
1 |
1 |
if(SvPOK(b)) { |
|
910
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
911
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) -= strtod(SvPV_nolen(b), NULL); |
|
915
|
1 |
0 |
if(sv_isobject(b)) { |
|
916
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
917
|
1 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
933
|
0 |
4 |
if(pc == NULL) croak("Failed to allocate memory in _overload_copy function"); |
|
956
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_exp function"); |
|
973
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_log function"); |
|
990
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sin function"); |
|
1007
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_cos function"); |
|
1024
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_atan2 function"); |
|
1052
|
1 |
0 |
if(SvNV(a) == SvNV(a)) return newSVuv(0); |
|
|
1 |
0 |
if(SvNV(a) == SvNV(a)) return newSVuv(0); |
|
|
0 |
1 |
if(SvNV(a) == SvNV(a)) return newSVuv(0); |
|
1057
|
6 |
0 |
double t = (double)SvNV(a); |
|
1058
|
0 |
6 |
if(t == 0) return newSVuv(0); |
|
1059
|
0 |
6 |
if(t != t) return newSVuv(0); |
|
1060
|
0 |
6 |
if(t / t == t / t) return newSVuv(0); |
|
1061
|
0 |
6 |
if(t < 0) return newSViv(-1); |
|
1074
|
0 |
0 |
return newSVnv(SvNV(x)); |
|
1078
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
|
0 |
0 |
if(sv_isobject(b)) return newSVpv(HvNAME(SvSTASH(SvRV(b))), 0); |
|
1117
|
10 |
0 |
if(sv_isobject(ld)) { |
|
1118
|
10 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
10 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
10 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
10 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
10 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
1119
|
10 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
1120
|
0 |
10 |
EXTEND(SP, 2); |
|
1125
|
0 |
10 |
if(rbuffer == NULL) croak("Failed to allocate memory in d_to_str"); |
|
1128
|
8 |
2 |
if(query || _is_nan(__real__ t)) |
|
|
3 |
5 |
if(query || _is_nan(__real__ t)) |
|
1129
|
2 |
3 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1130
|
1 |
1 |
: "-inf" |
|
1138
|
8 |
2 |
if(query || _is_nan(__imag__ t)) |
|
|
3 |
5 |
if(query || _is_nan(__imag__ t)) |
|
1139
|
2 |
3 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1140
|
1 |
1 |
: "-inf" |
|
1161
|
0 |
3 |
if(decimal_prec < 1)croak("2nd arg (precision) to _d_to_strp must be at least 1"); |
|
1163
|
3 |
0 |
if(sv_isobject(ld)) { |
|
1164
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
3 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
3 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
3 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
1165
|
3 |
0 |
if(strEQ(h, "Math::Complex_C")) { |
|
1166
|
0 |
3 |
EXTEND(SP, 2); |
|
1170
|
0 |
3 |
if(rbuffer == NULL) croak("Failed to allocate memory in d_to_strp"); |
|
1173
|
1 |
2 |
if(query || _is_nan(__real__ t)) |
|
|
1 |
0 |
if(query || _is_nan(__real__ t)) |
|
1174
|
2 |
1 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1175
|
1 |
1 |
: "-inf" |
|
1183
|
1 |
2 |
if(query || _is_nan(__imag__ t)) |
|
|
1 |
0 |
if(query || _is_nan(__imag__ t)) |
|
1184
|
2 |
1 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1185
|
1 |
1 |
: "-inf" |
|
1221
|
0 |
16 |
if(SvUOK(a)) return newSVuv(1); |
|
1222
|
1 |
15 |
if(SvIOK(a)) return newSVuv(2); |
|
1223
|
15 |
0 |
if(SvNOK(a)) return newSVuv(3); |
|
1224
|
0 |
0 |
if(SvPOK(a)) return newSVuv(4); |
|
1225
|
0 |
0 |
if(sv_isobject(a)) { |
|
1226
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
1227
|
0 |
0 |
if(strEQ(h, "Math::Complex_C")) return newSVuv(226); |
|
1245
|
0 |
0 |
if(looks_like_number(x)) return 1; |
|
1263
|
2 |
0 |
if (PL_markstack_ptr != temp) { |
|
1312
|
76 |
0 |
if (PL_markstack_ptr != temp) { |
|
1329
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
1346
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
1364
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1382
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1400
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1418
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1436
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1454
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1472
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1490
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1508
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1526
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1544
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1562
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1580
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1598
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1616
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1634
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1652
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1670
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1688
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1706
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1722
|
126 |
0 |
if (PL_markstack_ptr != temp) { |
|
1767
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1784
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1801
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1818
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1835
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1852
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1869
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1886
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1903
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1920
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1937
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1954
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1971
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1988
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2005
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2022
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2039
|
6 |
0 |
if (PL_markstack_ptr != temp) { |
|
2057
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2383
|
0 |
10 |
if (PL_markstack_ptr != temp) { |
|
2400
|
0 |
3 |
if (PL_markstack_ptr != temp) { |
|
2448
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2464
|
1 |
0 |
if (PL_markstack_ptr != temp) { |