From 788c6a6f837bac5ad429969a2b5c20ea09679705 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 14 Dec 2014 22:14:00 +0000
Subject: [PATCH]  Do not call Free if constructor failed

git-svn-id: trunk@29298 -
---
 tests/utils/libtar.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/tests/utils/libtar.pas b/tests/utils/libtar.pas
index 93d793a99d..9110bb0ba5 100644
--- a/tests/utils/libtar.pas
+++ b/tests/utils/libtar.pas
@@ -802,7 +802,6 @@ BEGIN
     ON EFOpenError DO
       BEGIN
         Writeln(stderr,'LibTar error: unable to open file "',Filename,'" for reading.');
-        S.Free;
         exit;
       END;
   END;
@@ -813,7 +812,7 @@ BEGIN
     AddFile:=true;
   FINALLY
     S.Free
-    END;
+  END;
 END;