From 861d460ce5920f8c4ce825084a02688e466900bb Mon Sep 17 00:00:00 2001
From: Bill Beech <nj7p@nj7p.org>
Date: Wed, 5 Apr 2017 12:48:52 -0700
Subject: [PATCH] SWTP: remove error path extra close (COVERITY)

---
 swtp6800/common/bootrom.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/swtp6800/common/bootrom.c b/swtp6800/common/bootrom.c
index 74f7d90d..148a17f6 100644
--- a/swtp6800/common/bootrom.c
+++ b/swtp6800/common/bootrom.c
@@ -218,7 +218,6 @@ t_stat BOOTROM_reset (DEVICE *dptr)
     if (fp == NULL) {
         printf("\tUnable to open ROM file %s\n",BOOTROM_unit.filename);
         printf("\tNo ROM image loaded!!!\n");
-        fclose(fp);
         return SCPE_OK;
     }
     j = 0;                              /* load EPROM file */