summaryrefslogtreecommitdiff
path: root/configure.com
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-12-15 19:17:06 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-12-15 19:17:06 +0000
commit28e5dec85047e189010079efa89eed07bc9eddc8 (patch)
treedd941df355c40cba395e514551ea847e8d07edfd /configure.com
parentc11ecd62a73b5b39df29fd460e1c4451c6e0e8af (diff)
downloadperl-28e5dec85047e189010079efa89eed07bc9eddc8.tar.gz
Return of the IVUV-preservation, now seems to be happy even
in Digital UNIX (the broken strtoul brokenness detection seems to have been the fly in the ointment). p4raw-id: //depot/perl@8138
Diffstat (limited to 'configure.com')
-rw-r--r--configure.com18
1 files changed, 18 insertions, 0 deletions
diff --git a/configure.com b/configure.com
index 13b0d17af4..36bf11e053 100644
--- a/configure.com
+++ b/configure.com
@@ -3614,6 +3614,24 @@ $ tmp = "strtoq"
$ GOSUB inlibc
$ d_strtoq = tmp
$!
+$! Check for strtoq
+$!
+$ OS
+$ WS "#if defined(__DECC) || defined(__DECCXX)"
+$ WS "#include <stdlib.h>"
+$ WS "#endif"
+$ WS "#include <string.h>"
+$ WS "int main()"
+$ WS "{"
+$ WS "__int64 result;"
+$ WS "result = strtoq(""123123"", NULL, 10);"
+$ WS "exit(0);"
+$ WS "}"
+$ CS
+$ tmp = "strtoq"
+$ GOSUB inlibc
+$ d_strtoq = tmp
+$!
$! Check for strtold
$!
$ OS