paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 23:51:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed warnings/notes

Browse Source
This commit is contained in:
peter 2000-02-24 18:41:38 +00:00
parent bcabe43e0a
commit 2ba0ebe607
15 changed files with 89 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/assemble.pas
View File

@ -201,7 +201,6 @@ end;
procedure TAsmList.RemoveAsm; procedure TAsmList.RemoveAsm;
var var
g : file; g : file;
i : word;
begin begin
if cs_asm_leave in aktglobalswitches then if cs_asm_leave in aktglobalswitches then
exit; exit;
@ -213,7 +212,7 @@ begin
{$I-} {$I-}
erase(g); erase(g);
{$I+} {$I+}
i:=ioresult; if ioresult<>0 then;
end; end;
end; end;
@ -429,8 +428,6 @@ end;
Constructor TAsmList.Init(smart:boolean); Constructor TAsmList.Init(smart:boolean);
var
i : word;
begin begin
{ load start values } { load start values }
asmfile:=current_module^.asmfilename^; asmfile:=current_module^.asmfilename^;
@ -449,7 +446,7 @@ begin
{$I-} {$I-}
mkdir(path); mkdir(path);
{$I+} {$I+}
i:=ioresult; if ioresult<>0 then;
path:=FixPath(path,false); path:=FixPath(path,false);
end end
else else
@ -567,7 +564,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.61 2000-02-09 13:22:45 peter Revision 1.62 2000-02-24 18:41:38 peter
* removed warnings/notes
Revision 1.61 2000/02/09 13:22:45 peter
* log truncated * log truncated
Revision 1.60 2000/01/11 09:52:06 peter Revision 1.60 2000/01/11 09:52:06 peter

15
compiler/cg386mat.pas
View File

@ -52,7 +52,10 @@ implementation
procedure secondmoddiv(var p : ptree); procedure secondmoddiv(var p : ptree);
var var
hreg1, hreg2 : tregister; hreg1 : tregister;
{$ifdef newOptimizations}
hreg2 : tregister;
{$endif}
shrdiv, andmod, pushed,popeax,popedx : boolean; shrdiv, andmod, pushed,popeax,popedx : boolean;
power : longint; power : longint;
@ -334,7 +337,6 @@ implementation
hregisterhigh,hregisterlow : tregister; hregisterhigh,hregisterlow : tregister;
pushed,popecx : boolean; pushed,popecx : boolean;
op : tasmop; op : tasmop;
hr : preference;
l1,l2,l3 : pasmlabel; l1,l2,l3 : pasmlabel;
begin begin
@ -676,8 +678,6 @@ implementation
emit_reg_reg(A_MOVQ,S_NO,R_MM7,p^.location.register); emit_reg_reg(A_MOVQ,S_NO,R_MM7,p^.location.register);
end; end;
{$endif} {$endif}
var
hr : preference;
begin begin
if is_64bitint(p^.left^.resulttype) then if is_64bitint(p^.left^.resulttype) then
@ -818,8 +818,6 @@ implementation
var var
hl : pasmlabel; hl : pasmlabel;
opsize : topsize; opsize : topsize;
hr : preference;
begin begin
if is_boolean(p^.resulttype) then if is_boolean(p^.resulttype) then
begin begin
@ -992,7 +990,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.43 2000-02-18 21:25:48 florian Revision 1.44 2000-02-24 18:41:38 peter
* removed warnings/notes
Revision 1.43 2000/02/18 21:25:48 florian
* fixed a bug in int64/qword handling was a quite ugly one * fixed a bug in int64/qword handling was a quite ugly one
Revision 1.42 2000/02/09 13:22:47 peter Revision 1.42 2000/02/09 13:22:47 peter

14
compiler/csopt386.pas
View File

