浏览代码

Disable limitation of nonlocal setting for LLVM compiler

Pierre Muller 5 月之前
父节点
当前提交
e749c81040
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      compiler/rautils.pas

+ 4 - 0
compiler/rautils.pas

@@ -1781,7 +1781,11 @@ Begin
       begin
       begin
         if symtablestack.top.symtablelevel<>srsymtable.symtablelevel then
         if symtablestack.top.symtablelevel<>srsymtable.symtablelevel then
           begin
           begin
+{$ifndef LLVM}
+	    { LLVM compiler requires that the static label RawThunkEnd
+             in packages/rtl-objpas/src/rtti.pp unit is set to nonlocal }
             if (srsymtable.symtabletype=globalsymtable) or create_smartlink_library then
             if (srsymtable.symtabletype=globalsymtable) or create_smartlink_library then
+{$endif LLVM}
               Tlabelsym(sym).nonlocal:=true;
               Tlabelsym(sym).nonlocal:=true;
             if emit then
             if emit then
               include(current_procinfo.flags,pi_has_interproclabel);
               include(current_procinfo.flags,pi_has_interproclabel);