{R,W,X,F}_OK are not constants for the Cosmopolitan libc

ocsigen · Feb 6, 2023 · 1329ebe · 1329ebe
1 parent c04f7b0
commit 1329ebe
Showing 1 changed file with 12 additions and 12 deletions.
diff --git a/src/unix/unix_c/unix_access_job.c b/src/unix/unix_c/unix_access_job.c
@@ -33,21 +33,21 @@
    | Converters                                                      |
    +-----------------------------------------------------------------+ */
 
-/* Table mapping constructors of ocaml type Unix.access_permission to C values. */
-static int access_permission_table[] = {
-  /* Constructor R_OK. */
-  R_OK,
-  /* Constructor W_OK. */
-  W_OK,
-  /* Constructor X_OK. */
-  X_OK,
-  /* Constructor F_OK. */
-  F_OK
-};
-
 /* Convert ocaml values of type Unix.access_permission to a C int. */
 static int int_of_access_permissions(value list)
 {
+  /* Table mapping constructors of ocaml type Unix.access_permission to C values. */
+  int access_permission_table[] = {
+    /* Constructor R_OK. */
+    R_OK,
+    /* Constructor W_OK. */
+    W_OK,
+    /* Constructor X_OK. */
+    X_OK,
+    /* Constructor F_OK. */
+    F_OK
+  };
+
   int result = 0;
   while (list != Val_emptylist) {
     result |= access_permission_table[Int_val(Field(list, 0))];