Jelajahi Sumber

* fix typecast

git-svn-id: trunk@3376 -
peter 19 tahun lalu
induk
melakukan
c861491323
1 mengubah file dengan 2 tambahan dan 2 penghapusan
  1. 2 2
      compiler/x86/agx86int.pas

+ 2 - 2
compiler/x86/agx86int.pas

@@ -507,8 +507,8 @@ implementation
                { CAUSES PROBLEMS WITH THE SEGMENT DEFINITION   }
                { SEGMENT DEFINITION SHOULD MATCH TYPE OF ALIGN }
                { HERE UNDER TASM!                              }
-                 if tai_align(hp).aligntype>1 then
-                   AsmWriteLn(#9'ALIGN '+tostr(tai_align(hp).aligntype));
+                 if tai_align_abstract(hp).aligntype>1 then
+                   AsmWriteLn(#9'ALIGN '+tostr(tai_align_abstract(hp).aligntype));
                end;
            ait_datablock :
              begin