free ((PTR) dirp->__data);
free ((PTR) dirp->data);
DEFUN(closedir, (dirp), DIR *dirp){  int fd;  if (dirp == NULL)    {      errno = EINVAL;      return -1;    }  fd = dirp->__fd;  free ((PTR) dirp->__data);  free ((PTR) dirp);  return __close (fd);}