Carl Shapiro pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/os-common.c
    ... ... @@ -762,10 +762,10 @@ os_file_author(const char *path)
    762 762
               case ERANGE:
    
    763 763
                   /* Buffer is too small, double its size and try again */
    
    764 764
                   size *= 2;
    
    765
    -              obuffer = (buffer == initial) ? NULL : buffer;
    
    766 765
                   if ((buffer = realloc(obuffer, size)) == NULL) {
    
    767 766
                       goto exit;
    
    768 767
                   }
    
    768
    +	      obuffer = buffer;
    
    769 769
                   continue;
    
    770 770
               default:
    
    771 771
                   /* All other errors */