Procházet zdrojové kódy

+ support for setting the "appending" flag of declaration generated via an
LLVM typed constant builder through a new appendingdef property

git-svn-id: trunk@35040 -

Jonas Maebe před 8 roky
rodič
revize
e62cb7917e
1 změnil soubory, kde provedl 5 přidání a 0 odebrání
  1. 5 0
      compiler/llvm/nllvmtcon.pas

+ 5 - 0
compiler/llvm/nllvmtcon.pas

@@ -67,6 +67,7 @@ interface
        class constructor classcreate;
      protected
       foverriding_def: tdef;
+      fappendingdef: boolean;
 
       fqueued_tai,
       flast_added_tai: tai;
@@ -115,6 +116,8 @@ interface
       function emit_placeholder(def: tdef): ttypedconstplaceholder; override;
 
       class function get_string_symofs(typ: tstringtype; winlikewidestring: boolean): pint; override;
+
+      property appendingdef: boolean write fappendingdef;
     end;
 
 
@@ -187,6 +190,8 @@ implementation
       { llvm declaration with as initialisation data all the elements from the
         original asmlist }
       decl:=taillvmdecl.createdef(sym,def,fasmlist,section,alignment);
+      if fappendingdef then
+        include(decl.flags,ldf_appending);
       if section=sec_user then
         decl.setsecname(secname);
       if tcalo_is_lab in options then