paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 13:18:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Disable limitation of nonlocal setting for LLVM compiler

Browse Source
This commit is contained in:
Pierre Muller 2025-02-23 09:22:10 +00:00
parent da6c0e919b
commit e749c81040
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rautils.pas
View File

@ -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);