Revised Fortran implementation of libxsmm_xdiff and removed _Bool dep…

…endency (see 32b687d#commitcomment-40121284).
libxsmm · Jun 24, 2020 · 143409c · 143409c
1 parent 9c53fc9
commit 143409c
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 7 deletions.
diff --git a/include/libxsmm_macros.h b/include/libxsmm_macros.h
@@ -810,9 +810,6 @@ LIBXSMM_API_INLINE int libxsmm_nonconst_int(int i) { return i; }
 #   define FLT_MIN __FLT_MIN__
 # endif
 #endif
-#if !defined(_Bool)
-# define _Bool int
-#endif
 #if defined(_WIN32) && 0
 # define LIBXSMM_SNPRINTF(S, N, ...) _snprintf_s(S, N, _TRUNCATE, __VA_ARGS__)
 #elif defined(__STDC_VERSION__) && (199901L <= __STDC_VERSION__ || defined(__GNUC__))

diff --git a/src/libxsmm_memory.c b/src/libxsmm_memory.c
@@ -436,15 +436,15 @@ LIBXSMM_API void LIBXSMM_FSYMBOL(libxsmm_xhash)(int* hash_seed, const void* data
 
 
 /* implementation provided for Fortran 77 compatibility */
-LIBXSMM_API void LIBXSMM_FSYMBOL(libxsmm_xdiff)(_Bool* /*result*/, const void* /*a*/, const void* /*b*/, const long long* /*size*/);
-LIBXSMM_API void LIBXSMM_FSYMBOL(libxsmm_xdiff)(_Bool* result, const void* a, const void* b, const long long* size)
+LIBXSMM_API void LIBXSMM_FSYMBOL(libxsmm_xdiff)(int* /*result*/, const void* /*a*/, const void* /*b*/, const long long* /*size*/);
+LIBXSMM_API void LIBXSMM_FSYMBOL(libxsmm_xdiff)(int* result, const void* a, const void* b, const long long* size)
 {
 #if !defined(NDEBUG)
   static int error_once = 0;
   if (NULL != result && NULL != a && NULL != b && NULL != size && 0 <= *size)
 #endif
   {
-    *result = (_Bool)libxsmm_memcmp(a, b, (size_t)*size);
+    *result = libxsmm_memcmp(a, b, (size_t)*size);
   }
 #if !defined(NDEBUG)
   else if (0 != libxsmm_verbosity /* library code is expected to be mute */

diff --git a/version.txt b/version.txt
@@ -1 +1 @@
-master-1.16-10
+master-1.16-4