浏览代码

* fix for Mantis #35359: only WideString counts the size in Byte, UnicodeString uses the size in WideChars

git-svn-id: trunk@42037 -
svenbarth 6 年之前
父节点
当前提交
1349f1db03
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/dbgdwarf.pas

+ 1 - 1
compiler/dbgdwarf.pas

@@ -4265,7 +4265,7 @@ implementation
           { now the information about the length of the string }
           if deref then
             begin
-              if (chardef.size=1) then
+              if not (is_widestring(def) and (tf_winlikewidestring in target_info.flags)) then
                 upperopcodes:=13
               else
                 upperopcodes:=15;