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

* add some llvm function flags

Browse Source 
o in particular, mark fpc_setjmp as "returns_twice" so calls to it are
     never converted into tail calls

git-svn-id: trunk@31659 -
This commit is contained in:
Jonas Maebe 2015-09-12 23:34:04 +00:00
parent faf4a9cb38
commit 75012405fa
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/llvm/agllvm.pas
View File

@ -713,6 +713,24 @@ implementation
procedure TLLVMAssember.WriteTai(const replaceforbidden: boolean; const do_line: boolean; var InlineLevel: cardinal; var asmblock: boolean; var hp: tai); procedure TLLVMAssember.WriteTai(const replaceforbidden: boolean; const do_line: boolean; var InlineLevel: cardinal; var asmblock: boolean; var hp: tai);
procedure WriteFunctionFlags(pd: tprocdef);
begin
if (pos('FPC_SETJMP',upper(pd.mangledname))<>0) or
(pd.mangledname=(target_info.cprefix+'setjmp')) then
writer.AsmWrite(' returns_twice');
if po_inline in pd.procoptions then
writer.AsmWrite(' inlinehint');
{ ensure that functions that happen to have the same name as a
standard C library function, but which are implemented in Pascal,
are not considered to have the same semantics as the C function with
the same name }
if not(po_external in pd.procoptions) then
writer.AsmWrite(' nobuiltin');
if po_noreturn in pd.procoptions then
writer.AsmWrite(' noreturn');
end;
procedure WriteTypedConstData(hp: tai_abstracttypedconst); procedure WriteTypedConstData(hp: tai_abstracttypedconst);
var var
p: tai_abstracttypedconst; p: tai_abstracttypedconst;
@ -918,12 +936,15 @@ implementation
if not(ldf_definition in taillvmdecl(hp).flags) then if not(ldf_definition in taillvmdecl(hp).flags) then
begin begin
writer.AsmWrite('declare'); writer.AsmWrite('declare');
writer.AsmWriteln(llvmencodeproctype(tprocdef(taillvmdecl(hp).def), taillvmdecl(hp).namesym.name, lpd_decl)); writer.AsmWrite(llvmencodeproctype(tprocdef(taillvmdecl(hp).def), taillvmdecl(hp).namesym.name, lpd_decl));
WriteFunctionFlags(tprocdef(taillvmdecl(hp).def));
writer.AsmLn;
end end
else else
begin begin
writer.AsmWrite('define'); writer.AsmWrite('define');
writer.AsmWrite(llvmencodeproctype(tprocdef(taillvmdecl(hp).def), '', lpd_decl)); writer.AsmWrite(llvmencodeproctype(tprocdef(taillvmdecl(hp).def), '', lpd_decl));
WriteFunctionFlags(tprocdef(taillvmdecl(hp).def));
writer.AsmWriteln(' {'); writer.AsmWriteln(' {');
end; end;
end end