@ -908,7 +908,14 @@ Procedure DoCSE(AsmL: PAasmOutput; First, Last: Pai);
two different sequences} two different sequences}
Var Cnt, Cnt2: Longint; Var Cnt, Cnt2: Longint;
p, hp1, hp2: Pai; p, hp1, hp2: Pai;
hp3, hp4, hp5: pai; hp3, hp4: pai;
{$ifdef replacereg}
hp5 : pai;
{$else}
{$ifdef csdebug}
hp5 : pai;
{$endif}
{$endif}
RegInfo: TRegInfo; RegInfo: TRegInfo;
RegCounter: TRegister; RegCounter: TRegister;
TmpState: Byte; TmpState: Byte;
@ -1234,7 +1241,10 @@ End.
{ {
$Log$ $Log$
Revision 1.53 2000-02-19 13:50:29 jonas Revision 1.54 2000-02-24 18:41:38 peter
* removed warnings/notes
Revision 1.53 2000/02/19 13:50:29 jonas
* fixed bug in -dnewoptizations (showed itself only if -Or was * fixed bug in -dnewoptizations (showed itself only if -Or was
used as well I think) used as well I think)

9
compiler/daopt386.pas
View File

@ -358,9 +358,9 @@ End;
Procedure RemoveLastDeallocForFuncRes(asmL: PAasmOutput; p: pai); Procedure RemoveLastDeallocForFuncRes(asmL: PAasmOutput; p: pai);
Procedure DoRemoveLastDeallocForFuncRes(asmL: PAasmOutput; reg: TRegister); Procedure DoRemoveLastDeallocForFuncRes(asmL: PAasmOutput; reg: TRegister);
var hp, hp2: pai; var
hp2: pai;
begin begin
hp := nil;
hp2 := p; hp2 := p;
repeat repeat
hp2 := pai(hp2^.previous); hp2 := pai(hp2^.previous);
@ -2129,7 +2129,10 @@ End.
{ {
$Log$ $Log$
Revision 1.83 2000-02-10 14:57:14 jonas Revision 1.84 2000-02-24 18:41:38 peter
* removed warnings/notes
Revision 1.83 2000/02/10 14:57:14 jonas
* fixed bug due to lack of support for top_symbol operands * fixed bug due to lack of support for top_symbol operands
Revision 1.82 2000/02/09 13:22:51 peter Revision 1.82 2000/02/09 13:22:51 peter

13
compiler/files.pas
View File

@ -390,8 +390,6 @@ uses
procedure tinputfile.close; procedure tinputfile.close;
var
i : word;
begin begin
if is_macro then if is_macro then
begin begin
@ -408,7 +406,7 @@ uses
{$I-} {$I-}
system.close(f); system.close(f);
{$I+} {$I+}
i:=ioresult; if ioresult<>0 then;
closed:=true; closed:=true;
end; end;
if assigned(buf) then if assigned(buf) then
@ -421,8 +419,6 @@ uses
procedure tinputfile.tempclose; procedure tinputfile.tempclose;
var
i : word;
begin begin
if is_macro then if is_macro then
exit; exit;
@ -431,7 +427,7 @@ uses
{$I-} {$I-}
system.close(f); system.close(f);
{$I+} {$I+}
i:=ioresult; if ioresult<>0 then;
Freemem(buf,maxbufsize); Freemem(buf,maxbufsize);
buf:=nil; buf:=nil;
closed:=true; closed:=true;
@ -1357,7 +1353,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.115 2000-02-10 16:00:23 peter Revision 1.116 2000-02-24 18:41:38 peter
* removed warnings/notes
Revision 1.115 2000/02/10 16:00:23 peter
* dont' check for ppl files as they aren't used atm. * dont' check for ppl files as they aren't used atm.
Revision 1.114 2000/02/09 13:22:52 peter Revision 1.114 2000/02/09 13:22:52 peter

8
compiler/gendef.pas
View File

@ -66,7 +66,6 @@ end;
destructor tdeffile.done; destructor tdeffile.done;
var var
f : file; f : file;
i : word;
begin begin
if WrittenOnDisk and if WrittenOnDisk and
not(cs_link_extern in aktglobalswitches) then not(cs_link_extern in aktglobalswitches) then
@ -75,7 +74,7 @@ begin
{$I-} {$I-}
erase(f); erase(f);
{$I+} {$I+}
i:=ioresult; if ioresult<>0 then;
end; end;
importlist.done; importlist.done;
exportlist.done; exportlist.done;
@ -165,7 +164,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.6 2000-02-09 13:22:53 peter Revision 1.7 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.6 2000/02/09 13:22:53 peter
* log truncated * log truncated
Revision 1.5 2000/01/07 01:14:27 peter Revision 1.5 2000/01/07 01:14:27 peter

6
compiler/link.pas
View File

@ -427,7 +427,6 @@ var
cmdstr, cmdstr,
binstr : string; binstr : string;
success : boolean; success : boolean;
cnt : longint;
begin begin
MakeStaticLibrary:=false; MakeStaticLibrary:=false;
{ remove the library, to be sure that it is rewritten } { remove the library, to be sure that it is rewritten }
@ -522,7 +521,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.83 2000-02-09 13:22:54 peter Revision 1.84 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.83 2000/02/09 13:22:54 peter
* log truncated * log truncated
Revision 1.82 2000/01/14 14:40:37 pierre Revision 1.82 2000/01/14 14:40:37 pierre

9
compiler/og386.pas
View File

@ -153,8 +153,6 @@ unit og386;
****************************************************************************} ****************************************************************************}
constructor tobjectoutput.init(smart:boolean); constructor tobjectoutput.init(smart:boolean);
var
i : longint;
begin begin
smarthcount:=0; smarthcount:=0;
objsmart:=smart; objsmart:=smart;
@ -167,7 +165,7 @@ unit og386;
{$I-} {$I-}
mkdir(path); mkdir(path);
{$I+} {$I+}
i:=ioresult; if ioresult<>0 then;
path:=FixPath(path,false); path:=FixPath(path,false);
end end
else else
@ -275,7 +273,10 @@ unit og386;
end. end.
{ {
$Log$ $Log$
Revision 1.17 2000-02-09 13:22:54 peter Revision 1.18 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.17 2000/02/09 13:22:54 peter
* log truncated * log truncated
Revision 1.16 2000/01/07 01:14:27 peter Revision 1.16 2000/01/07 01:14:27 peter

9
compiler/owbase.pas
View File

@ -84,8 +84,6 @@ end;
procedure tobjectwriter.close; procedure tobjectwriter.close;
var
i : longint;
begin begin
if bufidx>0 then if bufidx>0 then
writebuf; writebuf;
@ -96,7 +94,7 @@ begin
{$I-} {$I-}
system.erase(f); system.erase(f);
{$I+} {$I+}
i:=ioresult; if ioresult<>0 then;
end; end;
opened:=false; opened:=false;
size:=0; size:=0;
@ -148,7 +146,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.4 2000-02-09 13:22:55 peter Revision 1.5 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.4 2000/02/09 13:22:55 peter
* log truncated * log truncated
Revision 1.3 2000/01/07 01:14:28 peter Revision 1.3 2000/01/07 01:14:28 peter

6
compiler/pexports.pas
View File

@ -39,7 +39,6 @@ unit pexports;
var var
hp : pexported_item; hp : pexported_item;
code : integer;
DefString:string; DefString:string;
ProcName:string; ProcName:string;
InternalProcName:string; InternalProcName:string;
@ -156,7 +155,10 @@ end.
{ {
$Log$ $Log$
Revision 1.20 2000-02-23 23:06:39 florian Revision 1.21 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.20 2000/02/23 23:06:39 florian
+ the expr for names and indizies of exports sections support now + the expr for names and indizies of exports sections support now
every type of expressions which evalute to a constant every type of expressions which evalute to a constant

7
compiler/ptype.pas
View File

@ -287,7 +287,7 @@ uses
var var
hp2,datacoll : pparaitem; hp2,datacoll : pparaitem;
p,p2 : ppropertysym; p : ppropertysym;
overriden : psym; overriden : psym;
hs : string; hs : string;
varspez : tvarspez; varspez : tvarspez;
@ -1539,7 +1539,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.19 2000-02-21 22:17:49 florian Revision 1.20 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.19 2000/02/21 22:17:49 florian
* fixed 819 * fixed 819
Revision 1.18 2000/02/09 13:23:01 peter Revision 1.18 2000/02/09 13:23:01 peter

9
compiler/t_win32.pas
View File

@ -976,7 +976,7 @@ var
peheader : tpeheader; peheader : tpeheader;
firstsecpos, firstsecpos,
maxfillsize, maxfillsize,
i,l,peheaderpos : longint; l,peheaderpos : longint;
coffsec : tcoffsechdr; coffsec : tcoffsechdr;
secroot,hsecroot : psecfill; secroot,hsecroot : psecfill;
zerobuf : pointer; zerobuf : pointer;
@ -1076,14 +1076,17 @@ begin
freemem(zerobuf,maxfillsize); freemem(zerobuf,maxfillsize);
close(f); close(f);
{$I+} {$I+}
i:=ioresult; if ioresult<>0 then;
postprocessexecutable:=true; postprocessexecutable:=true;
end; end;
end. end.
{ {
$Log$ $Log$
Revision 1.18 2000-01-12 10:31:45 peter Revision 1.19 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.18 2000/01/12 10:31:45 peter
* fixed group() writing * fixed group() writing
Revision 1.17 2000/01/11 09:52:07 peter Revision 1.17 2000/01/11 09:52:07 peter

9
compiler/tccal.pas
View File

@ -382,7 +382,6 @@ implementation
hp,procs,hp2 : pprocdefcoll; hp,procs,hp2 : pprocdefcoll;
pd : pprocdef; pd : pprocdef;
oldcallprocsym : pprocsym; oldcallprocsym : pprocsym;
nextprocsym : pprocsym;
def_from,def_to,conv_to : pdef; def_from,def_to,conv_to : pdef;
hpt,pt,inlinecode : ptree; hpt,pt,inlinecode : ptree;
exactmatch,inlined : boolean; exactmatch,inlined : boolean;
@ -390,6 +389,7 @@ implementation
lastparatype : pdef; lastparatype : pdef;
pdc : pparaitem; pdc : pparaitem;
{$ifdef TEST_PROCSYMS} {$ifdef TEST_PROCSYMS}
nextprocsym : pprocsym;
symt : psymtable; symt : psymtable;
{$endif TEST_PROCSYMS} {$endif TEST_PROCSYMS}
@ -582,8 +582,6 @@ implementation
end; end;
nextprocsym:=srsym; nextprocsym:=srsym;
end; end;
{$else TEST_PROCSYMS}
nextprocsym:=nil;
{$endif TEST_PROCSYMS} {$endif TEST_PROCSYMS}
{ determine length of parameter list } { determine length of parameter list }
pt:=p^.left; pt:=p^.left;
@ -1233,7 +1231,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.80 2000-02-17 14:53:43 florian Revision 1.81 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.80 2000/02/17 14:53:43 florian
* some updates for the newcg * some updates for the newcg
Revision 1.79 2000/02/09 13:23:07 peter Revision 1.79 2000/02/09 13:23:07 peter

10
compiler/tcld.pas
View File

@ -201,8 +201,10 @@ implementation
*****************************************************************************} *****************************************************************************}
procedure firstassignment(var p : ptree); procedure firstassignment(var p : ptree);
{$ifdef dummyi386}
var var
hp : ptree; hp : ptree;
{$endif}
begin begin
{ must be made unique } { must be made unique }
set_unique(p^.left); set_unique(p^.left);
@ -267,7 +269,6 @@ implementation
end; end;
{ we call STRCOPY } { we call STRCOPY }
procinfo^.flags:=procinfo^.flags or pi_do_call; procinfo^.flags:=procinfo^.flags or pi_do_call;
hp:=p^.right;
{ test for s:=s+anything ... } { test for s:=s+anything ... }
{ the problem is for { the problem is for
s:=s+s+s; s:=s+s+s;
@ -485,7 +486,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.60 2000-02-17 14:53:43 florian Revision 1.61 2000-02-24 18:41:39 peter
* removed warnings/notes
Revision 1.60 2000/02/17 14:53:43 florian
* some updates for the newcg * some updates for the newcg
Revision 1.59 2000/02/09 13:23:07 peter Revision 1.59 2000/02/09 13:23:07 peter

7
compiler/tpexcept.pas
View File

@ -353,8 +353,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.11 2000-02-11 23:59:35 jonas Revision 1.12 2000-02-24 18:41:39 peter
+ {$asmmode att} for people with -Rintel in their ppc386.cfg * removed warnings/notes
Revision 1.11 2000/02/11 23:59:35 jonas
+ $asmmode att for people with -Rintel in their ppc386.cfg
Revision 1.10 2000/02/09 13:23:08 peter Revision 1.10 2000/02/09 13:23:08 peter
* log truncated * log truncated