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

* removed some unused variables

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-25 21:55:43 +00:00
parent 9fc51ed8f0
commit a5c94ddccd
12 changed files with 66 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/compiler.pas
View File

@ -366,9 +366,11 @@ function Compile(const cmd:string):longint;
var var
starttime : real; starttime : real;
{$ifdef SHOWUSEDMEM}
{$ifdef HASGETHEAPSTATUS} {$ifdef HASGETHEAPSTATUS}
hstatus : TFPCHeapStatus; hstatus : TFPCHeapStatus;
{$endif HASGETHEAPSTATUS} {$endif HASGETHEAPSTATUS}
{$endif SHOWUSEDMEM}
begin begin
try try
try try
@ -441,7 +443,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.58 2005-02-28 15:38:38 marco Revision 1.59 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.58 2005/02/28 15:38:38 marco
* getFPCheapstatus (no, FPC HEAP, not FP CHEAP!) * getFPCheapstatus (no, FPC HEAP, not FP CHEAP!)
Revision 1.57 2005/02/15 19:15:45 peter Revision 1.57 2005/02/15 19:15:45 peter

6
compiler/dwarf.pas
View File

@ -213,7 +213,6 @@ implementation
); );
var var
i : integer; i : integer;
v : int64;
begin begin
list.concat(tai_const.create_8bit(op)); list.concat(tai_const.create_8bit(op));
for i:=0 to ops-1 do for i:=0 to ops-1 do
@ -421,7 +420,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.5 2005-02-14 17:13:06 peter Revision 1.6 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.5 2005/02/14 17:13:06 peter
* truncate log * truncate log
} }

8
compiler/ncgutil.pas
View File

@ -1334,8 +1334,6 @@ implementation
i : longint; i : longint;
currpara : tparavarsym; currpara : tparavarsym;
paraloc : pcgparalocation; paraloc : pcgparalocation;
hreflo,
hrefhi,
href : treference; href : treference;
sizeleft : aint; sizeleft : aint;
{$ifdef sparc} {$ifdef sparc}
@ -2367,7 +2365,6 @@ implementation
procedure gen_intf_wrapper(list:taasmoutput;_class:tobjectdef); procedure gen_intf_wrapper(list:taasmoutput;_class:tobjectdef);
var var
rawdata: taasmoutput;
i,j, i,j,
proccount : longint; proccount : longint;
tmps : string; tmps : string;
@ -2408,7 +2405,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.264 2005-03-09 22:37:24 peter Revision 1.265 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.264 2005/03/09 22:37:24 peter
put intf wrappers in code section put intf wrappers in code section
Revision 1.263 2005/03/02 19:44:11 jonas Revision 1.263 2005/03/02 19:44:11 jonas

7
compiler/pinline.pas
View File

@ -620,11 +620,9 @@ implementation
highppn, highppn,
npara, npara,
paras : tnode; paras : tnode;
temp : ttempcreatenode;
ppn : tcallparanode; ppn : tcallparanode;
paradef : tdef; paradef : tdef;
counter : integer; counter : integer;
newstatement : tstatementnode;
{$ifdef ansistring_bits} {$ifdef ansistring_bits}
mode : byte; mode : byte;
{$endif ansistring_bits} {$endif ansistring_bits}
@ -743,7 +741,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.41 2005-03-05 16:37:42 florian Revision 1.42 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.41 2005/03/05 16:37:42 florian
* fixed copy(dyn. array,...); * fixed copy(dyn. array,...);
Revision 1.40 2005/03/03 19:36:42 jonas Revision 1.40 2005/03/03 19:36:42 jonas

12
compiler/pmodules.pas
View File

@ -922,7 +922,10 @@ implementation
main_file: tinputfile; main_file: tinputfile;
st : tsymtable; st : tsymtable;
unitst : tglobalsymtable; unitst : tglobalsymtable;
store_crc,store_interface_crc : cardinal; {$ifdef EXTDEBUG}
store_crc,
{$endif EXTDEBUG}
store_interface_crc : cardinal;
s1,s2 : ^string; {Saves stack space} s1,s2 : ^string; {Saves stack space}
force_init_final : boolean; force_init_final : boolean;
pd : tprocdef; pd : tprocdef;
@ -1273,7 +1276,9 @@ implementation
{ Write out the ppufile after the object file has been created } { Write out the ppufile after the object file has been created }
store_interface_crc:=current_module.interface_crc; store_interface_crc:=current_module.interface_crc;
{$ifdef EXTDEBUG}
store_crc:=current_module.crc; store_crc:=current_module.crc;
{$endif EXTDEBUG}
if (Errorcount=0) then if (Errorcount=0) then
tppumodule(current_module).writeppu; tppumodule(current_module).writeppu;
@ -1622,7 +1627,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.185 2005-02-14 17:13:07 peter Revision 1.186 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.185 2005/02/14 17:13:07 peter
* truncate log * truncate log
Revision 1.184 2005/02/06 21:33:28 peter Revision 1.184 2005/02/06 21:33:28 peter

