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

* fix building of llvm compiler after node flag refactoring

Browse Source
This commit is contained in:
florian 2024-03-05 22:23:39 +01:00
parent 59c77a48b5
commit 0fb4fca957
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/llvm/nllvmbas.pas
View File

@ -201,7 +201,7 @@ interface
begin
oldasmlist:=nil;
if not(po_assembler in current_procinfo.procdef.procoptions) and
not(nf_get_asm_position in flags) then
not(asmnf_get_asm_position in asmnodeflags) then
begin
{ store the assembler code in a separate list, so we can make it
the argument of an asmblock instruction }
@ -214,7 +214,7 @@ interface
end;
inherited;
if not(po_assembler in current_procinfo.procdef.procoptions) and
not(nf_get_asm_position in flags) then
not(asmnf_get_asm_position in asmnodeflags) then
begin
asmai:=taillvm.asm_paras(current_asmdata.CurrAsmList,fsymboldata);
fsymboldata:=nil;