paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 22:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix deleting the linksyms file after successful linking (mantis #37636)

Browse Source 
git-svn-id: trunk@46677 -
This commit is contained in:
Jonas Maebe 2020-08-24 20:21:10 +00:00
parent 3208929e17
commit beac71ed24
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/systems/t_darwin.pas
View File

@ -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;