30
compiler/powerpc/cgcpu.pas
View File

@ -394,8 +394,6 @@ const
{ calling a procedure by name } { calling a procedure by name }
procedure tcgppc.a_call_name(list : taasmoutput;const s : string); procedure tcgppc.a_call_name(list : taasmoutput;const s : string);
var
href : treference;
begin begin
{ MacOS: The linker on MacOS (PPCLink) inserts a call to glue code, { MacOS: The linker on MacOS (PPCLink) inserts a call to glue code,
if it is a cross-TOC call. If so, it also replaces the NOP if it is a cross-TOC call. If so, it also replaces the NOP
@ -521,8 +519,7 @@ const
((A_LWZ,A_LWZU),(A_LWZX,A_LWZUX))); ((A_LWZ,A_LWZU),(A_LWZX,A_LWZUX)));
var var
op: tasmop; op: tasmop;
tmpreg: tregister; ref2: treference;
ref2, tmpref: treference;
begin begin
{ TODO: optimize/take into consideration fromsize/tosize. Will } { TODO: optimize/take into consideration fromsize/tosize. Will }
@ -847,7 +844,6 @@ const
l : tasmlabel); l : tasmlabel);
var var
p: taicpu;
scratch_register: TRegister; scratch_register: TRegister;
signed: boolean; signed: boolean;
@ -884,7 +880,6 @@ const
reg1,reg2 : tregister;l : tasmlabel); reg1,reg2 : tregister;l : tasmlabel);
var var
p: taicpu;
op: tasmop; op: tasmop;
begin begin
@ -1050,16 +1045,11 @@ const
var regcounter,firstregfpu,firstreggpr: TSuperRegister; var regcounter,firstregfpu,firstreggpr: TSuperRegister;
href,href2 : treference; href : treference;
usesfpr,usesgpr,gotgot : boolean; usesfpr,usesgpr,gotgot : boolean;
parastart : aint;
l : tasmlabel;
regcounter2, firstfpureg: Tsuperregister; regcounter2, firstfpureg: Tsuperregister;
i : integer;
hp: tparavarsym;
cond : tasmcond; cond : tasmcond;
instr : taicpu; instr : taicpu;
size: tcgsize;
begin begin
{ CR and LR only have to be saved in case they are modified by the current } { CR and LR only have to be saved in case they are modified by the current }
@ -1590,7 +1580,7 @@ const
const const
macosLinkageAreaSize = 24; macosLinkageAreaSize = 24;
var regcounter: TRegister; var
href : treference; href : treference;
registerSaveAreaSize : longint; registerSaveAreaSize : longint;
@ -1717,7 +1707,6 @@ const
var var
ref2, tmpref: treference; ref2, tmpref: treference;
tmpreg:Tregister;
begin begin
ref2 := ref; ref2 := ref;
@ -1813,7 +1802,6 @@ const
src, dst: TReference; src, dst: TReference;
lab: tasmlabel; lab: tasmlabel;
count, count2: aint; count, count2: aint;
orgsrc, orgdst: boolean;
size: tcgsize; size: tcgsize;
begin begin
@ -1853,12 +1841,10 @@ const
begin begin
src.base := rg[R_INTREGISTER].getregister(list,R_SUBWHOLE); src.base := rg[R_INTREGISTER].getregister(list,R_SUBWHOLE);
a_loadaddr_ref_reg(list,source,src.base); a_loadaddr_ref_reg(list,source,src.base);
orgsrc := false;
end end
else else
begin begin
src := source; src := source;
orgsrc := true;
end; end;
{ load the address of dest into dst.base } { load the address of dest into dst.base }
if (count > 4) or if (count > 4) or
@ -1868,12 +1854,10 @@ const
begin begin
dst.base := rg[R_INTREGISTER].getregister(list,R_SUBWHOLE); dst.base := rg[R_INTREGISTER].getregister(list,R_SUBWHOLE);
a_loadaddr_ref_reg(list,dest,dst.base); a_loadaddr_ref_reg(list,dest,dst.base);
orgdst := false;
end end
else else
begin begin
dst := dest; dst := dest;
orgdst := true;
end; end;
{$ifndef ppc603} {$ifndef ppc603}
@ -2044,9 +2028,7 @@ const
end; end;
var var
lab : tasmsymbol;
make_global : boolean; make_global : boolean;
href : treference;
begin begin
if procdef.proctypeoption<>potype_none then if procdef.proctypeoption<>potype_none then
Internalerror(200006137); Internalerror(200006137);
@ -2107,7 +2089,6 @@ const
var var
tmpreg: tregister; tmpreg: tregister;
orgindex: tregister;
begin begin
result := false; result := false;
if (ref.base = NR_NO) then if (ref.base = NR_NO) then
@ -2420,7 +2401,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.195 2005-02-14 17:13:10 peter Revision 1.196 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.195 2005/02/14 17:13:10 peter
* truncate log * truncate log
Revision 1.194 2005/02/13 18:55:19 florian Revision 1.194 2005/02/13 18:55:19 florian

