Browse Source

- removed unused variables

git-svn-id: branches/hlcgllvm@28131 -
Jonas Maebe 11 years ago
parent
commit
2af0b46792
1 changed files with 1 additions and 8 deletions
  1. 1 8
      compiler/llvm/agllvm.pas

+ 1 - 8
compiler/llvm/agllvm.pas

@@ -90,9 +90,6 @@ implementation
     const
     const
       line_length = 70;
       line_length = 70;
 
 
-    var
-      symendcount  : longint;
-
     type
     type
 {$ifdef cpuextended}
 {$ifdef cpuextended}
       t80bitarray = array[0..9] of byte;
       t80bitarray = array[0..9] of byte;
@@ -340,7 +337,7 @@ implementation
   procedure TLLVMInstrWriter.WriteInstruction(hp: tai);
   procedure TLLVMInstrWriter.WriteInstruction(hp: tai);
     var
     var
       op: tllvmop;
       op: tllvmop;
-      sep, tmpstr: TSymStr;
+      sep: TSymStr;
       i, opstart: byte;
       i, opstart: byte;
       nested: boolean;
       nested: boolean;
       done: boolean;
       done: boolean;
@@ -564,9 +561,6 @@ implementation
 
 
 
 
     procedure TLLVMAssember.WriteRealConst(hp: tai_realconst; do_line: boolean);
     procedure TLLVMAssember.WriteRealConst(hp: tai_realconst; do_line: boolean);
-      var
-        pdata: pbyte;
-        index, step, swapmask, count: longint;
       begin
       begin
         if do_line and
         if do_line and
            (fdecllevel=0) then
            (fdecllevel=0) then
@@ -1081,7 +1075,6 @@ implementation
 
 
         WriteExtraHeader;
         WriteExtraHeader;
         AsmStartSize:=AsmSize;
         AsmStartSize:=AsmSize;
-        symendcount:=0;
 
 
         for hal:=low(TasmlistType) to high(TasmlistType) do
         for hal:=low(TasmlistType) to high(TasmlistType) do
           begin
           begin