summaryrefslogtreecommitdiff
path: root/Configure
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2016-07-17 10:48:12 +0300
committerJarkko Hietaniemi <jhi@iki.fi>2016-07-17 11:01:37 +0300
commit234b86dfbf86ead1bb11552473feb1a73b654443 (patch)
treec9b2ccf0ca6fc37b8da27732d23f84f5d88075cc /Configure
parentf2e32b2c677945ce6a36531a7cd5696dc1ca2cef (diff)
downloadperl-234b86dfbf86ead1bb11552473feb1a73b654443.tar.gz
VAX: Configure: the VAX fp not really little-endian
Diffstat (limited to 'Configure')
-rwxr-xr-xConfigure12
1 files changed, 6 insertions, 6 deletions
diff --git a/Configure b/Configure
index 944bf66b51..3a963510ec 100755
--- a/Configure
+++ b/Configure
@@ -10145,7 +10145,7 @@ int main() {
exit(0);
}
if (b[0] == 0xCC && b[3] == 0xCC) {
- /* VAX format F */
+ /* VAX format F, 32-bit PDP-style mixed endian. */
printf("9\n");
exit(0);
}
@@ -10176,12 +10176,12 @@ int main() {
exit(0);
}
if (b[0] == 0xCC && b[7] == 0xCC) {
- /* VAX format D, 64-bit little-endian. */
+ /* VAX format D, 64-bit PDP-style mixed endian. */
printf("10\n");
exit(0);
}
if (b[0] == 0xD9 && b[7] == 0x99) {
- /* VAX format G, 64-bit little-endian. */
+ /* VAX format G, 64-bit PDP-style mixed endian. */
printf("11\n");
exit(0);
}
@@ -10219,9 +10219,9 @@ case "$doublekind" in
6) echo "You have IEEE 754 128-bit big endian doubles." >&4 ;;
7) echo "You have IEEE 754 64-bit mixed endian doubles (32-bit LEs in BE)." >&4 ;;
8) echo "You have IEEE 754 64-bit mixed endian doubles (32-bit BEs in LE)." >&4 ;;
-9) echo "You have VAX format F 32-bit little-endian doubles." >&4 ;;
-10) echo "You have VAX format D 64-bit little-endian doubles." >&4 ;;
-11) echo "You have VAX format G 64-bit little-endian doubles." >&4 ;;
+9) echo "You have VAX format F 32-bit PDP-style mixed endian doubles." >&4 ;;
+10) echo "You have VAX format D 64-bit PDP-style mixed endian doubles." >&4 ;;
+11) echo "You have VAX format G 64-bit PDP-style mixed endian doubles." >&4 ;;
*) echo "Cannot figure out your double. You CRAY, or something?" >&4 ;;
esac
$rm_try