Forráskód Böngészése

* write resource object file to unit output directory

git-svn-id: trunk@7276 -
Vincent Snijders 18 éve
szülő
commit
e18966c372
1 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      compiler/comprsrc.pas

+ 1 - 1
compiler/comprsrc.pas

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