Ticket #864: ccl-kernel.diff

File ccl-kernel.diff, 760 bytes (added by opoku, 4 years ago)
  • lisp-kernel/pmcl-kernel.c

     
    17981798 
    17991799  program_name = argv[0]; 
    18001800  if ((argc == 2) && (*argv[1] != '-')) { 
     1801    if (check_for_embedded_image(real_executable_name)) { 
     1802      image_name = real_executable_name; 
     1803    } else { 
    18011804#ifdef WINDOWS 
    1802     image_name = utf_16_argv[1]; 
     1805      image_name = utf_16_argv[1]; 
    18031806#else 
    1804     image_name = argv[1]; 
     1807      image_name = argv[1]; 
    18051808#endif 
    1806     argv[1] = NULL; 
     1809      argv[1] = NULL; 
    18071810#ifdef WINDOWS 
    1808     utf_16_argv[1] = NULL; 
     1811      utf_16_argv[1] = NULL; 
    18091812#endif 
     1813    } 
    18101814  } else { 
    18111815    process_options(argc,argv,utf_16_argv); 
    18121816  }