浏览代码

merge r17371 from cpstrnew branch by michael:
* Patch from Inoussa to fix tunistr5.pp

git-svn-id: trunk@19108 -

paul 14 年之前
父节点
当前提交
4b9a082152
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/asmutils.pas

+ 1 - 1
compiler/asmutils.pas

@@ -94,7 +94,7 @@ uses
         else
         else
           begin
           begin
             list.concat(Tai_const.Create_pint(-1));
             list.concat(Tai_const.Create_pint(-1));
-            list.concat(Tai_const.Create_pint(strlength*cwidechartype.size));
+            list.concat(Tai_const.Create_pint(strlength));
           end;
           end;
         { make sure the string doesn't get dead stripped if the header is referenced }
         { make sure the string doesn't get dead stripped if the header is referenced }
         if (target_info.system in systems_darwin) then
         if (target_info.system in systems_darwin) then