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

compiler: remove/hide few unused variables

Browse Source 
git-svn-id: trunk@18912 -
This commit is contained in:
paul 2011-08-30 01:32:23 +00:00
parent adceaf438c
commit 4b24a58871
4 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/nadd.pas
View File

@ -346,9 +346,8 @@ implementation
function taddnode.simplify(forinline : boolean) : tnode; function taddnode.simplify(forinline : boolean) : tnode;
var var
t, hp : tnode; t : tnode;
lt,rt : tnodetype; lt,rt : tnodetype;
realdef : tdef;
rd,ld : tdef; rd,ld : tdef;
rv,lv,v : tconstexprint; rv,lv,v : tconstexprint;
rvd,lvd : bestreal; rvd,lvd : bestreal;

2
compiler/pdecsub.pas
View File

@ -1623,7 +1623,9 @@ end;
procedure pd_interrupt(pd:tabstractprocdef); procedure pd_interrupt(pd:tabstractprocdef);
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
var v: Tconstexprint; var v: Tconstexprint;
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
begin begin
if pd.parast.symtablelevel>normal_function_level then if pd.parast.symtablelevel>normal_function_level then

2
compiler/symtable.pas
View File

@ -1563,8 +1563,6 @@ implementation
function tstaticsymtable.checkduplicate(var hashedid:THashedIDString;sym:TSymEntry):boolean; function tstaticsymtable.checkduplicate(var hashedid:THashedIDString;sym:TSymEntry):boolean;
var
hsym : tsym;
begin begin
result:=inherited checkduplicate(hashedid,sym); result:=inherited checkduplicate(hashedid,sym);

2
compiler/x86/aasmcpu.pas
View File

@ -1729,7 +1729,9 @@ implementation
c : byte; c : byte;
len : shortint; len : shortint;
ea_data : ea; ea_data : ea;
{$ifdef x86_64}
omit_rexw : boolean; omit_rexw : boolean;
{$endif x86_64}
begin begin
len:=0; len:=0;
codes:=@p^.code[0]; codes:=@p^.code[0];