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

agllvm: remove useless code

Browse Source
This commit is contained in:
Jonas Maebe 2022-04-09 15:00:56 +02:00
parent a8cb061a50
commit 527c68b6c3
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/llvm/agllvm.pas
View File

@ -95,7 +95,6 @@ interface
procedure WriteInstruction(hp : tai);
protected
owner: TLLVMAssember;
fstr: TSymStr;
function getopcodestr(hp: taillvm): TSymStr;
function getopstr(const o:toper; refwithalign: boolean) : TSymStr;
@ -331,8 +330,6 @@ implementation
begin
tmpinline:=1;
tmpasmblock:=false;
owner.writer.AsmWrite(fstr);
fstr:='';
owner.writer.AsmWrite('(');
for i:=0 to paras.count-1 do
begin
@ -375,8 +372,6 @@ implementation
tmpinline:=1;
tmpasmblock:=false;
hp:=para^.ai;
owner.writer.AsmWrite(fstr);
fstr:='';
owner.WriteTai(false,false,para^.def=llvm_metadatatype,tmpinline,tmpasmblock,hp);
end;
{ empty records }