Преглед на файлове

* fix typecast

git-svn-id: trunk@3376 -
peter преди 19 години
родител
ревизия
c861491323
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  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