1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
Description: Fix spelling errors
Author: Angel Abad <angel@debian.org>
Forwarded: yes
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=118537
Last-Updated: 2016-10-29
--- a/MPFR.xs
+++ b/MPFR.xs
@@ -5836,7 +5836,7 @@
croak("2nd arg to Math::MPFR::_d_bytes_fr must be 53");
if(mpfr_get_prec(*str) != 53)
- croak("Precison of 1st arg supplied to _d_bytes_fr must be 53, not %u", mpfr_get_prec(*str));
+ croak("Precision of 1st arg supplied to _d_bytes_fr must be 53, not %u", mpfr_get_prec(*str));
if((size_t)bits != DBL_MANT_DIG)
croak("2nd arg (%u) supplied to Math::MPFR::_d_bytes_fr does not match DBL_MANT_DIG (%u)", bits, DBL_MANT_DIG);
@@ -5937,7 +5937,7 @@
croak("2nd arg to Math::MPFR::_dd_bytes must be 106");
if(mpfr_get_prec(*str) != 2098)
- croak("Precison of 1st arg supplied to _dd_bytes_fr must be 2098, not %u", mpfr_get_prec(*str));
+ croak("Precision of 1st arg supplied to _dd_bytes_fr must be 2098, not %u", mpfr_get_prec(*str));
mpfr_init2(temp, 2098);
@@ -6049,7 +6049,7 @@
}
if(mpfr_get_prec(*str) != bits)
- croak("Precison of 1st arg (%u) supplied to _ld_bytes_fr must match 2nd arg (%d)", mpfr_get_prec(*str), bits);
+ croak("Precision of 1st arg (%u) supplied to _ld_bytes_fr must match 2nd arg (%d)", mpfr_get_prec(*str), bits);
if((size_t)bits != LDBL_MANT_DIG)
croak("2nd arg (%u) supplied to Math::MPFR::_ld_bytes_fr does not match LDBL_MANT_DIG (%u)", bits, LDBL_MANT_DIG);
@@ -6155,7 +6155,7 @@
croak("2nd arg to Math::MPFR::_f128_bytes_fr must be 113");
if(mpfr_get_prec(*str) != 113)
- croak("Precison of 1st arg supplied to _f128_bytes_fr must be 113, not %u", mpfr_get_prec(*str));
+ croak("Precision of 1st arg supplied to _f128_bytes_fr must be 113, not %u", mpfr_get_prec(*str));
if((size_t)bits != FLT128_MANT_DIG)
croak("2nd arg (%u) supplied to Math::MPFR::_f128_bytes_fr does not match FLT128_MANT_DIG (%u)", bits, FLT128_MANT_DIG);
--- a/t/bytes.t
+++ b/t/bytes.t
@@ -277,7 +277,7 @@
eval {Math::MPFR::_d_bytes_fr($fr_breaker, 53);};
-if($@ =~ /^Precison of 1st arg supplied to _d_bytes_fr must be 53, not 200/) {print "ok 14\n"}
+if($@ =~ /^Precision of 1st arg supplied to _d_bytes_fr must be 53, not 200/) {print "ok 14\n"}
else {
warn "\$\@: $@\n";
print "not ok 14\n";
@@ -285,7 +285,7 @@
eval {Math::MPFR::_dd_bytes_fr($fr_breaker, 106);};
-if($@ =~ /^Precison of 1st arg supplied to _dd_bytes_fr must be 2098, not 200/) {print "ok 15\n"}
+if($@ =~ /^Precision of 1st arg supplied to _dd_bytes_fr must be 2098, not 200/) {print "ok 15\n"}
else {
warn "\$\@: $@\n";
print "not ok 15\n";
@@ -294,7 +294,7 @@
eval {Math::MPFR::_ld_bytes_fr($fr_breaker, 64);};
-if($@ =~ /^Precison of 1st arg \(200\) supplied to _ld_bytes_fr must match 2nd arg \(64\)/) {print "ok 16\n"}
+if($@ =~ /^Precision of 1st arg \(200\) supplied to _ld_bytes_fr must match 2nd arg \(64\)/) {print "ok 16\n"}
else {
warn "\$\@: $@\n";
print "not ok 16\n";
@@ -302,7 +302,7 @@
eval {Math::MPFR::_f128_bytes_fr($fr_breaker, 113);};
-if($@ =~ /^Precison of 1st arg supplied to _f128_bytes_fr must be 113, not 200/ ||
+if($@ =~ /^Precision of 1st arg supplied to _f128_bytes_fr must be 113, not 200/ ||
$@ =~ /^__float128 support not built into this Math::MPFR/) {print "ok 17\n"}
else {
warn "\$\@: $@\n";
@@ -377,7 +377,7 @@
eval{$h = Math::MPFR::bytes($d_fr, 'Long Double');};
-if($@ =~ /^Precison of 1st arg \(53\) supplied to _ld_bytes_fr must match 2nd arg \(64\)/) {print "ok 22\n"}
+if($@ =~ /^Precision of 1st arg \(53\) supplied to _ld_bytes_fr must match 2nd arg \(64\)/) {print "ok 22\n"}
else {
warn "\$\@: $@";
print "not ok 22\n";
--- a/MPFR.pm
+++ b/MPFR.pm
@@ -1094,7 +1094,7 @@
the entire string is a valid number in base $base. otherwise
it returns -1.
If -1 is returned:
- 1) the non-numeric flag (which was initalised to 0) will be
+ 1) the non-numeric flag (which was initialised to 0) will be
incremented. You can query/clear/reset the value of the
flag with (resp.) nnumflag()/clear_nnum()/set_nnum() - all
of which are documented below (in "MISCELLANEOUS");
@@ -1258,7 +1258,7 @@
rounded to direction $rnd. If $str was a valid number, then
$si will be set to 0. Else it will be set to -1.
If $si is -1 :
- 1) the non-numeric flag (which was initalised to 0) will be
+ 1) the non-numeric flag (which was initialised to 0) will be
incremented. You can query/clear/reset the value of the
flag with (resp.) nnumflag()/clear_nnum()/set_nnum() - all
of which are documented below (in "MISCELLANEOUS");
@@ -1949,7 +1949,7 @@
Return the number of bytes read, or if non-numeric characters were
encountered in the input, return 0.
If 0 is returned:
- 1) the non-numeric flag (which was initalised to 0) will be
+ 1) the non-numeric flag (which was initialised to 0) will be
incremented. You can query/clear/reset the value of the
flag with (resp.) nnumflag()/clear_nnum()/set_nnum() - all
of which are documented below;
@@ -2785,7 +2785,7 @@
which will set $max_len to 15.
That is, so long as your base 10 float consists of no more than 15
- siginificant digits, you can pass it to a 53-bit double and back again,
+ significant digits, you can pass it to a 53-bit double and back again,
and be assured of retrieving the original value.
(Again, we assume absence of bugs and correct rounding practice.)
|
