config_sh.PL - support C99 math for mingw
authorsisyphus <sisyphus@cpan.org>
Thu, 25 Oct 2018 08:28:18 +0000 (19:28 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 11 Dec 2018 04:43:21 +0000 (15:43 +1100)
win32/config_sh.PL

index 652bc97..1d22aed 100644 (file)
@@ -212,11 +212,7 @@ if ($opt{uselongdouble} eq 'define') {
     $opt{d_PRIEUldbl} = 'define';
     $opt{d_PRIFUldbl} = 'define';
     $opt{d_PRIGUldbl} = 'define';
-    $opt{d_frexpl} = 'define';
-    $opt{d_isnanl} = 'define';
-    $opt{d_modfl} = 'define';
     $opt{d_modflproto} = 'define';
-    $opt{d_sqrtl} = 'define';
     $opt{d_strtold} = 'define';
     $opt{d_PRIeldbl} = 'define';
     $opt{d_PRIfldbl} = 'define';
@@ -239,11 +235,14 @@ else {
     $opt{d_PRIEUldbl} = 'undef';
     $opt{d_PRIFUldbl} = 'undef';
     $opt{d_PRIGUldbl} = 'undef';
-    $opt{d_frexpl} = 'undef';
-    $opt{d_isnanl} = 'undef';
-    $opt{d_modfl} = 'undef';
-    $opt{d_modflproto} = 'undef';
-    $opt{d_sqrtl} = 'undef';
+
+    if($opt{cc} =~ /\b(?:cl|icl)/) {
+        $opt{d_modflproto} = 'undef';
+    }
+    else {
+        $opt{d_modflproto} = 'define';
+    }
+
     $opt{d_strtold} = 'undef';
     $opt{d_PRIeldbl} = 'undef';
     $opt{d_PRIfldbl} = 'undef';