For some reason, the original code gets miscompiled on x86_64, leading
'Java_java_io_VMFile_isFile' to return true when the return value of
'cpio_checkType' is ENOENT (= 2).

See <https://issues.guix.gnu.org/issue/36685>
and <https://issues.guix.gnu.org/49990>.

diff --git a/native/jni/java-io/java_io_VMFile.c b/native/jni/java-io/java_io_VMFile.c
index de1320b..6695e1f 100644
--- a/native/jni/java-io/java_io_VMFile.c
+++ b/native/jni/java-io/java_io_VMFile.c
@@ -240,6 +240,7 @@ Java_java_io_VMFile_exists (JNIEnv * env,
 #ifndef WITHOUT_FILESYSTEM
   const char *filename;
   int result;
+  jboolean exists;
 
   /* Don't use the JCL convert function because it throws an exception
      on failure */
@@ -250,9 +251,10 @@ Java_java_io_VMFile_exists (JNIEnv * env,
     }
 
   result = cpio_isFileExists (filename);
+  exists = (result == CPNATIVE_OK ? 1 : 0);
   (*env)->ReleaseStringUTFChars (env, name, filename);
 
-  return result == CPNATIVE_OK ? 1 : 0;
+  return exists;
 #else /* not WITHOUT_FILESYSTEM */
   return 0;
 #endif /* not WITHOUT_FILESYSTEM */
@@ -278,6 +280,7 @@ Java_java_io_VMFile_isFile (JNIEnv * env,
   const char *filename;
   int result;
   jint entryType;
+  jboolean isfile;
 
   /* Don't use the JCL convert function because it throws an exception
      on failure */
@@ -288,9 +291,10 @@ Java_java_io_VMFile_isFile (JNIEnv * env,
     }
 
   result = cpio_checkType (filename, &entryType);
+  isfile = (result == CPNATIVE_OK && entryType == CPFILE_FILE ? 1 : 0);
   (*env)->ReleaseStringUTFChars (env, name, filename);
 
-  return result == CPNATIVE_OK && entryType == CPFILE_FILE ? 1 : 0;
+  return isfile;
 #else /* not WITHOUT_FILESYSTEM */
   return 0;
 #endif /* not WITHOUT_FILESYSTEM */
@@ -315,6 +319,7 @@ Java_java_io_VMFile_isDirectory (JNIEnv * env,
   const char *filename;
   int result;
   jint entryType;
+  jboolean isdirectory;
 
   /* Don't use the JCL convert function because it throws an exception
      on failure */
@@ -325,9 +330,10 @@ Java_java_io_VMFile_isDirectory (JNIEnv * env,
     }
   
   result = cpio_checkType (filename, &entryType);
+  isdirectory = (result == CPNATIVE_OK && entryType == CPFILE_DIRECTORY ? 1 : 0);
   (*env)->ReleaseStringUTFChars (env, name, filename);
 
-  return result == CPNATIVE_OK && entryType == CPFILE_DIRECTORY ? 1 : 0;
+  return isdirectory;
 #else /* not WITHOUT_FILESYSTEM */
   return 0;
 #endif /* not WITHOUT_FILESYSTEM */
ist nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/clojure.scm?id=7426236b825f7b5041a4c516a64f748126a3ea73&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-09-12 19:10:04 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=24b883916357cc15a10e650381e47e20fab0098f'>gnu: Add http-kit.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (http-kit): New variable.

Change-Id: Idb920cdab9076615a98e0be716c56b3d65c213a3
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:04 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=263205deada6367e0393ad23702afb12d9f23b68'>gnu: Add clojure-core-async.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-core-async): New variable.
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:04 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=a33a7afcc236a1ed584df98099eb13325a629b07'>gnu: Add clojure-tools-logging.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-tools-logging): New variable.
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:03 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=5c135bf180fb7e6df8a62fb23fe300f5596d9553'>gnu: Add clojure-tools-analyzer-jvm.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-tools-analyzer-jvm): New variable.
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:03 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=147c75d3f00662558fa876bdc141dd71a7b54ff9'>gnu: Add clojure-tools-reader.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-tools-reader): New variable.
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:03 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=1f5d363e5f950cd837a17f25ead1b1801f5a93c0'>gnu: Add clojure-tools-analyzer.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-tools-analyzer): New variable.
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:03 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=f08451677be0518d4f8904d32f57c65aa2ba446f'>gnu: Add clojure-core-memoize.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-core-memoize): New variable.
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:03 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=0487947e7d1cd0dfa50ae47d083e7c8bdf81e0a2'>gnu: Add clojure-core-cache.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-core-cache): New variable.
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:03 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=80ba4b8ecb18aa1cfaade39ca5f2bb1173ddddd0'>gnu: Add clojure-data-priority-map.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-data-priority-map): New variable.
</span></span></td><td>Roman Scherer</td></tr>
<tr><td><span title='2024-09-12 19:10:03 +0200'>2024-09-12</span></td><td><a href='/guix/commit/gnu/packages/clojure.scm?id=8cb2ef0b89b1c821b10744a3b11d99a954bcb6c4'>gnu: Add clojure-data-json.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/clojure.scm (clojure-data-json): New variable.

Change-Id: Id5da429fe375c656842250ed88d84d281954cec9
</span></span></td><td>Roman Scherer</td></tr>