浏览代码

* let def_cgsize() also recognise unicodestrings (avoid calling tdef.size)

git-svn-id: trunk@15741 -
Jonas Maebe 15 年之前
父节点
当前提交
4ef0601906
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/defutil.pas

+ 1 - 1
compiler/defutil.pas

@@ -993,7 +993,7 @@ implementation
             end;
           stringdef :
             begin
-              if is_ansistring(def) or is_widestring(def) then
+              if is_ansistring(def) or is_wide_or_unicode_string(def) then
                 result := OS_ADDR
               else
                 result:=int_cgsize(def.size);