paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-21 12:18:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

do not append directory separator when it is already there, as // equals /../ on Amiga, fixes smartlinked RTL build

Browse Source 
git-svn-id: trunk@26126 -
This commit is contained in:
Károly Balogh 2013-11-24 03:09:24 +00:00
parent 6cd62437f9
commit 3d07b35d77
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/assemble.pas
View File

@ -297,7 +297,7 @@ Implementation
var var
dir : TRawByteSearchRec; dir : TRawByteSearchRec;
begin begin
if findfirst(s+source_info.dirsep+'*'+AExt,faAnyFile,dir) = 0 then if findfirst(FixPath(s,false)+'*'+AExt,faAnyFile,dir) = 0 then
begin begin
repeat repeat
DeleteFile(s+source_info.dirsep+dir.name); DeleteFile(s+source_info.dirsep+dir.name);