Ticket #4266: ghci-space.patch

File ghci-space.patch, 1.7 KB (added by refold, 5 years ago)

Proposed fix

  • .c

    old new  
    1717 *
    1818 * To compile:
    1919 *
    20  *   MSVC:    cl /o ghci.exe /c ghciwrap.c
    21  *   mingw:   gcc -o ghci.exe ghciwrap.c
     20 *   MSVC:    cl /o ghci.exe /c ghci.c
     21 *   mingw:   gcc -o ghci.exe ghci.c
    2222 *
    2323 * If you want to associate your own icon with the wrapper,
    2424 * here's how to do it:
     
    3434 *
    3535 *   * Add the resulting .res file to the link line of the wrapper:
    3636 *
    37  *     MSVC:    cl /o ghci.exe /c ghciwrap.c ghci.res
    38  *     mingw:   gcc -o ghci.exe ghciwrap.c ghci.res
     37 *     MSVC:    cl /o ghci.exe /c ghci.c ghci.res
     38 *     mingw:   gcc -o ghci.exe ghci.c ghci.res
    3939 *
    4040 */
    4141
     
    5757main(int argc, char** argv)
    5858{
    5959  TCHAR  binPath[FILENAME_MAX+1];
    60   TCHAR  binPathShort[MAX_PATH+1];
    6160  DWORD  dwSize = FILENAME_MAX;
    6261  TCHAR* szEnd;
    6362  int    i;
     
    8382                   BINARY_NAME,
    8483                   NULL,
    8584                   dwSize,
    86                    (char*)binPath,
     85                   binPath,
    8786                   &szEnd) ) {
    8887    errmsg1("%s: Unable to locate ghc.exe", argv[0]);
    8988    return 1;
    9089  }
    91  
    92   dwSize = MAX_PATH;
    93   /* Turn the path into short form - LFN form causes problems
    94      when passed in argv[0]. */
    95   if ( !(GetShortPathName(binPath, binPathShort, dwSize)) ) {
    96     errmsg1("%s: Unable to locate ghc.exe", argv[0]);
    97     return 1;
    98   }
    99  
     90 
    10091  /* Compute length of the flattened 'argv', including extra IACTIVE_OPTION (and spaces!) */
    10192  cmdline_len += 1 + strlen(IACTIVE_OPTION);
    10293  for(i=1;i<argc;i++) {
     
    133124#if 0
    134125  fprintf(stderr, "Invoking ghc: %s %s\n", binPathShort, new_cmdline); fflush(stderr);
    135126#endif
    136   if (!CreateProcess(binPathShort,
     127  if (!CreateProcess(binPath,
    137128                     new_cmdline,
    138129                     NULL,
    139130                     NULL,