Преглед изворни кода

* 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 }
           { now the information about the length of the string }
           if deref then
           if deref then
             begin
             begin
-              if (chardef.size=1) then
+              if not (is_widestring(def) and (tf_winlikewidestring in target_info.flags)) then
                 upperopcodes:=13
                 upperopcodes:=13
               else
               else
                 upperopcodes:=15;
                 upperopcodes:=15;