Raymond Toy pushed to branch issue-130-file-author-in-c at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/os-common.c
    ... ... @@ -776,6 +776,9 @@ os_file_author(const char *path)
    776 776
     exit:
    
    777 777
         fprintf(stderr, "buffer, initial = %p %p\n", buffer, initial);
    
    778 778
         
    
    779
    -    free(buffer);
    
    779
    +    if (buffer != initial) {
    
    780
    +        free(buffer);
    
    781
    +    }
    
    782
    +    
    
    780 783
         return result;
    
    781 784
     }