paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 14:39:36 +01: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
starttime : real;
{$ifdef SHOWUSEDMEM}
{$ifdef HASGETHEAPSTATUS}
hstatus : TFPCHeapStatus;
{$endif HASGETHEAPSTATUS}
{$endif SHOWUSEDMEM}
begin
try
try
@ -441,7 +443,10 @@ end;
end.
{
$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!)
Revision 1.57 2005/02/15 19:15:45 peter

6
compiler/dwarf.pas
View File

@ -213,7 +213,6 @@ implementation
);
var
i : integer;
v : int64;
begin
list.concat(tai_const.create_8bit(op));
for i:=0 to ops-1 do
@ -421,7 +420,10 @@ begin
end.
{
$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
}

8
compiler/ncgutil.pas
View File

@ -1334,8 +1334,6 @@ implementation
i : longint;
currpara : tparavarsym;
paraloc : pcgparalocation;
hreflo,
hrefhi,
href : treference;
sizeleft : aint;
{$ifdef sparc}
@ -2367,7 +2365,6 @@ implementation
procedure gen_intf_wrapper(list:taasmoutput;_class:tobjectdef);
var
rawdata: taasmoutput;
i,j,
proccount : longint;
tmps : string;
@ -2408,7 +2405,10 @@ implementation
end.
{
$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
Revision 1.263 2005/03/02 19:44:11 jonas

7
compiler/pinline.pas
View File

@ -620,11 +620,9 @@ implementation
highppn,
npara,
paras : tnode;
temp : ttempcreatenode;
ppn : tcallparanode;
paradef : tdef;
counter : integer;
newstatement : tstatementnode;
{$ifdef ansistring_bits}
mode : byte;
{$endif ansistring_bits}
@ -743,7 +741,10 @@ implementation
end.
{
$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,...);
Revision 1.40 2005/03/03 19:36:42 jonas

12
compiler/pmodules.pas
View File

@ -922,7 +922,10 @@ implementation
main_file: tinputfile;
st : tsymtable;
unitst : tglobalsymtable;
store_crc,store_interface_crc : cardinal;
{$ifdef EXTDEBUG}
store_crc,
{$endif EXTDEBUG}
store_interface_crc : cardinal;
s1,s2 : ^string; {Saves stack space}
force_init_final : boolean;
pd : tprocdef;
@ -1273,7 +1276,9 @@ implementation
{ Write out the ppufile after the object file has been created }
store_interface_crc:=current_module.interface_crc;
{$ifdef EXTDEBUG}
store_crc:=current_module.crc;
{$endif EXTDEBUG}
if (Errorcount=0) then
tppumodule(current_module).writeppu;
@ -1622,7 +1627,10 @@ implementation
end.
{
$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
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 }
procedure tcgppc.a_call_name(list : taasmoutput;const s : string);
var
href : treference;
begin
{ 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
@ -521,8 +519,7 @@ const
((A_LWZ,A_LWZU),(A_LWZX,A_LWZUX)));
var
op: tasmop;
tmpreg: tregister;
ref2, tmpref: treference;
ref2: treference;
begin
{ TODO: optimize/take into consideration fromsize/tosize. Will }
@ -847,7 +844,6 @@ const
l : tasmlabel);
var
p: taicpu;
scratch_register: TRegister;
signed: boolean;
@ -884,7 +880,6 @@ const
reg1,reg2 : tregister;l : tasmlabel);
var
p: taicpu;
op: tasmop;
begin
@ -1050,16 +1045,11 @@ const
var regcounter,firstregfpu,firstreggpr: TSuperRegister;
href,href2 : treference;
href : treference;
usesfpr,usesgpr,gotgot : boolean;
parastart : aint;
l : tasmlabel;
regcounter2, firstfpureg: Tsuperregister;
i : integer;
hp: tparavarsym;
cond : tasmcond;
instr : taicpu;
size: tcgsize;
begin
{ CR and LR only have to be saved in case they are modified by the current }
@ -1590,7 +1580,7 @@ const
const
macosLinkageAreaSize = 24;
var regcounter: TRegister;
var
href : treference;
registerSaveAreaSize : longint;
@ -1717,7 +1707,6 @@ const
var
ref2, tmpref: treference;
tmpreg:Tregister;
begin
ref2 := ref;
@ -1813,7 +1802,6 @@ const
src, dst: TReference;
lab: tasmlabel;
count, count2: aint;
orgsrc, orgdst: boolean;
size: tcgsize;
begin
@ -1853,12 +1841,10 @@ const
begin
src.base := rg[R_INTREGISTER].getregister(list,R_SUBWHOLE);
a_loadaddr_ref_reg(list,source,src.base);
orgsrc := false;
end
else
begin
src := source;
orgsrc := true;
end;
{ load the address of dest into dst.base }
if (count > 4) or
@ -1868,12 +1854,10 @@ const
begin
dst.base := rg[R_INTREGISTER].getregister(list,R_SUBWHOLE);
a_loadaddr_ref_reg(list,dest,dst.base);
orgdst := false;
end
else
begin
dst := dest;
orgdst := true;
end;
{$ifndef ppc603}
@ -2044,9 +2028,7 @@ const
end;
var
lab : tasmsymbol;
make_global : boolean;
href : treference;
begin
if procdef.proctypeoption<>potype_none then
Internalerror(200006137);
@ -2107,7 +2089,6 @@ const
var
tmpreg: tregister;
orgindex: tregister;
begin
result := false;
if (ref.base = NR_NO) then
@ -2420,7 +2401,10 @@ begin
end.
{
$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
Revision 1.194 2005/02/13 18:55:19 florian

7
compiler/powerpc/cpuinfo.pas
View File

@ -62,7 +62,7 @@ Const
'604'
);
fputypestr : array[tfputype] of string[6] = ('',
fputypestr : array[tfputype] of string[8] = ('',
'SOFT',
'STANDARD'
);
@ -72,7 +72,10 @@ Implementation
end.
{
$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
}

9
compiler/powerpc/nppcmat.pas
View File

@ -188,7 +188,6 @@ implementation
op : topcg;
asmop1, asmop2: tasmop;
shiftval: aint;
r : Tregister;
begin
secondpass(left);
@ -356,7 +355,7 @@ implementation
procedure tppcunaryminusnode.pass_2;
var
src1, src2, tmp: tregister;
src1: tregister;
op: tasmop;
begin
@ -452,7 +451,6 @@ implementation
var
hl : tasmlabel;
regl, regh: tregister;
begin
if is_boolean(resulttype.def) then
@ -526,7 +524,10 @@ begin
end.
{
$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
}

7
compiler/powerpc/nppcset.pas
View File

@ -64,8 +64,6 @@ implementation
procedure genitem(t : pcaselabel);
var r:Tregister;
procedure gensub(value:longint);
var
tmpreg: tregister;
@ -156,7 +154,10 @@ begin
end.
{
$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
}

7
compiler/rgobj.pas
View File

@ -1464,7 +1464,9 @@ unit rgobj;
procedure trgobj.generate_interference_graph(list:Taasmoutput;headertai:tai);
var
p : tai;
{$ifdef EXTDEBUG}
i : integer;
{$endif EXTDEBUG}
supreg : tsuperregister;
begin
{ All allocations are available. Now we can generate the
@ -2012,7 +2014,10 @@ unit rgobj;
end.
{
$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
instruction

7
compiler/symdef.pas
View File

@ -4125,7 +4125,9 @@ implementation
function tprocdef.write_references(ppufile:tcompilerppufile;locals:boolean):boolean;
var
ref : tref;
{$ifdef supportbrowser}
pdo : tobjectdef;
{$endif supportbrowser}
move_last : boolean;
d : tderef;
oldparasymtable,
@ -6394,7 +6396,10 @@ implementation
end.
{
$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
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^);
{ Create some replacements }
StripStr:='';
(*
StaticStr:='';
StripStr:='';
DynLinkStr:='';
if (cs_link_staticflag in aktglobalswitches) then
StaticStr:='-static';
@ -272,7 +272,10 @@ initialization
end.
{
$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
Revision 1.20 2005/02/08 22:30:32 olle