Ticket #4266: ghci-space.patch

File ghci-space.patch, 1.7 KB (added by refold, 4 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,