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

* win32 doesn't like the lcomm with two parameters either

git-svn-id: trunk@6657 -
florian преди 18 години
родител
ревизия
bc73129bea
променени са 1 файла, в които са добавени 4 реда и са изтрити 3 реда
  1. 4 3
      compiler/aggas.pas

+ 4 - 3
compiler/aggas.pas

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