浏览代码

* addstringdef() now correctly declares the debug information for a Windows WideString, so use that instead of treating it merely like a PWideChar

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

+ 1 - 9
compiler/dbgdwarf.pas

@@ -4350,15 +4350,7 @@ implementation
            end;
            end;
          st_widestring:
          st_widestring:
            begin
            begin
-             if not(tf_winlikewidestring in target_info.flags) then
-               addstringdef('WideString',cwidechartype,true,-1)
-             else
-               begin
-                 { looks like a pwidechar (no idea about length location) }
-                 append_entry(DW_TAG_pointer_type,false,[]);
-                 append_labelentry_ref(DW_AT_type,def_dwarf_lab(cwidechartype));
-                 finish_entry;
-              end;
+             addstringdef('WideString',cwidechartype,true,-1)
            end;
            end;
         end;
         end;
       end;
       end;