Kaynağa Gözat

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

git-svn-id: trunk@15741 -
Jonas Maebe 15 yıl önce
ebeveyn
işleme
4ef0601906
1 değiştirilmiş dosya ile 1 ekleme ve 1 silme
  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);