warnings

os/files.c

@@ -484,7 +484,7 @@ file_base_name ( USES_REGS1 )
       return Yap_unify(ARG2, MkAtomTerm(Yap_LookupWideAtom(c+i)));
   } else {
       const char *c = RepAtom(at)->StrOfAE;
-      char *s;
+      const char *s;
 #if HAVE_BASENAME && 0 // DISABLED: Linux basename is not compatible with file_base_name in SWI and GNU
       char c1[YAP_FILENAME_MAX+1];
       strncpy( c1, c, YAP_FILENAME_MAX);