Pārlūkot izejas kodu

* pass alignment to tnodeutils.insertbsssym()

git-svn-id: branches/hlcgllvm@28751 -
Jonas Maebe 10 gadi atpakaļ
vecāks
revīzija
37009c917b
2 mainītis faili ar 5 papildinājumiem un 5 dzēšanām
  1. 2 2
      compiler/llvm/nllvmutil.pas
  2. 3 3
      compiler/ngenutil.pas

+ 2 - 2
compiler/llvm/nllvmutil.pas

@@ -34,7 +34,7 @@ interface
   type
     tllvmnodeutils = class(tnodeutils)
      strict protected
-      class procedure insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint); override;
+      class procedure insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint; varalign: shortint); override;
      public
       class procedure InsertInitFinalTable; override;
       class procedure InsertWideInitsTablesTable; override;
@@ -52,7 +52,7 @@ implementation
       aasmbase,aasmtai,cpubase,llvmbase,aasmllvm,
       symbase,symtable,defutil;
 
-  class procedure tllvmnodeutils.insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint);
+  class procedure tllvmnodeutils.insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint; varalign: shortint);
     var
       asmsym: tasmsymbol;
     begin

+ 3 - 3
compiler/ngenutil.pas

@@ -71,7 +71,7 @@ interface
       class procedure trash_large(var stat: tstatementnode; trashn, sizen: tnode; trashintval: int64); virtual;
       { insert a single bss sym, called by insert bssdata (factored out
         non-common part for llvm) }
-      class procedure insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint); virtual;
+      class procedure insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint; varalign: shortint); virtual;
 
       { initialization of iso styled program parameters }
       class procedure initialize_textrec(p : TObject; statn : pointer);
@@ -514,7 +514,7 @@ implementation
     end;
 
 
-  class procedure tnodeutils.insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint);
+  class procedure tnodeutils.insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint; varalign: shortint);
     begin
       if sym.globalasmsym then
         begin
@@ -584,7 +584,7 @@ implementation
         new_section(list,sec_user,sym.section,varalign)
       else
         new_section(list,sectype,lower(sym.mangledname),varalign);
-      insertbsssym(list,sym,l);
+      insertbsssym(list,sym,l,varalign);
       current_filepos:=storefilepos;
     end;