2
0
Эх сурвалжийг харах

* applying const_align when generating structures accessed by the rtl is not a good idea because their
alignment must be immutable, should resolve #27525

git-svn-id: trunk@30038 -

florian 10 жил өмнө
parent
commit
f0cf88533e
1 өөрчлөгдсөн 10 нэмэгдсэн , 10 устгасан
  1. 10 10
      compiler/ncgvmt.pas

+ 10 - 10
compiler/ncgvmt.pas

@@ -246,9 +246,9 @@ implementation
            writestrentry(list,p^.l);
            writestrentry(list,p^.l);
 
 
          { write name label }
          { write name label }
-         list.concat(cai_align.create(const_align(sizeof(pint))));
+         list.concat(cai_align.create(sizeof(pint)));
          list.concat(Tai_const.Create_sym(p^.nl));
          list.concat(Tai_const.Create_sym(p^.nl));
-         list.concat(cai_align.create(const_align(sizeof(pint))));
+         list.concat(cai_align.create(sizeof(pint)));
          list.concat(Tai_const.Createname(p^.data.mangledname,AT_FUNCTION,0));
          list.concat(Tai_const.Createname(p^.data.mangledname,AT_FUNCTION,0));
 
 
          if assigned(p^.r) then
          if assigned(p^.r) then
@@ -271,11 +271,11 @@ implementation
 
 
          { now start writing of the message string table }
          { now start writing of the message string table }
          current_asmdata.getlabel(result,alt_data);
          current_asmdata.getlabel(result,alt_data);
-         list.concat(cai_align.create(const_align(sizeof(pint))));
+         list.concat(cai_align.create(sizeof(pint)));
          list.concat(Tai_label.Create(result));
          list.concat(Tai_label.Create(result));
-         list.concat(cai_align.create(const_align(sizeof(longint))));
+         list.concat(cai_align.create(sizeof(longint)));
          list.concat(Tai_const.Create_32bit(count));
          list.concat(Tai_const.Create_32bit(count));
-         list.concat(cai_align.create(const_align(sizeof(pint))));
+         list.concat(cai_align.create(sizeof(pint)));
          if assigned(root) then
          if assigned(root) then
            begin
            begin
               writestrentry(list,root);
               writestrentry(list,root);
@@ -290,9 +290,9 @@ implementation
            writeintentry(list,p^.l);
            writeintentry(list,p^.l);
 
 
          { write name label }
          { write name label }
-         list.concat(cai_align.create(const_align(sizeof(longint))));
+         list.concat(cai_align.create(sizeof(longint)));
          list.concat(Tai_const.Create_32bit(p^.data.messageinf.i));
          list.concat(Tai_const.Create_32bit(p^.data.messageinf.i));
-         list.concat(cai_align.create(const_align(sizeof(pint))));
+         list.concat(cai_align.create(sizeof(pint)));
          list.concat(Tai_const.Createname(p^.data.mangledname,AT_FUNCTION,0));
          list.concat(Tai_const.Createname(p^.data.mangledname,AT_FUNCTION,0));
 
 
          if assigned(p^.r) then
          if assigned(p^.r) then
@@ -312,12 +312,12 @@ implementation
 
 
          { now start writing of the message string table }
          { now start writing of the message string table }
          current_asmdata.getlabel(r,alt_data);
          current_asmdata.getlabel(r,alt_data);
-         list.concat(cai_align.create(const_align(sizeof(pint))));
+         list.concat(cai_align.create(sizeof(pint)));
          list.concat(Tai_label.Create(r));
          list.concat(Tai_label.Create(r));
          genintmsgtab:=r;
          genintmsgtab:=r;
-         list.concat(cai_align.create(const_align(sizeof(longint))));
+         list.concat(cai_align.create(sizeof(longint)));
          list.concat(Tai_const.Create_32bit(count));
          list.concat(Tai_const.Create_32bit(count));
-         list.concat(cai_align.create(const_align(sizeof(pint))));
+         list.concat(cai_align.create(sizeof(pint)));
          if assigned(root) then
          if assigned(root) then
            begin
            begin
               writeintentry(list,root);
               writeintentry(list,root);