Ver Fonte

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

git-svn-id: trunk@42037 -
svenbarth há 6 anos atrás
pai
commit
1349f1db03
1 ficheiros alterados com 1 adições e 1 exclusões
  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;