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

* removed compiler warnings

Browse Source
This commit is contained in:
peter 2002-03-04 19:10:11 +00:00
parent ad52b0fbdf
commit b4cc4b7b01
22 changed files with 194 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/cg64f32.pas
View File

@ -358,7 +358,10 @@ begin
end.
{
$Log$
Revision 1.3 2002-01-24 12:33:52 jonas
Revision 1.4 2002-03-04 19:10:11 peter
* removed compiler warnings
Revision 1.3 2002/01/24 12:33:52 jonas
* adapted ranges of native types to int64 (e.g. high cardinal is no
longer longint($ffffffff), but just $fffffff in psystem)
* small additional fix in 64bit rangecheck code generation for 32 bit
@ -374,11 +377,12 @@ end.
qword is a special case
Revision 1.2 2001/12/30 17:24:48 jonas
* range checking is now processor independent (part in cgobj, part in
cg64f32) and should work correctly again (it needed some changes after
the changes of the low and high of tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.1 2001/12/29 15:29:58 jonas
* powerpc/cgcpu.pas compiles :)

12
compiler/cgbase.pas
View File

@ -507,8 +507,16 @@ begin
end.
{
$Log$
Revision 1.5 2001-12-30 17:24:48 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.6 2002-03-04 19:10:11 peter
* removed compiler warnings
Revision 1.5 2001/12/30 17:24:48 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.4 2001/11/06 14:53:48 jonas
* compiles again with -dmemdebug

35
compiler/cgobj.pas
View File

@ -399,8 +399,8 @@ unit cgobj;
procedure tcg.g_decrstrref(list : taasmoutput;const ref : treference;t : tdef);
var
pushedregs : tpushed;
{ var
pushedregs : tpushed; }
begin
(*
@ -425,8 +425,8 @@ unit cgobj;
{ that r points to the data to initialize }
procedure tcg.g_initialize(list : taasmoutput;t : tdef;const ref : treference;is_already_ref : boolean);
var
hr : treference;
{ var
hr : treference; }
begin
(*
@ -450,8 +450,8 @@ unit cgobj;
procedure tcg.g_finalize(list : taasmoutput;t : tdef;const ref : treference;is_already_ref : boolean);
var
r : treference;
{ var
r : treference; }
begin
(*
@ -478,8 +478,8 @@ unit cgobj;
{ generates the code for initialisation of local data }
procedure tcg.g_initialize_data(list : taasmoutput;p : tsym);
var
hr : treference;
{ var
hr : treference; }
begin
(*
@ -510,8 +510,8 @@ unit cgobj;
{ generates the code for incrementing the reference count of parameters }
procedure tcg.g_incr_data(list : taasmoutput;p : tsym);
var
hr : treference;
{ var
hr : treference; }
begin
(*
@ -540,8 +540,8 @@ unit cgobj;
{ generates the code for finalisation of local data }
procedure tcg.g_finalize_data(list : taasmoutput;p : tnamedindexitem);
var
hr : treference;
{ var
hr : treference; }
begin
(*
@ -847,7 +847,7 @@ unit cgobj;
end;
procedure tcg.g_exitcode(list : taasmoutput;parasize:longint;nostackframe,inlined:boolean);
(*
var
{$ifdef GDB}
mangled_length : longint;
@ -856,7 +856,7 @@ unit cgobj;
nofinal,noreraiselabel : tasmlabel;
hr : treference;
r : tregister;
*)
begin
(*
if aktexitlabel^.is_used then
@ -1434,8 +1434,11 @@ finalization
end.
{
$Log$
Revision 1.6 2001-12-30 17:24:48 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.7 2002-03-04 19:10:11 peter
* removed compiler warnings
Revision 1.6 2001/12/30 17:24:48 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.5 2001/12/29 15:28:58 jonas
* powerpc/cgcpu.pas compiles :)

12
compiler/i386/cga.pas
View File

@ -2987,7 +2987,10 @@ implementation
end.
{
$Log$
Revision 1.15 2002-01-24 18:25:53 peter
Revision 1.16 2002-03-04 19:10:12 peter
* removed compiler warnings
Revision 1.15 2002/01/24 18:25:53 peter
* implicit result variable generation for assembler routines
* removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead
@ -2995,7 +2998,12 @@ end.
* fixed init/final for value parameters
Revision 1.13 2001/12/30 17:24:45 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.12 2001/12/29 15:28:58 jonas
* powerpc/cgcpu.pas compiles :)

15
compiler/i386/cgcpu.pas
View File

@ -270,7 +270,6 @@ unit cgcpu;
var
opcode: tasmop;
power: longint;
scratch_register: TRegister;
begin
Case Op of
@ -342,7 +341,6 @@ unit cgcpu;
var
opcode: tasmop;
power: longint;
scratch_register: TRegister;
begin
Case Op of
@ -604,7 +602,6 @@ unit cgcpu;
size: tcgsize; src1, src2, dst: tregister);
var
tmpref: treference;
power: longint;
opsize: topsize;
begin
opsize := regsize(src1);
@ -880,8 +877,16 @@ begin
end.
{
$Log$
Revision 1.6 2001-12-30 17:24:46 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.7 2002-03-04 19:10:12 peter
* removed compiler warnings
Revision 1.6 2001/12/30 17:24:46 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.5 2001/12/29 15:29:59 jonas
* powerpc/cgcpu.pas compiles :)

12
compiler/i386/cpubase.pas
View File

@ -957,8 +957,16 @@ end;
end.
{
$Log$
Revision 1.9 2001-12-30 17:24:46 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.10 2002-03-04 19:10:12 peter
* removed compiler warnings
Revision 1.9 2001/12/30 17:24:46 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.8 2001/12/29 15:29:59 jonas
* powerpc/cgcpu.pas compiles :)

7
compiler/i386/csopt386.pas
View File

@ -1394,7 +1394,7 @@ procedure DoCSE(AsmL: TAAsmOutput; First, Last: Tai; findPrevSeqs, doSubOpts: bo
{marks the instructions that can be removed by RemoveInstructs. They're not
removed immediately because sometimes an instruction needs to be checked in
two different sequences}
var cnt, cnt2, cnt3, orgNrOfMods: longint;
var cnt, cnt2, {cnt3,} orgNrOfMods: longint;
p, hp1, hp2, prevSeq, prevSeq_next: Tai;
hp3, hp4: Tai;
hp5 : Tai;
@ -1956,7 +1956,10 @@ End.
{
$Log$
Revision 1.23 2001-12-04 15:58:13 jonas
Revision 1.24 2002-03-04 19:10:12 peter
* removed compiler warnings
Revision 1.23 2001/12/04 15:58:13 jonas
* unnecessary loads of constants are now also remove by
removePrevNotUsedLoad()

8
compiler/i386/daopt386.pas
View File

@ -1991,10 +1991,11 @@ Var
Cnt, InstrCnt : Longint;
InstrProp: TInsProp;
UsedRegs: TRegSet;
prev, p, hp : Tai;
prev,p : Tai;
TmpRef: TReference;
TmpReg: TRegister;
{$ifdef AnalyzeLoops}
hp : Tai;
TmpState: Byte;
{$endif AnalyzeLoops}
Begin
@ -2591,7 +2592,10 @@ End.
{
$Log$
Revision 1.25 2001-12-29 15:29:59 jonas
Revision 1.26 2002-03-04 19:10:13 peter
* removed compiler warnings
Revision 1.25 2001/12/29 15:29:59 jonas
* powerpc/cgcpu.pas compiles :)
* several powerpc-related fixes
* cpuasm unit is now based on common tainst unit

16
compiler/i386/n386add.pas
View File

@ -156,7 +156,6 @@ interface
var
pushedregs : tpushed;
href : treference;
pushed,
cmpop : boolean;
regstopush : byte;
begin
@ -264,8 +263,6 @@ interface
label do_normal;
var
unusedregisters : tregisterset;
usablecount : byte;
hregister,hregister2 : tregister;
noswap,popeax,popedx,
pushed,pushedfpu,
@ -291,7 +288,6 @@ interface
{$ifdef SUPPORT_MMX}
mmxbase : tmmxtype;
{$endif SUPPORT_MMX}
pushedreg : tpushed;
regstopush: byte;
procedure firstjmp64bitcmp;
@ -1863,8 +1859,16 @@ begin
end.
{
$Log$
Revision 1.28 2001-12-30 17:24:46 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.29 2002-03-04 19:10:13 peter
* removed compiler warnings
Revision 1.28 2001/12/30 17:24:46 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.27 2001/12/29 15:29:58 jonas
* powerpc/cgcpu.pas compiles :)

7
compiler/i386/n386cal.pas
View File

@ -257,7 +257,7 @@ implementation
unusedregisters : tregisterset;
usablecount : byte;
pushed : tpushed;
hr,funcretref,refcountedtemp : treference;
funcretref,refcountedtemp : treference;
hregister,hregister2 : tregister;
oldpushedparasize : longint;
{ true if ESI must be loaded again after the subroutine }
@ -1593,7 +1593,10 @@ begin
end.
{
$Log$
Revision 1.40 2001-12-31 09:53:15 jonas
Revision 1.41 2002-03-04 19:10:13 peter
* removed compiler warnings
Revision 1.40 2001/12/31 09:53:15 jonas
* changed remaining "getregister32" calls to "getregisterint"
Revision 1.39 2001/12/29 15:32:13 jonas

14
compiler/i386/n386cnv.pas
View File

@ -492,8 +492,16 @@ begin
end.
{
$Log$
Revision 1.29 2001-12-30 17:24:46 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.30 2002-03-04 19:10:13 peter
* removed compiler warnings
Revision 1.29 2001/12/30 17:24:46 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.28 2001/12/11 08:14:17 jonas
* part of my fix for dynarray -> open array conversion, forgot to
@ -533,7 +541,7 @@ end.
Revision 1.21 2001/08/28 13:24:47 jonas
+ compilerproc implementation of most string-related type conversions
- removed all code from the compiler which has been replaced by
compilerproc implementations (using {$ifdef hascompilerproc} is not
compilerproc implementations (using $ifdef hascompilerproc is not
necessary in the compiler)
Revision 1.20 2001/08/26 13:36:57 florian

12
compiler/i386/n386inl.pas
View File

@ -729,8 +729,16 @@ begin
end.
{
$Log$
Revision 1.31 2001-12-30 17:24:46 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.32 2002-03-04 19:10:14 peter
* removed compiler warnings
Revision 1.31 2001/12/30 17:24:46 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.30 2001/12/10 14:34:04 jonas
* fixed type conversions from dynamic arrays to open arrays

12
compiler/i386/n386ld.pas
View File

@ -1091,8 +1091,16 @@ begin
end.
{
$Log$
Revision 1.28 2001-12-30 17:24:46 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.29 2002-03-04 19:10:14 peter
* removed compiler warnings
Revision 1.28 2001/12/30 17:24:46 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.27 2001/12/17 23:16:05 florian
* array of const can now take widestring parameters as well

25
compiler/i386/n386mat.pas
View File

@ -64,18 +64,11 @@ implementation
procedure ti386moddivnode.pass_2;
var
unusedregisters : tregisterset;
usablecount, regstopush : byte;
hreg1 : tregister;
hreg2 : tregister;
shrdiv, pushed,popeax,popedx : boolean;
power : longint;
hl : tasmlabel;
hloc : tlocation;
pushedreg : tpushed;
typename,opname : string[6];
begin
shrdiv := false;
secondpass(left);
@ -300,7 +293,7 @@ implementation
hregister1,hregister2,hregister3,
hregisterhigh,hregisterlow : tregister;
pushed,popecx : boolean;
op,opd : tasmop;
op : tasmop;
l1,l2,l3 : tasmlabel;
begin
@ -320,10 +313,6 @@ implementation
if is_64bitint(left.resulttype.def) then
begin
if nodetype = shln then
opd:=A_SHLD
else opd:=A_SHRD;
{ load left operator in a register }
if left.location.loc<>LOC_REGISTER then
begin
@ -999,8 +988,16 @@ begin
end.
{
$Log$
Revision 1.22 2001-12-30 17:24:47 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.23 2002-03-04 19:10:14 peter
* removed compiler warnings
Revision 1.22 2001/12/30 17:24:47 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.21 2001/12/29 15:27:24 jonas
* made 'mod powerof2' -> 'and' optimization processor independent

12
compiler/i386/n386mem.pas
View File

@ -701,8 +701,16 @@ begin
end.
{
$Log$
Revision 1.19 2001-12-30 17:24:47 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.20 2002-03-04 19:10:14 peter
* removed compiler warnings
Revision 1.19 2001/12/30 17:24:47 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.18 2001/12/03 21:48:43 peter
* freemem change to value parameter

12
compiler/i386/n386util.pas
View File

@ -1199,8 +1199,16 @@ implementation
end.
{
$Log$
Revision 1.25 2001-12-30 17:24:47 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.26 2002-03-04 19:10:14 peter
* removed compiler warnings
Revision 1.25 2001/12/30 17:24:47 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.24 2001/12/03 21:48:43 peter
* freemem change to value parameter

13
compiler/ncgflw.pas
View File

@ -154,7 +154,6 @@ implementation
org_list,
then_list,
else_list : taasmoutput;
regcounter: tregister;
begin
otlabel:=truelabel;
@ -649,8 +648,16 @@ begin
end.
{
$Log$
Revision 1.7 2001-12-30 17:24:48 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.8 2002-03-04 19:10:11 peter
* removed compiler warnings
Revision 1.7 2001/12/30 17:24:48 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
Revision 1.6 2001/12/29 15:28:57 jonas
* powerpc/cgcpu.pas compiles :)

12
compiler/ncgutil.pas
View File

@ -213,8 +213,14 @@ end.
{
$Log$
Revision 1.1 2001-12-30 17:24:48 jonas
* range checking is now processor independent (part in cgobj, part in cg64f32) and should work correctly again (it needed some changes after the changes of the low and high of tordef's to int64) * maketojumpbool() is now processor independent (in ncgutil) * getregister32 is now called getregisterint
Revision 1.2 2002-03-04 19:10:11 peter
* removed compiler warnings
Revision 1.1 2001/12/30 17:24:48 jonas
* range checking is now processor independent (part in cgobj,
part in cg64f32) and should work correctly again (it needed
some changes after the changes of the low and high of
tordef's to int64)
* maketojumpbool() is now processor independent (in ncgutil)
* getregister32 is now called getregisterint
}

7
compiler/ncon.pas
View File

@ -688,8 +688,6 @@ implementation
end;
function tguidconstnode.det_resulttype:tnode;
var
srsym : ttypesym;
begin
result:=nil;
resulttype.setdef(rec_tguid);
@ -720,7 +718,10 @@ begin
end.
{
$Log$
Revision 1.24 2001-10-20 19:28:38 peter
Revision 1.25 2002-03-04 19:10:11 peter
* removed compiler warnings
Revision 1.24 2001/10/20 19:28:38 peter
* interface 2 guid support
* guid constants support

7
compiler/nmat.pas
View File

@ -217,7 +217,7 @@ implementation
function tmoddivnode.firstoptimize: tnode;
var
power, shiftval : longint;
power{,shiftval} : longint;
newtype: tnodetype;
begin
result := nil;
@ -678,7 +678,10 @@ begin
end.
{
$Log$
Revision 1.28 2002-02-11 11:45:51 michael
Revision 1.29 2002-03-04 19:10:11 peter
* removed compiler warnings
Revision 1.28 2002/02/11 11:45:51 michael
* Compilation without mmx support fixed from Peter
Revision 1.27 2001/12/29 15:27:24 jonas

10
compiler/symtable.pas
View File

@ -1501,16 +1501,11 @@ implementation
procedure tglobalsymtable.load(ppufile:tcompilerppufile);
{$ifdef GDB}
var
storeGlobalTypeCount : pword;
{$endif GDB}
begin
{$ifdef GDB}
if cs_gdb_dbx in aktglobalswitches then
begin
UnitTypeCount:=1;
storeGlobalTypeCount:=PGlobalTypeCount;
PglobalTypeCount:=@UnitTypeCount;
end;
{$endif GDB}
@ -2068,7 +2063,10 @@ implementation
end.
{
$Log$
Revision 1.55 2002-02-03 09:30:07 peter
Revision 1.56 2002-03-04 19:10:11 peter
* removed compiler warnings
Revision 1.55 2002/02/03 09:30:07 peter
* more fixes for protected handling
Revision 1.54 2002/01/29 21:30:25 peter

7
compiler/targets/t_sunos.pas
View File

@ -261,7 +261,7 @@ Var
gprtobj,
prtobj : string[80];
HPath : TStringListItem;
s,s1,s2 : string;
s,s2 : string;
linkdynamic,
linklibc : boolean;
begin
@ -555,7 +555,10 @@ initialization
end.
{
$Log$
Revision 1.15 2001-12-15 05:29:36 carl
Revision 1.16 2002-03-04 19:10:14 peter
* removed compiler warnings
Revision 1.15 2001/12/15 05:29:36 carl
+ crtbegin.o and crtend.o now not linked anymore since they can cause conflicts with
GCC and the native C library...