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

* Removed unused vars.

Browse Source 
git-svn-id: trunk@34405 -
This commit is contained in:
yury 2016-09-01 20:01:54 +00:00
parent e3d9dbbeef
commit 649823a246
4 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/expunix.pas
View File

@ -136,10 +136,6 @@ var
pd : tprocdef; pd : tprocdef;
anyhasalias : boolean; anyhasalias : boolean;
i : longint; i : longint;
{$ifdef x86}
sym : tasmsymbol;
r : treference;
{$endif x86}
begin begin
pd:=nil; pd:=nil;
create_hlcodegen; create_hlcodegen;

2
compiler/i386/aoptcpu.pas
View File

@ -584,8 +584,6 @@ var
TmpRef: TReference; TmpRef: TReference;
TmpUsedRegs: TAllUsedRegs;
TmpBool1, TmpBool2: Boolean; TmpBool1, TmpBool2: Boolean;
function GetFinalDestination(asml: TAsmList; hp: taicpu; level: longint): boolean; function GetFinalDestination(asml: TAsmList; hp: taicpu; level: longint): boolean;

3
compiler/mips/cpugas.pas
View File

@ -179,9 +179,6 @@ unit cpugas;
Op: TAsmOp; Op: TAsmOp;
s: string; s: string;
i: integer; i: integer;
tmpfpu: string;
//tmpfpu_len: longint;
r: TRegister;
begin begin
if hp.typ <> ait_instruction then if hp.typ <> ait_instruction then
exit; exit;

2
compiler/x86_64/aoptcpu.pas
View File

@ -50,8 +50,6 @@ uses
function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean; function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
var var
hp1, hp2: tai; hp1, hp2: tai;
GetNextIntruction_p : boolean;
TmpUsedRegs : TAllUsedRegs;
begin begin
Result := False; Result := False;
case p.typ of case p.typ of