rts/linker/LoadArchive: Fix leaking file handlewip/windows-high-linker

Previously `isArchive` could leak a `FILE` handle if the `fread`
returned a short read.

1 files changed, 1 insertions, 1 deletions

diff --git a/rts/linker/LoadArchive.c b/rts/linker/LoadArchive.c
index 265afd319c..a2641e83ad 100644
--- a/rts/linker/LoadArchive.c
+++ b/rts/linker/LoadArchive.c
@@ -645,10 +645,10 @@ bool isArchive (pathchar *path)
     }
 
     size_t ret = fread(buffer, 1, sizeof(buffer), f);
+    fclose(f);
     if (ret < sizeof(buffer)) {
         return false;
     }
-    fclose(f);
     return strncmp(ARCHIVE_HEADER, buffer, sizeof(ARCHIVE_HEADER)-1) == 0;
 }