Browse Source

agllvm: remove useless code

Jonas Maebe 3 years ago
parent
commit
527c68b6c3
1 changed files with 0 additions and 5 deletions
  1. 0 5
      compiler/llvm/agllvm.pas

+ 0 - 5
compiler/llvm/agllvm.pas

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