| line |
true |
false |
branch |
|
60
|
49527 |
38 |
if(x == x) return 0; |
|
65
|
0 |
49574 |
if(x != x) return 0; /* NaN */ |
|
66
|
352 |
49222 |
if(x == 0.DL) return 0; /* Zero */ |
|
67
|
76 |
49146 |
if(x/x != x/x) { |
|
68
|
34 |
42 |
if(x < 0.DL) return -1; |
|
104
|
226447 |
1211 |
if(d128 != 0.0DL) { |
|
105
|
0 |
226447 |
if(d128 * -1.0DL == 0.0DL) return 1; /* it's a -0 */ |
|
112
|
691 |
520 |
if(((unsigned char*)p)[n - 1] >= 128) return 1; |
|
118
|
0 |
0 |
if(SvNV(x) == SvNV(x)) return newSViv(0); |
|
|
0 |
0 |
if(SvNV(x) == SvNV(x)) return newSViv(0); |
|
|
0 |
0 |
if(SvNV(x) == SvNV(x)) return newSViv(0); |
|
123
|
0 |
0 |
if(SvNV(x) != SvNV(x)) return 0; /* NaN */ |
|
|
0 |
0 |
if(SvNV(x) != SvNV(x)) return 0; /* NaN */ |
|
|
0 |
0 |
if(SvNV(x) != SvNV(x)) return 0; /* NaN */ |
|
124
|
0 |
0 |
if(SvNV(x) == 0.0) return newSViv(0); /* Zero */ |
|
|
0 |
0 |
if(SvNV(x) == 0.0) return newSViv(0); /* Zero */ |
|
125
|
0 |
0 |
if(SvNV(x)/SvNV(x) != SvNV(x)/SvNV(x)) { |
|
|
0 |
0 |
if(SvNV(x)/SvNV(x) != SvNV(x)/SvNV(x)) { |
|
|
0 |
0 |
if(SvNV(x)/SvNV(x) != SvNV(x)/SvNV(x)) { |
|
|
0 |
0 |
if(SvNV(x)/SvNV(x) != SvNV(x)/SvNV(x)) { |
|
|
0 |
0 |
if(SvNV(x)/SvNV(x) != SvNV(x)/SvNV(x)) { |
|
126
|
0 |
0 |
if(SvNV(x) < 0.0) return newSViv(-1); |
|
|
0 |
0 |
if(SvNV(x) < 0.0) return newSViv(-1); |
|
135
|
0 |
0 |
if(SvNV(x) != 0.0) return newSViv(0); |
|
|
0 |
0 |
if(SvNV(x) != 0.0) return newSViv(0); |
|
137
|
0 |
0 |
sprintf(buffer, "%.0f", (double)SvNV(x)); |
|
139
|
0 |
0 |
if(strcmp(buffer, "-0")) { |
|
150
|
22584 |
24570 |
if(power < 0) { |
|
151
|
0 |
22584 |
while(power < -1000) { |
|
155
|
62246 |
22584 |
while(power < -100) { |
|
159
|
186746 |
22584 |
while(power < -10) { |
|
163
|
175424 |
22584 |
while(power) { |
|
169
|
0 |
24570 |
while(power > 1000) { |
|
173
|
62229 |
24570 |
while(power > 100) { |
|
177
|
167400 |
24570 |
while(power > 10) { |
|
181
|
101369 |
24570 |
while(power) { |
|
190
|
17 |
72 |
if(sign < 0) return -1.DL/0.DL; |
|
209
|
1 |
48985 |
if(!strcmp(s, "0 but true")) return 0.DL; |
|
211
|
29 |
49001 |
while(s[0] == ' ' || s[0] == '\t' || s[0] == '\n' || s[0] == '\r' || s[0] == '\f') s++; |
|
|
4 |
48997 |
while(s[0] == ' ' || s[0] == '\t' || s[0] == '\n' || s[0] == '\r' || s[0] == '\f') s++; |
|
|
4 |
48993 |
while(s[0] == ' ' || s[0] == '\t' || s[0] == '\n' || s[0] == '\r' || s[0] == '\f') s++; |
|
|
4 |
48989 |
while(s[0] == ' ' || s[0] == '\t' || s[0] == '\n' || s[0] == '\r' || s[0] == '\f') s++; |
|
|
4 |
48985 |
while(s[0] == ' ' || s[0] == '\t' || s[0] == '\n' || s[0] == '\r' || s[0] == '\f') s++; |
|
213
|
24456 |
24529 |
if(s[0] == '-') { |
|
218
|
11 |
24518 |
if(s[0] == '+') s++; |
|
221
|
48965 |
20 |
if((s[0] == 'i' || s[0] == 'I') && (s[1] == 'n' || s[1] == 'N') && (s[2] == 'f' || s[2] == 'F')) { |
|
|
1 |
48964 |
if((s[0] == 'i' || s[0] == 'I') && (s[1] == 'n' || s[1] == 'N') && (s[2] == 'f' || s[2] == 'F')) { |
|
|
0 |
21 |
if((s[0] == 'i' || s[0] == 'I') && (s[1] == 'n' || s[1] == 'N') && (s[2] == 'f' || s[2] == 'F')) { |
|
|
0 |
0 |
if((s[0] == 'i' || s[0] == 'I') && (s[1] == 'n' || s[1] == 'N') && (s[2] == 'f' || s[2] == 'F')) { |
|
|
0 |
21 |
if((s[0] == 'i' || s[0] == 'I') && (s[1] == 'n' || s[1] == 'N') && (s[2] == 'f' || s[2] == 'F')) { |
|
|
0 |
0 |
if((s[0] == 'i' || s[0] == 'I') && (s[1] == 'n' || s[1] == 'N') && (s[2] == 'f' || s[2] == 'F')) { |
|
222
|
18 |
3 |
if((s[3] == 'i' || s[3] == 'I') && (s[4] == 'n' || s[4] == 'N') && (s[5] == 'i' || s[5] == 'I') && |
|
|
0 |
18 |
if((s[3] == 'i' || s[3] == 'I') && (s[4] == 'n' || s[4] == 'N') && (s[5] == 'i' || s[5] == 'I') && |
|
|
0 |
3 |
if((s[3] == 'i' || s[3] == 'I') && (s[4] == 'n' || s[4] == 'N') && (s[5] == 'i' || s[5] == 'I') && |
|
|
0 |
0 |
if((s[3] == 'i' || s[3] == 'I') && (s[4] == 'n' || s[4] == 'N') && (s[5] == 'i' || s[5] == 'I') && |
|
|
0 |
3 |
if((s[3] == 'i' || s[3] == 'I') && (s[4] == 'n' || s[4] == 'N') && (s[5] == 'i' || s[5] == 'I') && |
|
|
0 |
0 |
if((s[3] == 'i' || s[3] == 'I') && (s[4] == 'n' || s[4] == 'N') && (s[5] == 'i' || s[5] == 'I') && |
|
|
1 |
2 |
if((s[3] == 'i' || s[3] == 'I') && (s[4] == 'n' || s[4] == 'N') && (s[5] == 'i' || s[5] == 'I') && |
|
223
|
1 |
0 |
(s[6] == 't' || s[6] == 'T') && (s[7] == 'y' || s[7] == 'Y')) count = 5; |
|
|
1 |
2 |
(s[6] == 't' || s[6] == 'T') && (s[7] == 'y' || s[7] == 'Y')) count = 5; |
|
|
0 |
1 |
(s[6] == 't' || s[6] == 'T') && (s[7] == 'y' || s[7] == 'Y')) count = 5; |
|
225
|
17 |
8 |
if(s[i] == 0) return _get_inf(negative); |
|
226
|
4 |
4 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
4 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
4 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
4 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
4 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
228
|
4 |
0 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
|
0 |
4 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
235
|
48950 |
14 |
if((s[0] == 'n' || s[0] == 'N') && (s[1] == 'a' || s[1] == 'A') && (s[2] == 'n' || s[2] == 'N')) { |
|
|
0 |
48950 |
if((s[0] == 'n' || s[0] == 'N') && (s[1] == 'a' || s[1] == 'A') && (s[2] == 'n' || s[2] == 'N')) { |
|
|
0 |
14 |
if((s[0] == 'n' || s[0] == 'N') && (s[1] == 'a' || s[1] == 'A') && (s[2] == 'n' || s[2] == 'N')) { |
|
|
0 |
0 |
if((s[0] == 'n' || s[0] == 'N') && (s[1] == 'a' || s[1] == 'A') && (s[2] == 'n' || s[2] == 'N')) { |
|
|
0 |
14 |
if((s[0] == 'n' || s[0] == 'N') && (s[1] == 'a' || s[1] == 'A') && (s[2] == 'n' || s[2] == 'N')) { |
|
|
0 |
0 |
if((s[0] == 'n' || s[0] == 'N') && (s[1] == 'a' || s[1] == 'A') && (s[2] == 'n' || s[2] == 'N')) { |
|
237
|
14 |
0 |
if(s[i] == 0) return _get_nan(); |
|
238
|
0 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
0 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
0 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
0 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
0 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
240
|
0 |
0 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
|
0 |
0 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
248
|
1008 |
47942 |
if(!isdigit(s[0]) && s[0] != '.') { |
|
|
7 |
1001 |
if(!isdigit(s[0]) && s[0] != '.') { |
|
250
|
7 |
0 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
|
0 |
7 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
252
|
3 |
4 |
result = negative ? result * -1.DL : result; |
|
256
|
604893 |
48943 |
for(; isdigit(*s); s++) { |
|
261
|
24723 |
24220 |
if(s[0] == '.') { |
|
263
|
214773 |
24723 |
for(i = 0; isdigit(s[i]) ;i++) { |
|
270
|
24443 |
24500 |
if(negative) result *= -1.DL; |
|
272
|
13566 |
35377 |
if(s[i] == 'e' || s[i] == 'E') { |
|
|
11777 |
1789 |
if(s[i] == 'e' || s[i] == 'E') { |
|
274
|
22584 |
24570 |
if(*s == '-') { |
|
276
|
84960 |
22584 |
for(i = 0; isdigit(s[i]);i++) exponent = (exponent * 10) + (s[i] - '0'); |
|
277
|
119828006 |
22584 |
while(exponent > 398) { |
|
286
|
22583 |
1 |
if(s[i] == 0) return result; |
|
287
|
1 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
1 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
1 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
1 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
1 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
289
|
1 |
0 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
|
0 |
1 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
296
|
6 |
24564 |
if(*s == '+') s++; |
|
297
|
88119 |
24570 |
for(i = 0; isdigit(s[i]);i++) exponent = (exponent * 10) + (s[i] - '0'); |
|
298
|
120273059 |
24570 |
while(exponent > 384) { |
|
308
|
24567 |
4 |
if(s[i] == 0) return result; |
|
309
|
3 |
1 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
3 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
3 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
3 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
3 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
311
|
3 |
0 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
|
0 |
3 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
321
|
1782 |
10 |
if(s[i] == 0) return result; |
|
322
|
7 |
3 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
7 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
7 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
7 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
|
7 |
0 |
if(s[i] != ' ' && s[i] != '\t' && s[i] != '\n' && s[i] != '\r' && s[i] != '\f') { |
|
324
|
7 |
0 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
|
0 |
7 |
if(SvIV(get_sv("Math::Decimal128::NNW", 0))) |
|
336
|
0 |
8 |
if(d128 == NULL) croak("Failed to allocate memory in DEC128_MAX() function"); |
|
354
|
0 |
9 |
if(d128 == NULL) croak("Failed to allocate memory in DEC128_MIN() function"); |
|
373
|
0 |
30 |
if(d128 == NULL) croak("Failed to allocate memory in NaND128 function"); |
|
390
|
0 |
18 |
if(d128 == NULL) croak("Failed to allocate memory in InfD128 function"); |
|
407
|
0 |
47728 |
if(d128 == NULL) croak("Failed to allocate memory in ZeroD128 function"); |
|
413
|
23862 |
23866 |
if(sign < 0) *d128 *= -1; |
|
425
|
0 |
2429 |
if(d128 == NULL) croak("Failed to allocate memory in UnityD128 function"); |
|
432
|
2426 |
3 |
if(sign < 0) *d128 *= -1; |
|
450
|
0 |
4868 |
if(d128 == NULL) croak("Failed to allocate memory in Exp10() function"); |
|
456
|
1804 |
3064 |
if(power < 0) { |
|
457
|
2448 |
1804 |
while(power < -1000) { |
|
461
|
2511 |
1804 |
while(power < -100) { |
|
465
|
11350 |
1804 |
while(power < -10) { |
|
469
|
9813 |
1804 |
while(power) { |
|
475
|
2256 |
3064 |
while(power > 1000) { |
|
479
|
2522 |
3064 |
while(power > 100) { |
|
483
|
14141 |
3064 |
while(power > 10) { |
|
487
|
13924 |
3064 |
while(power) { |
|
503
|
0 |
0 |
if(d128 == NULL) croak("Failed to allocate memory in _testvalD128() function"); |
|
510
|
0 |
0 |
if(sign < 0) *d128 *= -1; |
|
523
|
0 |
2 |
if(d128 == NULL) croak("Failed to allocate memory in _testvalD128() function"); |
|
530
|
1 |
1 |
if(sign < 0) *d128 *= -1; |
|
542
|
0 |
0 |
if(d128 == NULL) croak("Failed to allocate memory in _testvalD128() function"); |
|
549
|
0 |
0 |
if(sign < 0) *d128 *= -1; |
|
561
|
0 |
0 |
if(d128 == NULL) croak("Failed to allocate memory in _testvalD128() function"); |
|
568
|
0 |
0 |
if(sign < 0) *d128 *= -1; |
|
579
|
373673 |
0 |
int exp = (int)SvIV(exponent), i; |
|
583
|
0 |
373673 |
if(d128 == NULL) croak("Failed to allocate memory in MEtoD128() function"); |
|
597
|
190079 |
183594 |
if(exp < 0) { |
|
598
|
167758774 |
190079 |
for(i = 0; i > exp; --i) *d128 *= 1e-1DL; |
|
601
|
163975499 |
183594 |
for(i = 0; i < exp; ++i) *d128 *= 10.DL; |
|
611
|
11 |
0 |
int exp = (int)SvIV(c), i; |
|
625
|
6 |
5 |
if(exp < 0) { |
|
626
|
9 |
6 |
for(i = 0; i > exp; --i) *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) *= 1e-1DL; |
|
629
|
14802 |
5 |
for(i = 0; i < exp; ++i) *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) *= 10.DL; |
|
639
|
0 |
65 |
if(d128 == NULL) croak("Failed to allocate memory in NVtoD128 function"); |
|
644
|
62 |
3 |
*d128 = (D128)SvNV(x); |
|
657
|
0 |
17 |
if(d128 == NULL) croak("Failed to allocate memory in UVtoD128 function"); |
|
662
|
16 |
1 |
*d128 = (D128)SvUV(x); |
|
675
|
0 |
19 |
if(d128 == NULL) croak("Failed to allocate memory in IVtoD128 function"); |
|
680
|
19 |
0 |
*d128 = (D128)SvIV(x); |
|
692
|
0 |
23800 |
if(d128 == NULL) croak("Failed to allocate memory in PVtoD128 function"); |
|
744
|
2 |
0 |
if(sv_isobject(a)) { |
|
745
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
2 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
2 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
746
|
2 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
747
|
2 |
0 |
*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) = (D128)SvIV(val); |
|
757
|
1 |
0 |
if(sv_isobject(a)) { |
|
758
|
1 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
1 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
1 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
1 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
1 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
759
|
1 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
760
|
0 |
1 |
*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) = (D128)SvUV(val); |
|
770
|
2 |
0 |
if(sv_isobject(a)) { |
|
771
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
2 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
2 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
772
|
2 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
773
|
2 |
0 |
*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) = (D128)SvNV(val); |
|
787
|
1 |
0 |
if(sv_isobject(a) && sv_isobject(val)) { |
|
|
1 |
0 |
if(sv_isobject(a) && sv_isobject(val)) { |
|
788
|
1 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
1 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
1 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
1 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
1 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
789
|
1 |
0 |
const char * hh = HvNAME(SvSTASH(SvRV(val))); |
|
|
1 |
0 |
const char * hh = HvNAME(SvSTASH(SvRV(val))); |
|
|
0 |
1 |
const char * hh = HvNAME(SvSTASH(SvRV(val))); |
|
|
0 |
0 |
const char * hh = HvNAME(SvSTASH(SvRV(val))); |
|
|
1 |
0 |
const char * hh = HvNAME(SvSTASH(SvRV(val))); |
|
|
0 |
1 |
const char * hh = HvNAME(SvSTASH(SvRV(val))); |
|
790
|
1 |
0 |
if(strEQ(h, "Math::Decimal128") && strEQ(hh, "Math::Decimal128")) { |
|
|
1 |
0 |
if(strEQ(h, "Math::Decimal128") && strEQ(hh, "Math::Decimal128")) { |
|
801
|
2 |
0 |
if(sv_isobject(a)) { |
|
802
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
2 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
2 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
2 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
803
|
2 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
813
|
4 |
0 |
if(sv_isobject(a)) { |
|
814
|
4 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
4 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
4 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
4 |
0 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
4 |
const char * h = HvNAME(SvSTASH(SvRV(a))); |
|
815
|
4 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
829
|
0 |
41 |
if(d128 == NULL) croak("Failed to allocate memory in _overload_add function"); |
|
837
|
0 |
41 |
if(SvUOK(b)) { |
|
842
|
3 |
38 |
if(SvIOK(b)) { |
|
847
|
17 |
21 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
17 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
848
|
17 |
0 |
*d128 = *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) + _atodecimal(aTHX_ SvPV_nolen(b)); |
|
852
|
21 |
0 |
if(sv_isobject(b)) { |
|
853
|
21 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
21 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
21 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
21 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
21 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
854
|
21 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
869
|
0 |
2502 |
if(d128 == NULL) croak("Failed to allocate memory in _overload_mul function"); |
|
877
|
3 |
2499 |
if(SvUOK(b)) { |
|
882
|
65 |
2434 |
if(SvIOK(b)) { |
|
887
|
1 |
2433 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
1 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
888
|
1 |
0 |
*d128 = *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) * _atodecimal(aTHX_ SvPV_nolen(b)); |
|
892
|
2433 |
0 |
if(sv_isobject(b)) { |
|
893
|
2433 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2433 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2433 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
2433 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
2433 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
894
|
2433 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
909
|
0 |
36 |
if(d128 == NULL) croak("Failed to allocate memory in _overload_sub function"); |
|
917
|
0 |
36 |
if(SvUOK(b)) { |
|
918
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
923
|
6 |
30 |
if(SvIOK(b)) { |
|
924
|
0 |
6 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
6 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
6 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
6 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
2 |
4 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
2 |
4 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
929
|
14 |
16 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
14 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
930
|
0 |
14 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
14 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
14 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
14 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
14 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
14 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) - *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
931
|
14 |
0 |
else *d128 = *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) - _atodecimal(aTHX_ SvPV_nolen(b)); |
|
935
|
16 |
0 |
if(sv_isobject(b)) { |
|
936
|
16 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
16 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
16 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
16 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
16 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
937
|
16 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
958
|
0 |
4 |
if(d128 == NULL) croak("Failed to allocate memory in _overload_sub function"); |
|
976
|
0 |
30 |
if(d128 == NULL) croak("Failed to allocate memory in _overload_div function"); |
|
984
|
0 |
30 |
if(SvUOK(b)) { |
|
985
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvUV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
990
|
3 |
27 |
if(SvIOK(b)) { |
|
991
|
0 |
3 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
3 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
3 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
3 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
2 |
1 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
2 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
2 |
1 |
if(SWITCH_ARGS) *d128 = (D128)M_D128_SvIV(b) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
996
|
1 |
26 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
1 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
997
|
0 |
1 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
1 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
1 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
|
0 |
0 |
if(SWITCH_ARGS) *d128 = _atodecimal(aTHX_ SvPV_nolen(b)) / *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))); |
|
998
|
1 |
0 |
else *d128 = *(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) / _atodecimal(aTHX_ SvPV_nolen(b)); |
|
1002
|
26 |
0 |
if(sv_isobject(b)) { |
|
1003
|
26 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
26 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
26 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
26 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
26 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1004
|
26 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1017
|
0 |
103 |
if(SvUOK(b)) { |
|
1021
|
1 |
102 |
if(SvIOK(b)) { |
|
1026
|
1 |
101 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
1 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1027
|
1 |
0 |
*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) += _atodecimal(aTHX_ SvPV_nolen(b)); |
|
1031
|
101 |
0 |
if(sv_isobject(b)) { |
|
1032
|
101 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
101 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
101 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
101 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
101 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1033
|
101 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1048
|
0 |
4878 |
if(SvUOK(b)) { |
|
1052
|
7 |
4871 |
if(SvIOK(b)) { |
|
1057
|
1 |
4870 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
1 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1058
|
1 |
0 |
*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) *= _atodecimal(aTHX_ SvPV_nolen(b)); |
|
1062
|
4870 |
0 |
if(sv_isobject(b)) { |
|
1063
|
4870 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
4870 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
4870 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
4870 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
4870 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1064
|
4870 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1079
|
0 |
7368981 |
if(SvUOK(b)) { |
|
1083
|
2 |
7368979 |
if(SvIOK(b)) { |
|
1088
|
1 |
7368978 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
1 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1089
|
1 |
0 |
*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) -= _atodecimal(aTHX_ SvPV_nolen(b)); |
|
1093
|
7368978 |
0 |
if(sv_isobject(b)) { |
|
1094
|
7368978 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
7368978 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
7368978 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
7368978 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
7368978 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1095
|
7368978 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1110
|
0 |
22 |
if(SvUOK(b)) { |
|
1114
|
4 |
18 |
if(SvIOK(b)) { |
|
1119
|
1 |
17 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
1 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1120
|
1 |
0 |
*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) /= _atodecimal(aTHX_ SvPV_nolen(b)); |
|
1124
|
17 |
0 |
if(sv_isobject(b)) { |
|
1125
|
17 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
17 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
17 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
17 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
17 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1126
|
17 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1139
|
1 |
126 |
if(SvUOK(b)) { |
|
1140
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1144
|
8 |
118 |
if(SvIOK(b)) { |
|
1145
|
8 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1149
|
9 |
109 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
9 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1150
|
9 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
9 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1154
|
108 |
1 |
if(sv_isobject(b)) { |
|
1155
|
108 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
108 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
108 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
108 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
108 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1156
|
108 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1157
|
103 |
5 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv(1); |
|
1167
|
1 |
232102 |
if(SvUOK(b)) { |
|
1168
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) != (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1172
|
1 |
232101 |
if(SvIOK(b)) { |
|
1173
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) != (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1177
|
3 |
232098 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
3 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1178
|
3 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) != _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
3 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) != _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1182
|
232098 |
0 |
if(sv_isobject(b)) { |
|
1183
|
232098 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
232098 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
232098 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
232098 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
232098 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1184
|
232098 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1185
|
232079 |
19 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv(0); |
|
1195
|
2 |
23878 |
if(SvUOK(b)) { |
|
1196
|
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) { |
|
1197
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1200
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1204
|
4 |
23874 |
if(SvIOK(b)) { |
|
1205
|
0 |
4 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
2 |
2 |
if(SWITCH_ARGS) { |
|
|
2 |
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) { |
|
|
2 |
2 |
if(SWITCH_ARGS) { |
|
1206
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1209
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1213
|
3 |
23871 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
3 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1214
|
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) { |
|
1215
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1218
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1222
|
23870 |
1 |
if(sv_isobject(b)) { |
|
1223
|
23870 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
23870 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
23870 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
23870 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
23870 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1224
|
23870 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1225
|
23868 |
2 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv(1); |
|
1235
|
2 |
6445568 |
if(SvUOK(b)) { |
|
1236
|
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) { |
|
1237
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1240
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1244
|
6445554 |
14 |
if(SvIOK(b)) { |
|
1245
|
0 |
6445554 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
6445554 |
0 |
if(SWITCH_ARGS) { |
|
|
6445554 |
0 |
if(SWITCH_ARGS) { |
|
|
6445554 |
0 |
if(SWITCH_ARGS) { |
|
|
2 |
6445552 |
if(SWITCH_ARGS) { |
|
|
2 |
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) { |
|
|
2 |
6445552 |
if(SWITCH_ARGS) { |
|
1246
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1249
|
4180122 |
2265430 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1253
|
4 |
10 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
4 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1254
|
0 |
4 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
1 |
3 |
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 |
3 |
if(SWITCH_ARGS) { |
|
1255
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1258
|
3 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
3 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1262
|
9 |
1 |
if(sv_isobject(b)) { |
|
1263
|
9 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
9 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
9 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
9 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
9 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1264
|
9 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1265
|
8 |
1 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv(1); |
|
1275
|
3 |
23 |
if(SvUOK(b)) { |
|
1276
|
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) { |
|
|
2 |
1 |
if(SWITCH_ARGS) { |
|
|
2 |
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) { |
|
|
2 |
1 |
if(SWITCH_ARGS) { |
|
1277
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1280
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1284
|
5 |
18 |
if(SvIOK(b)) { |
|
1285
|
0 |
5 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
5 |
0 |
if(SWITCH_ARGS) { |
|
|
5 |
0 |
if(SWITCH_ARGS) { |
|
|
5 |
0 |
if(SWITCH_ARGS) { |
|
|
3 |
2 |
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 |
2 |
if(SWITCH_ARGS) { |
|
1286
|
3 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1289
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1293
|
4 |
14 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
4 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1294
|
0 |
4 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
2 |
2 |
if(SWITCH_ARGS) { |
|
|
2 |
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) { |
|
|
2 |
2 |
if(SWITCH_ARGS) { |
|
1295
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1298
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1302
|
13 |
1 |
if(sv_isobject(b)) { |
|
1303
|
13 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
13 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
13 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
13 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
13 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1304
|
13 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1305
|
12 |
1 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv(1); |
|
1315
|
3 |
11549119 |
if(SvUOK(b)) { |
|
1316
|
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) { |
|
|
2 |
1 |
if(SWITCH_ARGS) { |
|
|
2 |
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) { |
|
|
2 |
1 |
if(SWITCH_ARGS) { |
|
1317
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1320
|
1 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= (D128)M_D128_SvUV(b)) return newSViv(1); |
|
1324
|
5 |
11549114 |
if(SvIOK(b)) { |
|
1325
|
0 |
5 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
5 |
0 |
if(SWITCH_ARGS) { |
|
|
5 |
0 |
if(SWITCH_ARGS) { |
|
|
5 |
0 |
if(SWITCH_ARGS) { |
|
|
3 |
2 |
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 |
2 |
if(SWITCH_ARGS) { |
|
1326
|
3 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1329
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= (D128)M_D128_SvIV(b)) return newSViv(1); |
|
1333
|
4 |
11549110 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
4 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1334
|
0 |
4 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
0 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
4 |
0 |
if(SWITCH_ARGS) { |
|
|
2 |
2 |
if(SWITCH_ARGS) { |
|
|
2 |
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) { |
|
|
2 |
2 |
if(SWITCH_ARGS) { |
|
1335
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) <= _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1338
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
|
2 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(1); |
|
1342
|
11549109 |
1 |
if(sv_isobject(b)) { |
|
1343
|
11549109 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
11549109 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
11549109 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
11549109 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
11549109 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1344
|
11549109 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1345
|
7368988 |
4180121 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) >= *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv(1); |
|
1355
|
0 |
49 |
if(SWITCH_ARGS) reversal = -1; |
|
|
0 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
0 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
49 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
49 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
49 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
16 |
33 |
if(SWITCH_ARGS) reversal = -1; |
|
|
16 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
0 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
0 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
0 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
0 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
0 |
0 |
if(SWITCH_ARGS) reversal = -1; |
|
|
16 |
33 |
if(SWITCH_ARGS) reversal = -1; |
|
1357
|
9 |
40 |
if(SvUOK(b)) { |
|
1358
|
2 |
7 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > (D128)M_D128_SvUV(b)) return newSViv( 1 * reversal); |
|
1359
|
2 |
5 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < (D128)M_D128_SvUV(b)) return newSViv(-1 * reversal); |
|
1360
|
3 |
2 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == (D128)M_D128_SvUV(b)) return newSViv(0); |
|
1364
|
11 |
29 |
if(SvIOK(b)) { |
|
1365
|
2 |
9 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > (D128)M_D128_SvIV(b)) return newSViv( 1 * reversal); |
|
1366
|
4 |
5 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < (D128)M_D128_SvIV(b)) return newSViv(-1 * reversal); |
|
1367
|
3 |
2 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == (D128)M_D128_SvIV(b)) return newSViv(0); |
|
1371
|
9 |
20 |
if(SvPOK(b) && !SvNOK(b)) { |
|
|
9 |
0 |
if(SvPOK(b) && !SvNOK(b)) { |
|
1372
|
9 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv( 1 * reversal); |
|
|
2 |
7 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv( 1 * reversal); |
|
1373
|
7 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(-1 * reversal); |
|
|
2 |
5 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(-1 * reversal); |
|
1374
|
5 |
0 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(0); |
|
|
3 |
2 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == _atodecimal(aTHX_ SvPV_nolen(b))) return newSViv(0); |
|
1378
|
19 |
1 |
if(sv_isobject(b)) { |
|
1379
|
19 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
19 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
19 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
19 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
19 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1380
|
19 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1381
|
4 |
15 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) < *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv(-1 * reversal); |
|
1382
|
4 |
11 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) > *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv( 1 * reversal); |
|
1383
|
6 |
5 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) == *(INT2PTR(D128 *, M_D128_SvIV(SvRV(b))))) return newSViv(0); |
|
1397
|
0 |
188679 |
if(d128 == NULL) croak("Failed to allocate memory in _overload_copy function"); |
|
1412
|
25 |
0 |
if(sv_isobject(a)) { |
|
1413
|
25 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
25 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
25 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
25 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
25 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
1414
|
25 |
0 |
if(strEQ(h, "Math::Decimal128")) { |
|
1417
|
0 |
25 |
if(d128 == NULL) croak("Failed to allocate memory in D128toD128 function"); |
|
1434
|
2 |
4 |
if(_is_nan(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))))) return newSViv(0); |
|
1435
|
3 |
1 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) != 0.DL) return newSViv(1); |
|
1440
|
1 |
63 |
if(_is_nan(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))))) return newSViv(1); |
|
1441
|
49 |
14 |
if(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(a)))) != 0.DL) return newSViv(0); |
|
1451
|
0 |
2 |
if(d128 == NULL) croak("Failed to allocate memory in _overload_abs function"); |
|
1460
|
1 |
1 |
if(_is_neg_zero(*d128) || *d128 < 0 ) *d128 *= -1.DL; |
|
|
1 |
0 |
if(_is_neg_zero(*d128) || *d128 < 0 ) *d128 *= -1.DL; |
|
1477
|
14 |
136 |
if(SvUOK(a)) return newSVuv(1); |
|
1478
|
17 |
119 |
if(SvIOK(a)) return newSVuv(2); |
|
1479
|
4 |
115 |
if(SvNOK(a)) return newSVuv(3); |
|
1480
|
74 |
41 |
if(SvPOK(a)) return newSVuv(4); |
|
1481
|
41 |
0 |
if(sv_isobject(a)) { |
|
1482
|
41 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
41 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
41 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
41 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
|
0 |
41 |
const char *h = HvNAME(SvSTASH(SvRV(a))); |
|
1483
|
37 |
4 |
if(strEQ(h, "Math::Decimal128")) return newSVuv(34); |
|
1489
|
49495 |
0 |
if(sv_isobject(b)) { |
|
1490
|
49495 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
49495 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
49495 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
49495 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
49495 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1491
|
49495 |
0 |
if(strEQ(h, "Math::Decimal128")) |
|
1498
|
49574 |
0 |
if(sv_isobject(b)) { |
|
1499
|
49574 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
49574 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
49574 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
49574 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
49574 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1500
|
49574 |
0 |
if(strEQ(h, "Math::Decimal128")) |
|
1507
|
227656 |
0 |
if(sv_isobject(b)) { |
|
1508
|
227656 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
227656 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
227656 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
227656 |
0 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
|
0 |
227656 |
const char *h = HvNAME(SvSTASH(SvRV(b))); |
|
1509
|
227656 |
0 |
if(strEQ(h, "Math::Decimal128")) |
|
1510
|
690 |
226966 |
if (_is_neg_zero(*(INT2PTR(D128 *, M_D128_SvIV(SvRV(b)))))) return newSViv(-1); |
|
1511
|
520 |
226446 |
if (*(INT2PTR(D128 *, M_D128_SvIV(SvRV(b)))) == 0.DL) return newSViv(1); |
|
1537
|
3190608 |
199413 |
for (i = n - 1; i >= 0; i--) { |
|
1541
|
0 |
3190608 |
XPUSHs(sv_2mortal(newSVpv(buff, 0))); |
|
1556
|
0 |
184713 |
if(d128 == NULL) croak("Failed to allocate memory in _bid_mant function"); |
|
1558
|
21057282 |
184713 |
for(i = 0; i <= imax; i++) |
|
1559
|
0 |
21057282 |
if(SvIV(*(av_fetch((AV*)SvRV(bin), i, 0)))) val += add_on[i]; |
|
|
5094959 |
15962323 |
if(SvIV(*(av_fetch((AV*)SvRV(bin), i, 0)))) val += add_on[i]; |
|
1565
|
0 |
184713 |
if(val > 9999999999999999999999999999999999e0DL) val = 0.DL; |
|
1595
|
0 |
6 |
if(d128 == NULL) croak("Failed to allocate memory in DPDtoD128 function"); |
|
1600
|
96 |
6 |
for (i = n - 1; i >= 0; i--) |
|
1623
|
96 |
6 |
for (i = n - 1; i >= 0; i--) |
|
1630
|
6 |
0 |
*(INT2PTR(D128 *, SvIV(SvRV(a)))) = out; |
|
1647
|
0 |
0 |
if(looks_like_number(x)) return 1; |
|
1775
|
11 |
0 |
if (PL_markstack_ptr != temp) { |
|
1837
|
828704 |
0 |
if (PL_markstack_ptr != temp) { |
|
1854
|
2 |
0 |
if (PL_markstack_ptr != temp) { |
|
1871
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1888
|
2 |
0 |
if (PL_markstack_ptr != temp) { |
|
1905
|
25101 |
0 |
if (PL_markstack_ptr != temp) { |
|
1922
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
1938
|
2 |
0 |
if (PL_markstack_ptr != temp) { |
|
1955
|
4 |
0 |
if (PL_markstack_ptr != temp) { |
|
2218
|
0 |
199413 |
if (PL_markstack_ptr != temp) { |
|
2256
|
6 |
0 |
if (PL_markstack_ptr != temp) { |
|
2276
|
1 |
0 |
if (PL_markstack_ptr != temp) { |
|
2292
|
1 |
0 |
if (PL_markstack_ptr != temp) { |