Bläddra i källkod

* fixed arm-linux

git-svn-id: trunk@6654 -
florian 18 år sedan
förälder
incheckning
e3204bb902
1 ändrade filer med 4 tillägg och 2 borttagningar
  1. 4 2
      compiler/aggas.pas

+ 4 - 2
compiler/aggas.pas

@@ -609,7 +609,8 @@ implementation
                        asmwrite(#9'.lcomm'#9);
                        asmwrite(#9'.lcomm'#9);
                        asmwrite(tai_datablock(hp).sym.name);
                        asmwrite(tai_datablock(hp).sym.name);
                        asmwrite(','+tostr(tai_datablock(hp).size));
                        asmwrite(','+tostr(tai_datablock(hp).size));
-                       asmwrite(','+tostr(last_align));
+                       if not(target_info.system in [system_arm_linux]) then
+                         asmwrite(','+tostr(last_align));
                        asmwriteln('');
                        asmwriteln('');
                      end
                      end
                  end
                  end
@@ -632,7 +633,8 @@ implementation
                        asmwrite(#9'.lcomm'#9);
                        asmwrite(#9'.lcomm'#9);
                        asmwrite(tai_datablock(hp).sym.name);
                        asmwrite(tai_datablock(hp).sym.name);
                        asmwrite(','+tostr(tai_datablock(hp).size));
                        asmwrite(','+tostr(tai_datablock(hp).size));
-                       asmwrite(','+tostr(last_align));
+                       if not(target_info.system in [system_arm_linux]) then
+                         asmwrite(','+tostr(last_align));
                        asmwriteln('');
                        asmwriteln('');
                      end;
                      end;
                  end;
                  end;