paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Do not copy a library to a remote target if this library name is specified using %DELFILES directive.

Browse Source 
git-svn-id: branches/targetandroid@23489 -
This commit is contained in:
yury 2013-01-22 14:18:56 +00:00
parent fbb0b48ad6
commit e0a70d0510
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/utils/dotest.pp
View File

@ -1248,6 +1248,10 @@ begin
exit(true);
end;
execres:=true;
{ Check if library should be deleted. Do not copy to remote target in such case. }
if (deAfter in DelExecutable) and (Config.DelFiles <> '') then
if SplitFileName(FileToCopy) = DllPrefix + Trim(Config.DelFiles) + DllExt then
exit;
{ We don't want to create subdirs, remove paths from the test }
TestRemoteExe:=RemotePath+'/'+SplitFileName(FileToCopy);
if deBefore in DelExecutable then