Explorar el Código

* fix typecast

git-svn-id: trunk@3376 -
peter hace 19 años
padre
commit
c861491323
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  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