Explorar o código

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

git-svn-id: trunk@15741 -
Jonas Maebe %!s(int64=15) %!d(string=hai) anos
pai
achega
4ef0601906
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/defutil.pas

+ 1 - 1
compiler/defutil.pas

@@ -993,7 +993,7 @@ implementation
             end;
             end;
           stringdef :
           stringdef :
             begin
             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
                 result := OS_ADDR
               else
               else
                 result:=int_cgsize(def.size);
                 result:=int_cgsize(def.size);