| line |
true |
false |
branch |
|
43
|
0 |
2 |
if(x < 1)croak("1st arg (precision) to q_set_prec must be at least 1"); |
|
52
|
38 |
36 |
if(x == x) return 0; |
|
57
|
0 |
32 |
if(x == 0) return 0; |
|
58
|
12 |
20 |
if(_is_nan(x)) return 0; |
|
59
|
12 |
8 |
if(x / x == x / x) return 0; |
|
60
|
4 |
4 |
if(x < 0) return -1; |
|
80
|
2 |
0 |
if(SvNV(a) == SvNV(a)) return 0; |
|
|
2 |
0 |
if(SvNV(a) == SvNV(a)) return 0; |
|
|
1 |
1 |
if(SvNV(a) == SvNV(a)) return 0; |
|
85
|
6 |
0 |
if(SvNV(a) == 0) return 0; |
|
|
0 |
6 |
if(SvNV(a) == 0) return 0; |
|
86
|
6 |
0 |
if(SvNV(a) != SvNV(a)) return 0; |
|
|
6 |
0 |
if(SvNV(a) != SvNV(a)) return 0; |
|
|
0 |
6 |
if(SvNV(a) != SvNV(a)) return 0; |
|
87
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return 0; |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return 0; |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return 0; |
|
|
6 |
0 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return 0; |
|
|
0 |
6 |
if(SvNV(a) / SvNV(a) == SvNV(a) / SvNV(a)) return 0; |
|
88
|
6 |
0 |
if(SvNV(a) < 0) return -1; |
|
|
0 |
6 |
if(SvNV(a) < 0) return -1; |
|
98
|
0 |
74 |
if(pc == NULL) croak("Failed to allocate memory in create_cq function"); |
|
115
|
0 |
77 |
if(SvUOK(d1)) { |
|
119
|
36 |
41 |
if(SvIOK(d1)) { |
|
123
|
28 |
13 |
if(SvNOK(d1)) { |
|
127
|
13 |
0 |
if(SvPOK(d1)) { |
|
128
|
1 |
12 |
if(!looks_like_number(d1)) nnum++; |
|
129
|
13 |
0 |
_d1 = strtoflt128(SvPV_nolen(d1), NULL) ; |
|
132
|
0 |
0 |
if(sv_isobject(d1)) { |
|
133
|
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))); |
|
134
|
0 |
0 |
if(strEQ(h, "Math::Float128")) |
|
146
|
0 |
77 |
if(SvUOK(d2)) { |
|
150
|
31 |
46 |
if(SvIOK(d2)) { |
|
154
|
34 |
12 |
if(SvNOK(d2)) { |
|
158
|
12 |
0 |
if(SvPOK(d2)) { |
|
159
|
1 |
11 |
if(!looks_like_number(d2)) nnum++; |
|
160
|
12 |
0 |
_d2 = strtoflt128(SvPV_nolen(d2), NULL) ; |
|
163
|
0 |
0 |
if(sv_isobject(d2)) { |
|
164
|
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))); |
|
165
|
0 |
0 |
if(strEQ(h, "Math::Float128")) |
|
184
|
1 |
3 |
if(SvUOK(d1)) { |
|
188
|
0 |
3 |
if(SvIOK(d1)) { |
|
192
|
2 |
1 |
if(SvNOK(d1)) { |
|
196
|
1 |
0 |
if(SvPOK(d1)) { |
|
197
|
0 |
1 |
if(!looks_like_number(d1)) nnum++; |
|
198
|
1 |
0 |
_d1 = strtoflt128(SvPV_nolen(d1), NULL) ; |
|
201
|
0 |
0 |
if(sv_isobject(d1)) { |
|
202
|
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))); |
|
203
|
0 |
0 |
if(strEQ(h, "Math::Float128")) |
|
221
|
0 |
4 |
if(SvUOK(d2)) { |
|
225
|
3 |
1 |
if(SvIOK(d2)) { |
|
229
|
0 |
1 |
if(SvNOK(d2)) { |
|
233
|
1 |
0 |
if(SvPOK(d2)) { |
|
234
|
0 |
1 |
if(!looks_like_number(d2)) nnum++; |
|
235
|
1 |
0 |
_d2 = strtoflt128(SvPV_nolen(d2), NULL) ; |
|
238
|
0 |
0 |
if(sv_isobject(d2)) { |
|
239
|
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))); |
|
240
|
0 |
0 |
if(strEQ(h, "Math::Float128")) |
|
259
|
0 |
0 |
if(sv_isobject(d1) && sv_isobject(d2)) { |
|
|
0 |
0 |
if(sv_isobject(d1) && sv_isobject(d2)) { |
|
260
|
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))); |
|
261
|
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))); |
|
262
|
0 |
0 |
if(strEQ(h1, "Math::Float128") && |
|
|
0 |
0 |
if(strEQ(h1, "Math::Float128") && |
|
277
|
0 |
0 |
if(sv_isobject(rop1)) { |
|
278
|
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))); |
|
279
|
0 |
0 |
if(strEQ(h, "Math::Float128")) { |
|
286
|
0 |
0 |
if(sv_isobject(rop2)) { |
|
287
|
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))); |
|
288
|
0 |
0 |
if(strEQ(h, "Math::Float128")) { |
|
303
|
1 |
0 |
(float128)SvNV(op2); |
|
308
|
1 |
0 |
(float128)SvIV(op2); |
|
313
|
0 |
1 |
(float128)SvUV(op2); |
|
318
|
1 |
0 |
strtoflt128(SvPV_nolen(op2), NULL); |
|
328
|
1 |
0 |
(float128)SvNV(op2); |
|
333
|
1 |
0 |
(float128)SvIV(op2); |
|
338
|
0 |
1 |
(float128)SvUV(op2); |
|
343
|
1 |
0 |
strtoflt128(SvPV_nolen(op2), NULL); |
|
353
|
1 |
0 |
(float128)SvNV(op2); |
|
358
|
1 |
0 |
(float128)SvIV(op2); |
|
363
|
0 |
1 |
(float128)SvUV(op2); |
|
368
|
1 |
0 |
strtoflt128(SvPV_nolen(op2), NULL); |
|
378
|
1 |
0 |
(float128)SvNV(op2); |
|
383
|
1 |
0 |
(float128)SvIV(op2); |
|
388
|
0 |
1 |
(float128)SvUV(op2); |
|
393
|
1 |
0 |
strtoflt128(SvPV_nolen(op2), NULL); |
|
409
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in real_cq2F function"); |
|
426
|
1 |
0 |
if(sv_isobject(op)) { |
|
427
|
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))); |
|
428
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
429
|
0 |
1 |
EXTEND(SP, 1); |
|
433
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in real_cq2str"); |
|
453
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in imag_cq2F function"); |
|
470
|
1 |
0 |
if(sv_isobject(op)) { |
|
471
|
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))); |
|
472
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
473
|
0 |
1 |
EXTEND(SP, 1); |
|
477
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in imag_cq2str"); |
|
497
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in arg_cq2F function"); |
|
514
|
1 |
0 |
if(sv_isobject(op)) { |
|
515
|
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))); |
|
516
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
517
|
0 |
1 |
EXTEND(SP, 1); |
|
521
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in arg_cq2str"); |
|
541
|
0 |
0 |
if(f == NULL) croak("Failed to allocate memory in cabs_cq2F function"); |
|
558
|
1 |
0 |
if(sv_isobject(op)) { |
|
559
|
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))); |
|
560
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
561
|
0 |
1 |
EXTEND(SP, 1); |
|
565
|
0 |
1 |
if(buffer == NULL) croak("Failed to allocate memory in arg_cq2str"); |
|
704
|
1 |
40 |
if(SvUOK(b)) { |
|
709
|
4 |
36 |
if(SvIOK(b)) { |
|
714
|
0 |
36 |
if(SvNOK(b)) { |
|
720
|
2 |
34 |
if(SvPOK(b)) { |
|
721
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
722
|
2 |
0 |
if(strtoflt128(SvPV_nolen(b), NULL) == crealq(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
727
|
34 |
0 |
if(sv_isobject(b)) { |
|
728
|
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))); |
|
729
|
34 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
741
|
0 |
7 |
if(SvUOK(b)) { |
|
746
|
0 |
7 |
if(SvIOK(b)) { |
|
751
|
0 |
7 |
if(SvNOK(b)) { |
|
756
|
2 |
5 |
if(SvPOK(b)) { |
|
757
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
758
|
2 |
0 |
if(strtoflt128(SvPV_nolen(b), NULL) == crealq(*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a))))) && |
|
762
|
5 |
0 |
if(sv_isobject(b)) { |
|
763
|
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))); |
|
764
|
5 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
784
|
0 |
17 |
if(pc == NULL) croak("Failed to allocate memory in _overload_pow function"); |
|
792
|
0 |
17 |
if(SvUOK(b)) { |
|
795
|
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) { |
|
803
|
9 |
8 |
if(SvIOK(b)) { |
|
806
|
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) { |
|
814
|
3 |
5 |
if(SvNOK(b)) { |
|
817
|
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) { |
|
825
|
2 |
3 |
if(SvPOK(b)) { |
|
826
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
827
|
2 |
0 |
__real__ t = strtoflt128(SvPV_nolen(b), NULL); |
|
829
|
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) { |
|
837
|
3 |
0 |
else if(sv_isobject(b)) { |
|
838
|
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))); |
|
839
|
3 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
853
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_mul function"); |
|
861
|
0 |
5 |
if(SvUOK(b)) { |
|
866
|
2 |
3 |
if(SvIOK(b)) { |
|
871
|
1 |
2 |
if(SvNOK(b)) { |
|
875
|
1 |
1 |
if(SvPOK(b)) { |
|
876
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
877
|
1 |
0 |
*pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) * strtoflt128(SvPV_nolen(b), NULL); |
|
880
|
1 |
0 |
if(sv_isobject(b)) { |
|
881
|
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))); |
|
882
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
896
|
0 |
5 |
if(pc == NULL) croak("Failed to allocate memory in _overload_add function"); |
|
904
|
0 |
5 |
if(SvUOK(b)) { |
|
909
|
2 |
3 |
if(SvIOK(b)) { |
|
914
|
1 |
2 |
if(SvNOK(b)) { |
|
918
|
1 |
1 |
if(SvPOK(b)) { |
|
919
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
920
|
1 |
0 |
*pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) + strtoflt128(SvPV_nolen(b), NULL); |
|
923
|
1 |
0 |
if(sv_isobject(b)) { |
|
924
|
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))); |
|
925
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
939
|
0 |
9 |
if(pc == NULL) croak("Failed to allocate memory in _overload_div function"); |
|
947
|
0 |
9 |
if(SvUOK(b)) { |
|
948
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
953
|
4 |
5 |
if(SvIOK(b)) { |
|
954
|
0 |
4 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
959
|
1 |
4 |
if(SvNOK(b)) { |
|
960
|
0 |
1 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
964
|
2 |
2 |
if(SvPOK(b)) { |
|
965
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
966
|
0 |
2 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) / *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
967
|
1 |
0 |
else *pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) / strtoflt128(SvPV_nolen(b), NULL); |
|
970
|
2 |
0 |
if(sv_isobject(b)) { |
|
971
|
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))); |
|
972
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
986
|
0 |
8 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sub function"); |
|
994
|
0 |
8 |
if(SvUOK(b)) { |
|
995
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvUVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
1000
|
4 |
4 |
if(SvIOK(b)) { |
|
1001
|
0 |
4 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
4 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
3 |
if(SWITCH_ARGS) *pc = (float128)SvIVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
1006
|
1 |
3 |
if(SvNOK(b)) { |
|
1007
|
0 |
1 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *pc = (float128)SvNVX(b) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
1011
|
2 |
1 |
if(SvPOK(b)) { |
|
1012
|
0 |
2 |
if(!looks_like_number(b)) nnum++; |
|
1013
|
0 |
2 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
1 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *pc = strtoflt128(SvPV_nolen(b), NULL) - *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))); |
|
1014
|
1 |
0 |
else *pc = *(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) - strtoflt128(SvPV_nolen(b), NULL); |
|
1017
|
1 |
0 |
if(sv_isobject(b)) { |
|
1018
|
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))); |
|
1019
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
1033
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sqrt function"); |
|
1052
|
0 |
4 |
if(SvUOK(b)) { |
|
1058
|
3 |
1 |
if(SvIOK(b)) { |
|
1064
|
1 |
0 |
if(SvNOK(b)) { |
|
1070
|
0 |
0 |
if(SvPOK(b)) { |
|
1071
|
0 |
0 |
if(!looks_like_number(b)) nnum++; |
|
1072
|
0 |
0 |
__real__ t = strtoflt128(SvPV_nolen(b), NULL); |
|
1077
|
0 |
0 |
if(sv_isobject(b)) { |
|
1078
|
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))); |
|
1079
|
0 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
1093
|
0 |
7 |
if(SvUOK(b)) { |
|
1098
|
2 |
5 |
if(SvIOK(b)) { |
|
1103
|
1 |
4 |
if(SvNOK(b)) { |
|
1108
|
2 |
2 |
if(SvPOK(b)) { |
|
1109
|
1 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1110
|
2 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) *= strtoflt128(SvPV_nolen(b), NULL); |
|
1114
|
2 |
0 |
if(sv_isobject(b)) { |
|
1115
|
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))); |
|
1116
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
1129
|
0 |
6 |
if(SvUOK(b)) { |
|
1134
|
2 |
4 |
if(SvIOK(b)) { |
|
1139
|
1 |
3 |
if(SvNOK(b)) { |
|
1144
|
1 |
2 |
if(SvPOK(b)) { |
|
1145
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1146
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) += strtoflt128(SvPV_nolen(b), NULL); |
|
1150
|
2 |
0 |
if(sv_isobject(b)) { |
|
1151
|
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))); |
|
1152
|
2 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
1165
|
0 |
5 |
if(SvUOK(b)) { |
|
1170
|
2 |
3 |
if(SvIOK(b)) { |
|
1175
|
1 |
2 |
if(SvNOK(b)) { |
|
1180
|
1 |
1 |
if(SvPOK(b)) { |
|
1181
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1182
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) /= strtoflt128(SvPV_nolen(b), NULL); |
|
1186
|
1 |
0 |
if(sv_isobject(b)) { |
|
1187
|
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))); |
|
1188
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
1201
|
0 |
5 |
if(SvUOK(b)) { |
|
1206
|
2 |
3 |
if(SvIOK(b)) { |
|
1211
|
1 |
2 |
if(SvNOK(b)) { |
|
1216
|
1 |
1 |
if(SvPOK(b)) { |
|
1217
|
0 |
1 |
if(!looks_like_number(b)) nnum++; |
|
1218
|
1 |
0 |
*(INT2PTR(MATH_COMPLEX *, SvIVX(SvRV(a)))) -= strtoflt128(SvPV_nolen(b), NULL); |
|
1222
|
1 |
0 |
if(sv_isobject(b)) { |
|
1223
|
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))); |
|
1224
|
1 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
1240
|
0 |
4 |
if(pc == NULL) croak("Failed to allocate memory in _overload_copy function"); |
|
1266
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_exp function"); |
|
1284
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_log function"); |
|
1304
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_sin function"); |
|
1325
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_cos function"); |
|
1343
|
0 |
1 |
if(pc == NULL) croak("Failed to allocate memory in _overload_atan2 function"); |
|
1379
|
0 |
0 |
return newSVnv(SvNV(x)); |
|
1383
|
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); |
|
1430
|
13 |
0 |
if(sv_isobject(ld)) { |
|
1431
|
13 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
13 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
13 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
13 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
|
0 |
13 |
const char *h = HvNAME(SvSTASH(SvRV(ld))); |
|
1432
|
13 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
1433
|
0 |
13 |
EXTEND(SP, 2); |
|
1438
|
0 |
13 |
if(rbuffer == NULL) croak("Failed to allocate memory in q_to_str"); |
|
1441
|
11 |
2 |
if(query || _is_nan(__real__ t)) |
|
|
5 |
6 |
if(query || _is_nan(__real__ t)) |
|
1442
|
2 |
5 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1443
|
1 |
1 |
: "-inf" |
|
1452
|
11 |
2 |
if(query || _is_nan(__imag__ t)) |
|
|
5 |
6 |
if(query || _is_nan(__imag__ t)) |
|
1453
|
2 |
5 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1454
|
1 |
1 |
: "-inf" |
|
1476
|
0 |
3 |
if(decimal_prec < 1)croak("2nd arg (precision) to _q_to_strp must be at least 1"); |
|
1478
|
3 |
0 |
if(sv_isobject(ld)) { |
|
1479
|
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))); |
|
1480
|
3 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) { |
|
1481
|
0 |
3 |
EXTEND(SP, 2); |
|
1485
|
0 |
3 |
if(rbuffer == NULL) croak("Failed to allocate memory in q_to_strp"); |
|
1488
|
1 |
2 |
if(query || _is_nan(__real__ t)) |
|
|
1 |
0 |
if(query || _is_nan(__real__ t)) |
|
1489
|
2 |
1 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1490
|
1 |
1 |
: "-inf" |
|
1499
|
1 |
2 |
if(query || _is_nan(__imag__ t)) |
|
|
1 |
0 |
if(query || _is_nan(__imag__ t)) |
|
1500
|
2 |
1 |
sprintf(rbuffer, "%s", query ? query > 0 ? "inf" |
|
1501
|
1 |
1 |
: "-inf" |
|
1549
|
0 |
20 |
if(SvUOK(a)) return newSVuv(1); |
|
1550
|
1 |
19 |
if(SvIOK(a)) return newSVuv(2); |
|
1551
|
15 |
4 |
if(SvNOK(a)) return newSVuv(3); |
|
1552
|
4 |
0 |
if(SvPOK(a)) return newSVuv(4); |
|
1553
|
0 |
0 |
if(sv_isobject(a)) { |
|
1554
|
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))); |
|
1555
|
0 |
0 |
if(strEQ(h, "Math::Float128")) return newSVuv(113); |
|
1556
|
0 |
0 |
if(strEQ(h, "Math::Complex_C::Q")) return newSVuv(226); |
|
1590
|
0 |
0 |
if(looks_like_number(x)) return 1; |
|
1612
|
2 |
0 |
if (PL_markstack_ptr != temp) { |
|
1655
|
77 |
0 |
if (PL_markstack_ptr != temp) { |
|
1672
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
1689
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
1707
|
0 |
0 |
if (PL_markstack_ptr != temp) { |
|
1725
|
0 |
0 |
if (PL_markstack_ptr != temp) { |
|
1743
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1761
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1779
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1797
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1815
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1833
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1851
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1869
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1887
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1905
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1923
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1941
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1959
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1977
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1995
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2013
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2031
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2049
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2067
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2085
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2101
|
128 |
0 |
if (PL_markstack_ptr != temp) { |
|
2131
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2161
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2191
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2221
|
0 |
1 |
if (PL_markstack_ptr != temp) { |
|
2238
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2255
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2272
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2289
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2306
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2323
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2340
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2357
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2374
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2391
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2408
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2425
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2442
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2459
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2476
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2493
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2510
|
6 |
0 |
if (PL_markstack_ptr != temp) { |
|
2528
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2854
|
0 |
13 |
if (PL_markstack_ptr != temp) { |
|
2871
|
0 |
3 |
if (PL_markstack_ptr != temp) { |
|
2927
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2943
|
1 |
0 |
if (PL_markstack_ptr != temp) { |