瀏覽代碼

* use modulename rather than realmodulename for import libraries to avoid packaging issues in case of different casing - 'unit X' in x.pas

git-svn-id: trunk@11623 -
Tomas Hajny 17 年之前
父節點
當前提交
512ffe26f5
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/systems/t_os2.pas

+ 1 - 1
compiler/systems/t_os2.pas

@@ -358,7 +358,7 @@ end;
           ImportLibrary : TImportLibrary;
           ImportLibrary : TImportLibrary;
           ImportSymbol  : TImportSymbol;
           ImportSymbol  : TImportSymbol;
       begin
       begin
-        LibName:=FixFileName(Current_Module.RealModuleName^ + Target_Info.StaticCLibExt);
+        LibName:=FixFileName(Current_Module.ModuleName^ + Target_Info.StaticCLibExt);
         seq_no:=1;
         seq_no:=1;
         current_module.linkotherstaticlibs.add(libname,link_always);
         current_module.linkotherstaticlibs.add(libname,link_always);
         assign(out_file,current_module.outputpath^+libname);
         assign(out_file,current_module.outputpath^+libname);