kolibrios-gitea/programs/develop/ktcc/trunk/libc/stdio/fclose.c
siemargl ace23ebbe2 libc testsuite + fixes
git-svn-id: svn://kolibrios.org@6433 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-05-19 12:15:22 +00:00

19 lines
256 B
C

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
int fclose(FILE* file)
{
if(!file)
{
errno = E_INVALIDPTR;
return EOF;
}
if(file->buffer)
free(file->buffer);
free(file);
return 0;
}