Ignore:
Timestamp:
Jul 27, 2010, 1:10:18 AM (9 years ago)
Author:
gz
Message:

No longer look for image in LX86CL64 (r13592)

Location:
branches/qres/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/lisp-kernel/pmcl-kernel.c

    r14049 r14053  
    835835#endif
    836836
    837 char *
    838 case_inverted_path(char *path)
    839 {
    840   char *copy = strdup(path), *base = copy, *work = copy, c;
    841   if (copy == NULL) {
    842     return NULL;
    843   }
    844   while(*work) {
    845     if (*work++ == '/') {
    846       base = work;
    847     }
    848   }
    849   work = base;
    850   while ((c = *work) != '\0') {
    851     if (islower(c)) {
    852       *work++ = toupper(c);
    853     } else {
    854       *work++ = tolower(c);
    855     }
    856   }
    857   return copy;
    858 }
    859 /*
    860    The underlying file system may be case-insensitive (e.g., HFS),
    861    so we can't just case-invert the kernel's name.
    862    Tack ".image" onto the end of the kernel's name.  Much better ...
    863 */
    864837#ifdef WINDOWS
    865838wchar_t *
     
    874847default_image_name(char *orig)
    875848{
    876 #ifdef WINDOWS
    877   char *path = chop_exe_suffix(orig);
    878 #else
    879849  char *path = orig;
    880 #endif
    881850  char *image_name = path_by_appending_image(path);
    882 #if !defined(WINDOWS) && !defined(DARWIN)
    883   if (!probe_file(image_name)) {
    884     char *legacy = case_inverted_path(path);
    885     if (probe_file(legacy)) {
    886       image_name = legacy;
    887     }
    888   }
    889 #endif
    890851  return image_name;
    891852}
Note: See TracChangeset for help on using the changeset viewer.