瀏覽代碼

+ 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 8 年之前
父節點
當前提交
e62cb7917e
共有 1 個文件被更改,包括 5 次插入0 次删除
  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