浏览代码

--- Merging r22853 into '.':
U compiler/systems/t_os2.pas
--- Merging r22854 into '.':
U compiler/systems/t_emx.pas

# revisions: 22853,22854
r22853 | hajny | 2012-10-26 22:52:11 +0200 (Fri, 26 Oct 2012) | 1 line
Changed paths:
M /trunk/compiler/systems/t_os2.pas

* fix for missing space in emxbind parameters for resource files linking
r22854 | hajny | 2012-10-26 22:52:53 +0200 (Fri, 26 Oct 2012) | 1 line
Changed paths:
M /trunk/compiler/systems/t_emx.pas

* fix for missing space in emxbind parameters for resource files linking

git-svn-id: branches/fixes_2_6@22865 -

marco 12 年之前
父节点
当前提交
4a00e16344
共有 2 个文件被更改,包括 2 次插入2 次删除
  1. 1 1
      compiler/systems/t_emx.pas
  2. 1 1
      compiler/systems/t_os2.pas

+ 1 - 1
compiler/systems/t_emx.pas

@@ -483,7 +483,7 @@ begin
    AppTypeStr := '-f'
   else AppTypeStr := '-w';
   if not (Current_module.ResourceFiles.Empty) then
-   RsrcStr := '-r ' + Current_module.ResourceFiles.GetFirst
+   RsrcStr := '-r ' + Current_module.ResourceFiles.GetFirst + ' '
   else
    RsrcStr := '';
 (* Only one resource file supported, discard everything else

+ 1 - 1
compiler/systems/t_os2.pas

@@ -498,7 +498,7 @@ begin
    AppTypeStr := '-f'
   else AppTypeStr := '-w';
   if not (Current_module.ResourceFiles.Empty) then
-   RsrcStr := '-r ' + Current_module.ResourceFiles.GetFirst
+   RsrcStr := '-r ' + Current_module.ResourceFiles.GetFirst + ' '
   else
    RsrcStr := '';
 (* Only one resource file supported, discard everything else