This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f7a48a8
)
Little-endian double-double detection was wrong.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 17 Aug 2014 17:50:08 +0000
(13:50 -0400)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 17 Aug 2014 18:25:37 +0000
(14:25 -0400)
Configure
patch
|
blob
|
blame
|
history
diff --git
a/Configure
b/Configure
index
817b515
..
aab3f03
100755
(executable)
--- a/
Configure
+++ b/
Configure
@@
-16017,8
+16017,9
@@
int main() {
#endif
#if LDBL_MANT_DIG == 106 && LONGDBLSIZE == 16
/* software "double double", the 106 is 53+53 */
- if (b[0] == 0xCD && b[7] == 0x3C && b[8] == 0x9A && b[15] == 0xBF) {
- /* double double 128-bit little-endian */
+ if (b[0] == 0x9A && b[7] == 0x3C && b[8] == 0x9A && b[15] == 0xBF) {
+ /* double double 128-bit little-endian,
+ * 9a 99 99 99 99 99 59 3c 9a 99 99 99 99 99 b9 bf */
printf("5\n");
exit(0);
}