7
compiler/powerpc/cpuinfo.pas
View File

@ -62,7 +62,7 @@ Const
'604' '604'
); );
fputypestr : array[tfputype] of string[6] = ('', fputypestr : array[tfputype] of string[8] = ('',
'SOFT', 'SOFT',
'STANDARD' 'STANDARD'
); );
@ -72,7 +72,10 @@ Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.22 2005-02-14 17:13:10 peter Revision 1.23 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.22 2005/02/14 17:13:10 peter
* truncate log * truncate log
} }

9
compiler/powerpc/nppcmat.pas
View File

@ -188,7 +188,6 @@ implementation
op : topcg; op : topcg;
asmop1, asmop2: tasmop; asmop1, asmop2: tasmop;
shiftval: aint; shiftval: aint;
r : Tregister;
begin begin
secondpass(left); secondpass(left);
@ -356,7 +355,7 @@ implementation
procedure tppcunaryminusnode.pass_2; procedure tppcunaryminusnode.pass_2;
var var
src1, src2, tmp: tregister; src1: tregister;
op: tasmop; op: tasmop;
begin begin
@ -452,7 +451,6 @@ implementation
var var
hl : tasmlabel; hl : tasmlabel;
regl, regh: tregister;
begin begin
if is_boolean(resulttype.def) then if is_boolean(resulttype.def) then
@ -526,7 +524,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.44 2005-02-14 17:13:10 peter Revision 1.45 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.44 2005/02/14 17:13:10 peter
* truncate log * truncate log
} }

7
compiler/powerpc/nppcset.pas
View File

@ -64,8 +64,6 @@ implementation
procedure genitem(t : pcaselabel); procedure genitem(t : pcaselabel);
var r:Tregister;
procedure gensub(value:longint); procedure gensub(value:longint);
var var
tmpreg: tregister; tmpreg: tregister;
@ -156,7 +154,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.18 2005-02-14 17:13:10 peter Revision 1.19 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.18 2005/02/14 17:13:10 peter
* truncate log * truncate log
} }

7
compiler/rgobj.pas
View File

@ -1464,7 +1464,9 @@ unit rgobj;
procedure trgobj.generate_interference_graph(list:Taasmoutput;headertai:tai); procedure trgobj.generate_interference_graph(list:Taasmoutput;headertai:tai);
var var
p : tai; p : tai;
{$ifdef EXTDEBUG}
i : integer; i : integer;
{$endif EXTDEBUG}
supreg : tsuperregister; supreg : tsuperregister;
begin begin
{ All allocations are available. Now we can generate the { All allocations are available. Now we can generate the
@ -2012,7 +2014,10 @@ unit rgobj;
end. end.
{ {
$Log$ $Log$
Revision 1.155 2005-03-20 19:47:46 peter Revision 1.156 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.155 2005/03/20 19:47:46 peter
* fix spilling code when explicit cpu registers are used in an * fix spilling code when explicit cpu registers are used in an
instruction instruction

7
compiler/symdef.pas
View File

@ -4125,7 +4125,9 @@ implementation
function tprocdef.write_references(ppufile:tcompilerppufile;locals:boolean):boolean; function tprocdef.write_references(ppufile:tcompilerppufile;locals:boolean):boolean;
var var
ref : tref; ref : tref;
{$ifdef supportbrowser}
pdo : tobjectdef; pdo : tobjectdef;
{$endif supportbrowser}
move_last : boolean; move_last : boolean;
d : tderef; d : tderef;
oldparasymtable, oldparasymtable,
@ -6394,7 +6396,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.300 2005-03-13 08:35:09 florian Revision 1.301 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.300 2005/03/13 08:35:09 florian
* fixed FieldAddress for 64 bit and CPUs requiring proper alignment * fixed FieldAddress for 64 bit and CPUs requiring proper alignment
Revision 1.299 2005/03/07 17:58:27 peter Revision 1.299 2005/03/07 17:58:27 peter

7
compiler/systems/t_macos.pas
View File

@ -213,9 +213,9 @@ begin
Message1(exec_i_linking,current_module.exefilename^); Message1(exec_i_linking,current_module.exefilename^);
{ Create some replacements } { Create some replacements }
StripStr:='';
(* (*
StaticStr:=''; StaticStr:='';
StripStr:='';
DynLinkStr:=''; DynLinkStr:='';
if (cs_link_staticflag in aktglobalswitches) then if (cs_link_staticflag in aktglobalswitches) then
StaticStr:='-static'; StaticStr:='-static';
@ -272,7 +272,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.21 2005-02-14 17:13:10 peter Revision 1.22 2005-03-25 21:55:43 jonas
* removed some unused variables
Revision 1.21 2005/02/14 17:13:10 peter
* truncate log * truncate log
Revision 1.20 2005/02/08 22:30:32 olle Revision 1.20 2005/02/08 22:30:32 olle