paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only add .o extension if no extension is provided. fixes 8520

Browse Source 
git-svn-id: trunk@7366 -
This commit is contained in:
peter 2007-05-16 20:11:09 +00:00
parent 6c916a032d
commit 377aae4ba0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/scandir.pas
View File

@ -489,7 +489,9 @@ implementation
end
else
s:= trimspace(current_scanner.readcomment);
s:=ChangeFileExt(FixFileName(s),target_info.objext);
s:=FixFileName(s);
if ExtractFileExt(s)='' then
s:=ChangeFileExt(s,target_info.objext);
current_module.linkotherofiles.add(s,link_always);
end;