mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 01:59:18 +02:00
- removed unused variables
git-svn-id: branches/hlcgllvm@28131 -
This commit is contained in:
parent
7ca4ebee9d
commit
2af0b46792
@ -90,9 +90,6 @@ implementation
|
||||
const
|
||||
line_length = 70;
|
||||
|
||||
var
|
||||
symendcount : longint;
|
||||
|
||||
type
|
||||
{$ifdef cpuextended}
|
||||
t80bitarray = array[0..9] of byte;
|
||||
@ -340,7 +337,7 @@ implementation
|
||||
procedure TLLVMInstrWriter.WriteInstruction(hp: tai);
|
||||
var
|
||||
op: tllvmop;
|
||||
sep, tmpstr: TSymStr;
|
||||
sep: TSymStr;
|
||||
i, opstart: byte;
|
||||
nested: boolean;
|
||||
done: boolean;
|
||||
@ -564,9 +561,6 @@ implementation
|
||||
|
||||
|
||||
procedure TLLVMAssember.WriteRealConst(hp: tai_realconst; do_line: boolean);
|
||||
var
|
||||
pdata: pbyte;
|
||||
index, step, swapmask, count: longint;
|
||||
begin
|
||||
if do_line and
|
||||
(fdecllevel=0) then
|
||||
@ -1081,7 +1075,6 @@ implementation
|
||||
|
||||
WriteExtraHeader;
|
||||
AsmStartSize:=AsmSize;
|
||||
symendcount:=0;
|
||||
|
||||
for hal:=low(TasmlistType) to high(TasmlistType) do
|
||||
begin
|
||||
|
Loading…
Reference in New Issue
Block a user