53 # define	free_fib(x) vim_free(fib)
576     struct FileInfoBlock    *fib;  in fname_case()  local
579     fib = get_fib(name);  in fname_case()
580     if (fib != NULL)  in fname_case()
585 	if (fib->fib_DirEntryType == ST_ROOT)  in fname_case()
586 	    strcat(fib->fib_FileName, ":");  in fname_case()
588 	if (flen == strlen(fib->fib_FileName))	// safety check  in fname_case()
589 	    mch_memmove(name, fib->fib_FileName, flen);  in fname_case()
590 	free_fib(fib);  in fname_case()
603     struct FileInfoBlock    *fib;  in get_fib()  local
608     fib = AllocDosObject(DOS_FIB,0);  in get_fib()
610     fib = ALLOC_ONE(struct FileInfoBlock);  in get_fib()
612     if (fib != NULL)  in get_fib()
615 	if (flock == (BPTR)NULL || !Examine(flock, fib))  in get_fib()
617 	    free_fib(fib);  // in case of an error the memory is freed here  in get_fib()
618 	    fib = NULL;  in get_fib()
623     return fib;  in get_fib()
814     struct FileInfoBlock    *fib;  in mch_getperm()  local
817     fib = get_fib(name);  in mch_getperm()
818     if (fib != NULL)  in mch_getperm()
820 	retval = fib->fib_Protection;  in mch_getperm()
821 	free_fib(fib);  in mch_getperm()
855     struct FileInfoBlock    *fib;  in mch_isdir()  local
858     fib = get_fib(name);  in mch_isdir()
859     if (fib != NULL)  in mch_isdir()
862 	retval = (FIB_IS_DRAWER(fib)) ? TRUE : FALSE;  in mch_isdir()
864 	retval = ((fib->fib_DirEntryType >= 0) ? TRUE : FALSE);  in mch_isdir()
866 	free_fib(fib);  in mch_isdir()