| line |
true |
false |
branch |
|
22
|
0 |
2 |
if(x < 1)croak("1st arg (precision) to l_set_prec must be at least 1"); |
|
31
|
34 |
36 |
if(x == x) return 0; |
|
36
|
0 |
30 |
if(x == 0) return 0; |
|
37
|
12 |
18 |
if(_is_nan(x)) return 0; |
|
38
|
10 |
8 |
if(x / x == x / x) return 0; |
|
39
|
4 |
4 |
if(x < 0) return -1; |
|
64
|
0 |
73 |
if(pc == NULL) croak("Failed to allocate memory in create_cl function"); |
|
81
|
0 |
76 |
if(SvUOK(d1)) { |
|
85
|
36 |
40 |
if(SvIOK(d1)) { |
|
89
|
28 |
12 |
if(SvNOK(d1)) { |
|
93
|
12 |
0 |
if(SvPOK(d1)) { |
|
94
|
1 |
11 |
if(!looks_like_number(d1)) nnum++; |
|
95
|
12 |
0 |
_d1 = strtold(SvPV_nolen(d1), NULL); |
|
98
|
0 |
0 |
if(sv_isobject(d1)) { |
|
99
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
100
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) |
|
112
|
0 |
76 |
if(SvUOK(d2)) { |
|
116
|
31 |
45 |
if(SvIOK(d2)) { |
|
120
|
34 |
11 |
if(SvNOK(d2)) { |
|
124
|
11 |
0 |
if(SvPOK(d2)) { |
|
125
|
1 |
10 |
if(!looks_like_number(d2)) nnum++; |
|
126
|
11 |
0 |
_d2 = strtold(SvPV_nolen(d2), NULL) ; |
|
129
|
0 |
0 |
if(sv_isobject(d2)) { |
|
130
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
131
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) |
|
150
|
1 |
3 |
if(SvUOK(d1)) { |
|
154
|
0 |
3 |
if(SvIOK(d1)) { |
|
158
|
2 |
1 |
if(SvNOK(d1)) { |
|
162
|
1 |
0 |
if(SvPOK(d1)) { |
|
163
|
0 |
1 |
if(!looks_like_number(d1)) nnum++; |
|
164
|
1 |
0 |
_d1 = strtold(SvPV_nolen(d1), NULL) ; |
|
167
|
0 |
0 |
if(sv_isobject(d1)) { |
|
168
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d1))); |
|
169
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) |
|
187
|
0 |
4 |
if(SvUOK(d2)) { |
|
191
|
3 |
1 |
if(SvIOK(d2)) { |
|
195
|
0 |
1 |
if(SvNOK(d2)) { |
|
199
|
1 |
0 |
if(SvPOK(d2)) { |
|
200
|
0 |
1 |
if(!looks_like_number(d2)) nnum++; |
|
201
|
1 |
0 |
_d2 = strtold(SvPV_nolen(d2), NULL) ; |
|
204
|
0 |
0 |
if(sv_isobject(d2)) { |
|
205
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(d2))); |
|
206
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) |
|
225
|
0 |
0 |
if(sv_isobject(d1) && sv_isobject(d2)) { |
|
|
0 |
0 |
if(sv_isobject(d1) && sv_isobject(d2)) { |
|
226
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
|
0 |
0 |
const char *h1 = HvNAME(SvSTASH(SvRV(d1))); |
|
227
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
|
0 |
0 |
const char *h2 = HvNAME(SvSTASH(SvRV(d2))); |
|
228
|
0 |
0 |
if(strEQ(h1, "Math::LongDouble") && |
|
|
0 |
0 |
if(strEQ(h1, "Math::LongDouble") && |
|
243
|
0 |
0 |
if(sv_isobject(rop1)) { |
|
244
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop1))); |
|
245
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) { |
|
252
|
0 |
0 |
if(sv_isobject(rop2)) { |
|
253
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(rop2))); |
|
254
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) { |
|
269
|
1 |
0 |
(long double)SvNV(op2); |
|
274
|
1 |
0 |
(long double)SvIV(op2); |
|
279
|
0 |
1 |
(long double)SvUV(op2); |
|
284
|
1 |
0 |
strtold(SvPV_nolen(op2), NULL); |
|
294
|
1 |
0 |
(long double)SvNV(op2); |
|
299
|
1 |
0 |
(long double)SvIV(op2); |
|
304
|
0 |
1 |
(long double)SvUV(op2); |
|
309
|
1 |
0 |
strtold(SvPV_nolen(op2), NULL); |
|
319
|
1 |
0 |
(long double)SvNV(op2); |
|
324
|
1 |
0 |
(long double)SvIV(op2); |
|
329
|
0 |
1 |
(long double)SvUV(op2); |
|
334
|
1 |
0 |
strtold(SvPV_nolen(op2), NULL); |
|
344
|
1 |
0 |
(long double)SvNV(op2); |
|
349
|
1 |
0 |
(long double)SvIV(op2); |
|
354
|
0 |
1 |
(long double)SvUV(op2); |
|
359
|
1 |
0 |
strtold(SvPV_nolen(op2), NULL); |
|
385
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in real_cl2LD function"); |
|
402
|
1 |
0 |
if(sv_isobject(op)) { |
|
403
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
404
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
405
|
0 |
1 |
EXTEND(SP, 1); |
|
409
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in real_cl2str"); |
|
439
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in imag_cl2LD function"); |
|
456
|
1 |
0 |
if(sv_isobject(op)) { |
|
457
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
458
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
459
|
0 |
1 |
EXTEND(SP, 1); |
|
463
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in imag_cl2str"); |
|
483
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in arg_cl2LD function"); |
|
500
|
1 |
0 |
if(sv_isobject(op)) { |
|
501
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
502
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
503
|
0 |
1 |
EXTEND(SP, 1); |
|
507
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in arg_cl2str"); |
|
527
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in cabs_cl2LD function"); |
|
544
|
1 |
0 |
if(sv_isobject(op)) { |
|
545
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
1 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
|
0 |
1 |
const char *h = HvNAME(SvSTASH(SvRV(op))); |
|
546
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
547
|
0 |
1 |
EXTEND(SP, 1); |
|
551
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in arg_cl2str"); |
|
638
|
0 |
2 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
|
0 |
0 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
646
|
0 |
4 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
|
0 |
0 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(rop))))) || |
|
652
|
1 |
40 |
if(SvUOK(b)) { |
|
653
|
1 |
0 |
if((long double)SvUVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if((long double)SvUVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
657
|
4 |
36 |
if(SvIOK(b)) { |
|
658
|
4 |
0 |
if((long double)SvIVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
4 |
0 |
if((long double)SvIVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
662
|
0 |
36 |
if(SvNOK(b)) { |
|
663
|
0 |
0 |
if((long double)SvNVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvNVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
668
|
2 |
34 |
if(SvPOK(b)) { |
|
669
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
670
|
2 |
0 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
1 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
675
|
34 |
0 |
if(sv_isobject(b)) { |
|
676
|
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))); |
|
677
|
34 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
678
|
33 |
1 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
|
33 |
0 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
689
|
0 |
7 |
if(SvUOK(b)) { |
|
690
|
0 |
0 |
if((long double)SvUVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvUVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
694
|
0 |
7 |
if(SvIOK(b)) { |
|
695
|
0 |
0 |
if((long double)SvIVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvIVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
699
|
0 |
7 |
if(SvNOK(b)) { |
|
700
|
0 |
0 |
if((long double)SvNVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
0 |
0 |
if((long double)SvNVX(b) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
704
|
2 |
5 |
if(SvPOK(b)) { |
|
705
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
706
|
2 |
0 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
1 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
|
1 |
0 |
if(strtold(SvPV_nolen(b), NULL) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
710
|
5 |
0 |
if(sv_isobject(b)) { |
|
711
|
5 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
5 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
5 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
5 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
5 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
712
|
5 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
713
|
0 |
5 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
|
0 |
0 |
if(creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) == creall(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(b))))) && |
|
729
|
0 |
17 |
if(pc == NULL) croak("Failed to allocate memory in _overload_pow function"); |
|
737
|
0 |
17 |
if(SvUOK(b)) { |
|
740
|
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) { |
|
748
|
9 |
8 |
if(SvIOK(b)) { |
|
751
|
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) { |
|
759
|
3 |
5 |
if(SvNOK(b)) { |
|
762
|
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) { |
|
770
|
2 |
3 |
if(SvPOK(b)) { |
|
771
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
772
|
2 |
0 |
__real__ t = strtold(SvPV_nolen(b), NULL); |
|
774
|
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) { |
|
781
|
3 |
0 |
else if(sv_isobject(b)) { |
|
782
|
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))); |
|
783
|
3 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
796
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_mul function"); |
|
804
|
0 |
5 |
if(SvUOK(b)) { |
|
809
|
2 |
3 |
if(SvIOK(b)) { |
|
814
|
1 |
2 |
if(SvNOK(b)) { |
|
818
|
1 |
1 |
if(SvPOK(b)) { |
|
819
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
820
|
1 |
0 |
*pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) * strtold(SvPV_nolen(b), NULL); |
|
823
|
1 |
0 |
if(sv_isobject(b)) { |
|
824
|
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))); |
|
825
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
839
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_add function"); |
|
847
|
0 |
5 |
if(SvUOK(b)) { |
|
852
|
2 |
3 |
if(SvIOK(b)) { |
|
857
|
1 |
2 |
if(SvNOK(b)) { |
|
861
|
1 |
1 |
if(SvPOK(b)) { |
|
862
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
863
|
1 |
0 |
*pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) + strtold(SvPV_nolen(b), NULL); |
|
866
|
1 |
0 |
if(sv_isobject(b)) { |
|
867
|
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))); |
|
868
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
882
|
0 |
9 |
if(pc == NULL) croak("Failed to allocate memory in _overload_div function"); |
|
890
|
0 |
9 |
if(SvUOK(b)) { |
|
891
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
896
|
4 |
5 |
if(SvIOK(b)) { |
|
897
|
0 |
4 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
902
|
1 |
4 |
if(SvNOK(b)) { |
|
903
|
0 |
1 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
907
|
2 |
2 |
if(SvPOK(b)) { |
|
908
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
909
|
0 |
2 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
910
|
1 |
0 |
else *pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) / strtold(SvPV_nolen(b), NULL); |
|
913
|
2 |
0 |
if(sv_isobject(b)) { |
|
914
|
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))); |
|
915
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
929
|
0 |
8 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sub function"); |
|
937
|
0 |
8 |
if(SvUOK(b)) { |
|
938
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
943
|
4 |
4 |
if(SvIOK(b)) { |
|
944
|
0 |
4 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (long double)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
949
|
1 |
3 |
if(SvNOK(b)) { |
|
950
|
0 |
1 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (long double)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
954
|
2 |
1 |
if(SvPOK(b)) { |
|
955
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
956
|
0 |
2 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtold(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
957
|
1 |
0 |
else *pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) - strtold(SvPV_nolen(b), NULL); |
|
960
|
1 |
0 |
if(sv_isobject(b)) { |
|
961
|
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))); |
|
962
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
976
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sqrt function"); |
|
992
|
0 |
4 |
if(SvUOK(b)) { |
|
998
|
3 |
1 |
if(SvIOK(b)) { |
|
1004
|
1 |
0 |
if(SvNOK(b)) { |
|
1010
|
0 |
0 |
if(SvPOK(b)) { |
|
1011
|
0 |
0 |
if(!looks_like_number(b)) nnum++; |
|
1012
|
0 |
0 |
__real__ t = strtold(SvPV_nolen(b), NULL); |
|
1017
|
0 |
0 |
if(sv_isobject(b)) { |
|
1018
|
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))); |
|
1019
|
0 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1032
|
0 |
7 |
if(SvUOK(b)) { |
|
1037
|
2 |
5 |
if(SvIOK(b)) { |
|
1042
|
1 |
4 |
if(SvNOK(b)) { |
|
1047
|
2 |
2 |
if(SvPOK(b)) { |
|
1048
|
1 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1049
|
2 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) *= strtold(SvPV_nolen(b), NULL); |
|
1053
|
2 |
0 |
if(sv_isobject(b)) { |
|
1054
|
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))); |
|
1055
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1068
|
0 |
6 |
if(SvUOK(b)) { |
|
1073
|
2 |
4 |
if(SvIOK(b)) { |
|
1078
|
1 |
3 |
if(SvNOK(b)) { |
|
1083
|
1 |
2 |
if(SvPOK(b)) { |
|
1084
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1085
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) += strtold(SvPV_nolen(b), NULL); |
|
1089
|
2 |
0 |
if(sv_isobject(b)) { |
|
1090
|
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))); |
|
1091
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1104
|
0 |
5 |
if(SvUOK(b)) { |
|
1109
|
2 |
3 |
if(SvIOK(b)) { |
|
1114
|
1 |
2 |
if(SvNOK(b)) { |
|
1119
|
1 |
1 |
if(SvPOK(b)) { |
|
1120
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1121
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) /= strtold(SvPV_nolen(b), NULL); |
|
1125
|
1 |
0 |
if(sv_isobject(b)) { |
|
1126
|
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))); |
|
1127
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1140
|
0 |
5 |
if(SvUOK(b)) { |
|
1145
|
2 |
3 |
if(SvIOK(b)) { |
|
1150
|
1 |
2 |
if(SvNOK(b)) { |
|
1155
|
1 |
1 |
if(SvPOK(b)) { |
|
1156
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1157
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) -= strtold(SvPV_nolen(b), NULL); |
|
1161
|
1 |
0 |
if(sv_isobject(b)) { |
|
1162
|
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))); |
|
1163
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1179
|
0 |
4 |
if(pc == NULL) croak("Failed to allocate memory in _overload_copy function"); |
|
1202
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_exp function"); |
|
1219
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_log function"); |
|
1236
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sin function"); |
|
1253
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_cos function"); |
|
1270
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_atan2 function"); |
|
1306
|
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); |
|
1311
|
6 |
0 |
if(SvNV(a) == 0) return newSVuv(0); |
|
|
0 |
6 |
if(SvNV(a) == 0) return newSVuv(0); |
|
1312
|
6 |
0 |
if(SvNV(a) != SvNV(a)) return newSVuv(0); |
|
|
6 |
0 |
if(SvNV(a) != SvNV(a)) return newSVuv(0); |
|
|
0 |
6 |
if(SvNV(a) != SvNV(a)) return newSVuv(0); |
|
1313
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
|
0 |
6 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return newSVuv(0); |
|
1314
|
6 |
0 |
if(SvNV(a) < 0) return newSViv(-1); |
|
|
0 |
6 |
if(SvNV(a) < 0) return newSViv(-1); |
|
1327
|
0 |
0 |
return newSVnv(SvNV(x)); |
|
1331
|
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); |
|
1370
|
12 |
0 |
if(sv_isobject(ld)) { |
|
1371
|
12 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
12 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
12 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
12 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
12 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
1372
|
12 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1373
|
0 |
12 |
EXTEND(SP, 2); |
|
1378
|
0 |
12 |
if(rbuffer == NULL) croak("Failed to allocate memory in l_to_str"); |
|
1381
|
10 |
2 |
if(query || _is_nan(__real__ t)) |
|
|
5 |
5 |
if(query || _is_nan(__real__ t)) |
|
1382
|
2 |
5 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1383
|
1 |
1 |
: "-inf" |
|
1391
|
10 |
2 |
if(query || _is_nan(__imag__ t)) |
|
|
5 |
5 |
if(query || _is_nan(__imag__ t)) |
|
1392
|
2 |
5 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1393
|
1 |
1 |
: "-inf" |
|
1414
|
0 |
3 |
if(decimal_prec < 1)croak("2nd arg (precision) to _l_to_strp must be at least 1"); |
|
1416
|
3 |
0 |
if(sv_isobject(ld)) { |
|
1417
|
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))); |
|
1418
|
3 |
0 |
if(strEQ(h, "Math::Complex_C::L")) { |
|
1419
|
0 |
3 |
EXTEND(SP, 2); |
|
1423
|
0 |
3 |
if(rbuffer == NULL) croak("Failed to allocate memory in l_to_strp"); |
|
1426
|
1 |
2 |
if(query || _is_nan(__real__ t)) |
|
|
1 |
0 |
if(query || _is_nan(__real__ t)) |
|
1427
|
2 |
1 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1428
|
1 |
1 |
: "-inf" |
|
1436
|
1 |
2 |
if(query || _is_nan(__imag__ t)) |
|
|
1 |
0 |
if(query || _is_nan(__imag__ t)) |
|
1437
|
2 |
1 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1438
|
1 |
1 |
: "-inf" |
|
1474
|
0 |
20 |
if(SvUOK(a)) return newSVuv(1); |
|
1475
|
1 |
19 |
if(SvIOK(a)) return newSVuv(2); |
|
1476
|
15 |
4 |
if(SvNOK(a)) return newSVuv(3); |
|
1477
|
4 |
0 |
if(SvPOK(a)) return newSVuv(4); |
|
1478
|
0 |
0 |
if(sv_isobject(a)) { |
|
1479
|
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))); |
|
1480
|
0 |
0 |
if(strEQ(h, "Math::LongDouble")) return newSVuv(96); |
|
1481
|
0 |
0 |
if(strEQ(h, "Math::Float128")) return newSVuv(113); |
|
1482
|
0 |
0 |
if(strEQ(h, "Math::Complex_C::L")) return newSVuv(226); |
|
1500
|
0 |
0 |
if(looks_like_number(x)) return 1; |
|
1519
|
2 |
0 |
if (PL_markstack_ptr != temp) { |
|
1548
|
76 |
0 |
if (PL_markstack_ptr != temp) { |
|
1565
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
1582
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
1600
|
0 |
0 |
if (PL_markstack_ptr != temp) { |
|
1618
|
0 |
0 |
if (PL_markstack_ptr != temp) { |
|
1636
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1654
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1672
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1690
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1708
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1726
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1744
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1762
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1780
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1798
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1816
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1834
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1852
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1870
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1888
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1906
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1924
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1942
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1960
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1978
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1994
|
127 |
0 |
if (PL_markstack_ptr != temp) { |
|
2024
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2054
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2084
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2114
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2131
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2148
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2165
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2182
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2199
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2216
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2233
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2250
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2267
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2284
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2301
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2318
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2335
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2352
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2369
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2386
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2403
|
6 |
0 |
if (PL_markstack_ptr != temp) { |
|
2421
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2747
|
0 |
12 |
if (PL_markstack_ptr != temp) { |
|
2764
|
0 |
3 |
if (PL_markstack_ptr != temp) { |
|
2812
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2828
|
1 |
0 |
if (PL_markstack_ptr != temp) { |