Define $Config{i_stdckdint} and 'I_STDCKDINT' when stdckdint.h is locatable && functional.

For more info and context, see:
#23703

Author: sisyphus

MANIFEST

@@ -6788,6 +6788,7 @@ win32/config_H.gc			Win32 config header (MinGW build)
 win32/config_h.PL			Perl code to convert Win32 config.sh to config.h
 win32/config_H.vc			Win32 config header (Visual C++ build)
 win32/config_sh.PL			Perl code to update Win32 config.sh from Makefile
+win32/configure/have_stdckdint.c	check for availability of stdckdint.h
 win32/configure/rt.c			identify default runtime
 win32/create_perllibst_h.pl		creates perllibst.h file for inclusion from perllib.c
 win32/distclean.bat			Remove _ALL_ files not listed here in MANIFEST

win32/config_sh.PL

@@ -158,6 +158,12 @@ if (exists $opt{cc}) {
         chomp($opt{libc} = `$opt{cc} -o rt.exe configure/rt.c 1>nul 2>&1 && rt`);
         if(-e 'rt.exe') { unlink 'rt.exe' } # rt.exe no longer needed
         else { die "Failed to identify default runtime" }
+
+        `$opt{cc} -o have_stdckdint.exe configure/have_stdckdint.c 1>nul 2>&1`;
+        if(-e 'have_stdckdint.exe') {
+          $opt{i_stdckdint} = 'define' if `have_stdckdint` eq '0';
+          unlink 'have_stdckdint.exe'; # have_stdckdint.exe no longer needed
+        }
     }
 }
 

win32/configure/have_stdckdint.c

@@ -0,0 +1,45 @@
+/*
+ Check whether stdckdint.h functionality is available.
+ If it's available, then 'have_stdckdint.exe' will be created
+ by config_sh.PL.
+ $Config{i_stdckdint} and the XS symbol I_STDCKDINT will be
+ defined if and only if 'have_stdckdint.exe' prints '0'
+ when executed.
+ Else $Config{i_stdckdint} and I_STDCKDINT will be undef.
+
+ The stdckdint.h functionality should be available only if
+ gcc version >= 14 && $Config{cc} is 'gcc'.
+*/
+
+#include <stdio.h>
+#include <stdckdint.h>
+int func_l(long *resultptr, long a, long b) {
+    return (ckd_add(resultptr, a, b) ||
+	    ckd_sub(resultptr, a, b) ||
+	    ckd_mul(resultptr, a, b)) ? 1 : 0;
+}
+
+int func_ll(long long *resultptr, long long a, long long b) {
+    return (ckd_add(resultptr, a, b) ||
+	    ckd_sub(resultptr, a, b) ||
+	    ckd_mul(resultptr, a, b)) ? 1 : 0;
+}
+
+int main(int argc, char **argv) {
+    long lresult_1, lresult_2;
+    long long llresult_1, llresult_2;
+    int ret, lret_1, lret_2, llret_1, llret_2;
+    lret_1 = func_l(&lresult_1, 42L, 53L);
+    lret_2 = func_l(&lresult_2, 10485777L, 1048555L);
+    llret_1 = func_ll(&llresult_1, 42LL, 53LL);
+    llret_2 = func_ll(&llresult_2, 34359738333LL, 34359738887LL);
+
+    if(lret_1 == 0 && llret_1 == 0 &&
+       lret_2 == 1 && llret_2 == 1 &&
+       lresult_1 == 2226L && llresult_1 == 2226LL &&
+       lresult_2 == -202375525L && llresult_2 == 16630113351947LL )  ret = 0;
+    else ret = -1;
+    printf("%d", ret);
+    return 0;
+}
+