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

llvm: correctly write aliases when using opaque pointers

Browse Source
This commit is contained in:
Jonas Maebe 2022-07-28 22:46:11 +02:00
parent d2c2ddb337
commit 815b17a43b
1 changed files with 9 additions and 2 deletions

11
compiler/llvm/agllvm.pas
View File

@ -1492,8 +1492,15 @@ implementation
sstr:=llvmencodetypename(taillvmalias(hp).def);
writer.AsmWrite(sstr);
writer.AsmWrite(', ');
writer.AsmWrite(sstr);
writer.AsmWrite('* ');
if not(llvmflag_opaque_ptr in llvmversion_properties[current_settings.llvmversion]) then
begin
writer.AsmWrite(sstr);
writer.AsmWrite('* ');
end
else
begin
writer.AsmWrite('ptr ');
end;
writer.AsmWriteln(LlvmAsmSymName(taillvmalias(hp).oldsym));
end;
ait_llvmmetadatanode: