paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ support for LLVM 3.8 and LLVM 3.9 IR to the llvm assembler writer

Browse Source 
git-svn-id: trunk@35003 -
This commit is contained in:
Jonas Maebe 2016-11-27 21:44:29 +00:00
parent 3ea976fd2d
commit 4d951780d1
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/llvm/agllvm.pas
View File

@ -1027,6 +1027,7 @@ implementation
var
hp2: tai;
s: string;
sstr: TSymStr;
i: longint;
ch: ansichar;
begin
@ -1230,9 +1231,15 @@ implementation
writer.AsmWrite(' = alias ');
WriteLinkageVibilityFlags(taillvmalias(hp).bind);
if taillvmalias(hp).def.typ=procdef then
writer.AsmWrite(llvmencodeproctype(tabstractprocdef(taillvmalias(hp).def), '', lpd_alias))
sstr:=llvmencodeproctype(tabstractprocdef(taillvmalias(hp).def), '', lpd_alias)
else
writer.AsmWrite(llvmencodetypename(taillvmalias(hp).def));
sstr:=llvmencodetypename(taillvmalias(hp).def);
writer.AsmWrite(sstr);
if llvmflag_alias_double_type in llvmversion_properties[current_settings.llvmversion] then
begin
writer.AsmWrite(', ');
writer.AsmWrite(sstr);
end;
writer.AsmWrite('* ');
writer.AsmWriteln(LlvmAsmSymName(taillvmalias(hp).oldsym));
end;

9
compiler/llvm/llvminfo.pas
View File

@ -34,6 +34,8 @@ Type
llvmver_3_6_1,
llvmver_3_6_2,
llvmver_3_7_0,
llvmver_3_8_0,
llvmver_3_9_0,
{ Xcode versions use snapshots of LLVM and don't correspond to released
versions of llvm (they don't ship with the llvm utilities either, but
they do come with Clang, which can also be used to some extent instead
@ -46,7 +48,8 @@ type
llvmflag_metadata_keyword, { use "metadata" keyword (others leave it away, except when metadata is an argument to call instructions) }
llvmflag_linker_private, { have linker_private linkage type (later versions use global in combination with hidden visibility) }
llvmflag_load_getelptr_type, { the return type of loads and the base type of getelementptr must be specified }
llvmflag_call_no_ptr { with direct calls, the function type is not a function pointer }
llvmflag_call_no_ptr, { with direct calls, the function type is not a function pointer }
llvmflag_alias_double_type { with "alias" declarations, have to print both aliasee and aliasee* types }
);
tllvmversionflags = set of tllvmversionflag;
@ -63,6 +66,8 @@ Const
'LLVM-3.6.1',
'LLVM-3.6.2',
'LLVM-3.7.0',
'LLVM-3.8.0',
'LLVM-3.9.0',
'LLVM-Xcode-6.4' { somewhere around LLVM 3.6.0 }
);
@ -79,6 +84,8 @@ Const
{ llvmver_3_6_1 } [],
{ llvmver_3_6_2 } [],
{ llvmver_3_7_0 } [llvmflag_load_getelptr_type,llvmflag_call_no_ptr],
{ llvmver_3_8_0 } [llvmflag_load_getelptr_type,llvmflag_call_no_ptr,llvmflag_alias_double_type],
{ llvmver_3_9_0 } [llvmflag_load_getelptr_type,llvmflag_call_no_ptr,llvmflag_alias_double_type],
{ llvmver_xc_6_4 } [llvmflag_metadata_keyword]
);