# HG changeset patch
# User Jean-Francois Pieronne <jf.pieronne@laposte.net>
# Date 1670756463 -3600
#      Sun Dec 11 12:01:03 2022 +0100
# Branch OpenVMS
# Node ID 828cd7e99755f7db0cff9cb601dd4f2675907e71
# Parent  a25a2f206296475b499a1106dfb8e37c3f61c1b7
Update src files for OpenVMS

diff --git a/runsuite.c b/runsuite.c
--- a/runsuite.c
+++ b/runsuite.c
@@ -83,7 +83,11 @@
 static int nb_leaks = 0;
 static int extraMemoryFromResolver = 0;
 
+#ifdef __VMS
+static void
+#else
 static int
+#endif
 fatalError(void) {
     fprintf(stderr, "Exitting tests on fatal error\n");
     exit(1);
diff --git a/runtest.c b/runtest.c
--- a/runtest.c
+++ b/runtest.c
@@ -213,7 +213,11 @@
 static int nb_leaks = 0;
 static int extraMemoryFromResolver = 0;
 
+#ifdef __VMS
+static void
+#else
 static int
+#endif
 fatalError(void) {
     fprintf(stderr, "Exitting tests on fatal error\n");
     exit(1);
diff --git a/testrecurse.c b/testrecurse.c
--- a/testrecurse.c
+++ b/testrecurse.c
@@ -276,7 +276,11 @@
 static int nb_leaks = 0;
 static int extraMemoryFromResolver = 0;
 
+#ifdef __VMS
+static void
+#else
 static int
+#endif
 fatalError(void) {
     fprintf(stderr, "Exitting tests on fatal error\n");
     exit(1);
diff --git a/trio.c b/trio.c
--- a/trio.c
+++ b/trio.c
@@ -89,7 +89,7 @@
 
 #include <assert.h>
 #include <ctype.h>
-#if !defined(TRIO_COMPILER_SUPPORTS_C99)
+#if !defined(TRIO_COMPILER_SUPPORTS_C99) && ! defined(TRIO_PLATFORM_VMS)
 # define isblank(x) (((x)==32) || ((x)==9))
 #endif
 #if defined(TRIO_COMPILER_ANCIENT)
@@ -6435,7 +6435,9 @@
 
   assert(VALID(self));
   assert(VALID(self->location));
+#ifndef TRIO_PLATFORM_VMS
   assert(VALID(file));
+#endif
 
   file = (FILE *)self->location;
 
diff --git a/triodef.h b/triodef.h
--- a/triodef.h
+++ b/triodef.h
@@ -92,7 +92,7 @@
 #  if (__STDC_VERSION__ >= 199409L)
 #   define TRIO_COMPILER_SUPPORTS_C94
 #  endif
-#  if (__STDC_VERSION__ >= 199901L)
+#  if (__STDC_VERSION__ >= 199901L) && ! defined(TRIO_PLATFORM_VMS)
 #   define TRIO_COMPILER_SUPPORTS_C99
 #  endif
 # elif defined(TRIO_COMPILER_SUNPRO)
diff --git a/trionan.c b/trionan.c
--- a/trionan.c
+++ b/trionan.c
@@ -562,7 +562,7 @@
 	   double number,
 	   int *is_negative)
 {
-#if defined(fpclassify) && defined(signbit)
+#if defined(fpclassify) && defined(signbit) && ! defined(TRIO_PLATFORM_VMS)
   /*
    * C99 defines fpclassify() and signbit() as a macros
    */