فهرست منبع

Merged revisions 7276 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r7276 | vincents | 2007-05-05 21:04:43 +0200 (Sat, 05 May 2007) | 1 line

* write resource object file to unit output directory
........

git-svn-id: branches/fixes_2_2@7310 -

pierre 18 سال پیش
والد
کامیت
412b3989d9
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  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));