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

- removed unused variables

Browse Source 
git-svn-id: branches/hlcgllvm@28131 -
This commit is contained in:
Jonas Maebe 2014-07-02 17:24:47 +00:00
parent 7ca4ebee9d
commit 2af0b46792
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/llvm/agllvm.pas
View File

@ -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