From beac71ed2484347e151e53231c6a127c3aaa9fbe Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 24 Aug 2020 20:21:10 +0000
Subject: [PATCH]   * fix deleting the linksyms file after successful linking
 (mantis #37636)

git-svn-id: trunk@46677 -
---
 compiler/systems/t_darwin.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/systems/t_darwin.pas b/compiler/systems/t_darwin.pas
index 61d9b90cd9..3de7f8a752 100644
--- a/compiler/systems/t_darwin.pas
+++ b/compiler/systems/t_darwin.pas
@@ -670,6 +670,7 @@ implementation
           extdbgcmdstr:=maybequoted(current_module.sharedlibfilename);
         end;
 
+      LinkSymsFileName:='';
       if not texportlibunix(exportlib).exportedsymnames.empty then
         begin
           LinkSymsFileName:=UniqueName('linksyms')+'.fpc';
@@ -721,7 +722,7 @@ implementation
             DeleteFile(ordersymfile);
           DeleteFile(linkscript.fn);
           linkscript.free;
-           if not texportlibunix(exportlib).exportedsymnames.empty then
+           if LinkSymsFileName<>'' then
              DeleteFile(outputexedir+LinkSymsFileName);
            DeleteFile(outputexedir+LinkFilesFileName);
         end;