Sfoglia il codice sorgente

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

git-svn-id: trunk@15741 -
Jonas Maebe 15 anni fa
parent
commit
4ef0601906
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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);