paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:26:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write resource object file to unit output directory

Browse Source 
git-svn-id: trunk@7276 -
This commit is contained in:
Vincent Snijders 2007-05-05 19:04:43 +00:00
parent 4e375e0c38
commit e18966c372
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/comprsrc.pas
View File

@ -89,9 +89,9 @@ begin
current_settings.globalswitches:=current_settings.globalswitches+[cs_link_nolink]; current_settings.globalswitches:=current_settings.globalswitches+[cs_link_nolink];
end; end;
srcfilepath:=ExtractFilePath(current_module.mainsource^); srcfilepath:=ExtractFilePath(current_module.mainsource^);
resobj:=current_module.outputpath^+ChangeFileExt(ExtractFileName(fname),target_info.resobjext);
if not path_absolute(fname) then if not path_absolute(fname) then
fname:=srcfilepath+fname; fname:=srcfilepath+fname;
resobj:=ChangeFileExt(fname,target_info.resobjext);
s:=target_res.rescmd; s:=target_res.rescmd;
ObjUsed:=(pos('$OBJ',s)>0); ObjUsed:=(pos('$OBJ',s)>0);
Replace(s,'$OBJ',maybequoted(resobj)); Replace(s,'$OBJ',maybequoted(resobj));