소스 검색

compiler: winlike widestrings should not contain "encoding" and "element size" fields

git-svn-id: trunk@19146 -
paul 14 년 전
부모
커밋
9c39ad5428
1개의 변경된 파일6개의 추가작업 그리고 6개의 파일을 삭제
  1. 6 6
      compiler/asmutils.pas

+ 6 - 6
compiler/asmutils.pas

@@ -98,16 +98,16 @@ uses
             list.concat(tai_label.create(referencelab));
           end;
         strlength := getlengthwidestring(pcompilerwidestring(data));
-        list.concat(tai_const.create_16bit(encoding));
-        list.concat(tai_const.create_16bit(2));
-{$ifdef cpu64bitaddr}
-        { dummy for alignment }
-        list.concat(Tai_const.Create_32bit(0));
-{$endif cpu64bitaddr}
         if Winlike then
           list.concat(Tai_const.Create_32bit(strlength*cwidechartype.size))
         else
           begin
+            list.concat(tai_const.create_16bit(encoding));
+            list.concat(tai_const.create_16bit(2));
+    {$ifdef cpu64bitaddr}
+            { dummy for alignment }
+            list.concat(Tai_const.Create_32bit(0));
+    {$endif cpu64bitaddr}
             list.concat(Tai_const.Create_pint(-1));
             list.concat(Tai_const.Create_pint(strlength));
           end;