paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +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;
var
g : file;
i : word;
begin
if cs_asm_leave in aktglobalswitches then
exit;
@ -213,7 +212,7 @@ begin
{$I-}
erase(g);
{$I+}
i:=ioresult;
if ioresult<>0 then;
end;
end;
@ -429,8 +428,6 @@ end;
Constructor TAsmList.Init(smart:boolean);
var
i : word;
begin
{ load start values }
asmfile:=current_module^.asmfilename^;
@ -449,7 +446,7 @@ begin
{$I-}
mkdir(path);
{$I+}
i:=ioresult;
if ioresult<>0 then;
path:=FixPath(path,false);
end
else
@ -567,7 +564,10 @@ end;
end.
{
$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
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);
var
hreg1, hreg2 : tregister;
hreg1 : tregister;
{$ifdef newOptimizations}
hreg2 : tregister;
{$endif}
shrdiv, andmod, pushed,popeax,popedx : boolean;
power : longint;
@ -334,7 +337,6 @@ implementation
hregisterhigh,hregisterlow : tregister;
pushed,popecx : boolean;
op : tasmop;
hr : preference;
l1,l2,l3 : pasmlabel;
begin
@ -676,8 +678,6 @@ implementation
emit_reg_reg(A_MOVQ,S_NO,R_MM7,p^.location.register);
end;
{$endif}
var
hr : preference;
begin
if is_64bitint(p^.left^.resulttype) then
@ -818,8 +818,6 @@ implementation
var
hl : pasmlabel;
opsize : topsize;
hr : preference;
begin
if is_boolean(p^.resulttype) then
begin
@ -992,7 +990,10 @@ implementation
end.
{
$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
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}
Var Cnt, Cnt2: Longint;
p, hp1, hp2: Pai;
hp3, hp4, hp5: pai;
hp3, hp4: pai;
{$ifdef replacereg}
hp5 : pai;
{$else}
{$ifdef csdebug}
hp5 : pai;
{$endif}
{$endif}
RegInfo: TRegInfo;
RegCounter: TRegister;
TmpState: Byte;
@ -1234,7 +1241,10 @@ End.
{
$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
used as well I think)

9
compiler/daopt386.pas
View File

@ -358,9 +358,9 @@ End;
Procedure RemoveLastDeallocForFuncRes(asmL: PAasmOutput; p: pai);
Procedure DoRemoveLastDeallocForFuncRes(asmL: PAasmOutput; reg: TRegister);
var hp, hp2: pai;
var
hp2: pai;
begin
hp := nil;
hp2 := p;
repeat
hp2 := pai(hp2^.previous);
@ -2129,7 +2129,10 @@ End.
{
$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
Revision 1.82 2000/02/09 13:22:51 peter

13
compiler/files.pas
View File

@ -390,8 +390,6 @@ uses
procedure tinputfile.close;
var
i : word;
begin
if is_macro then
begin
@ -408,7 +406,7 @@ uses
{$I-}
system.close(f);
{$I+}
i:=ioresult;
if ioresult<>0 then;
closed:=true;
end;
if assigned(buf) then
@ -421,8 +419,6 @@ uses
procedure tinputfile.tempclose;
var
i : word;
begin
if is_macro then
exit;
@ -431,7 +427,7 @@ uses
{$I-}
system.close(f);
{$I+}
i:=ioresult;
if ioresult<>0 then;
Freemem(buf,maxbufsize);
buf:=nil;
closed:=true;
@ -1357,7 +1353,10 @@ end;
end.
{
$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.
Revision 1.114 2000/02/09 13:22:52 peter

8
compiler/gendef.pas
View File

@ -66,7 +66,6 @@ end;
destructor tdeffile.done;
var
f : file;
i : word;
begin
if WrittenOnDisk and
not(cs_link_extern in aktglobalswitches) then
@ -75,7 +74,7 @@ begin
{$I-}
erase(f);
{$I+}
i:=ioresult;
if ioresult<>0 then;
end;
importlist.done;
exportlist.done;
@ -165,7 +164,10 @@ end;
end.
{
$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
Revision 1.5 2000/01/07 01:14:27 peter

6
compiler/link.pas
View File

@ -427,7 +427,6 @@ var
cmdstr,
binstr : string;
success : boolean;
cnt : longint;
begin
MakeStaticLibrary:=false;
{ remove the library, to be sure that it is rewritten }
@ -522,7 +521,10 @@ end;
end.
{
$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
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);
var
i : longint;
begin
smarthcount:=0;
objsmart:=smart;
@ -167,7 +165,7 @@ unit og386;
{$I-}
mkdir(path);
{$I+}
i:=ioresult;
if ioresult<>0 then;
path:=FixPath(path,false);
end
else
@ -275,7 +273,10 @@ unit og386;
end.
{
$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
Revision 1.16 2000/01/07 01:14:27 peter

9
compiler/owbase.pas
View File

@ -84,8 +84,6 @@ end;
procedure tobjectwriter.close;
var
i : longint;
begin
if bufidx>0 then
writebuf;
@ -96,7 +94,7 @@ begin
{$I-}
system.erase(f);
{$I+}
i:=ioresult;
if ioresult<>0 then;
end;
opened:=false;
size:=0;
@ -148,7 +146,10 @@ end;
end.
{
$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
Revision 1.3 2000/01/07 01:14:28 peter

6
compiler/pexports.pas
View File

@ -39,7 +39,6 @@ unit pexports;
var
hp : pexported_item;
code : integer;
DefString:string;
ProcName:string;
InternalProcName:string;
@ -156,7 +155,10 @@ end.
{
$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
every type of expressions which evalute to a constant

7
compiler/ptype.pas
View File

@ -287,7 +287,7 @@ uses
var
hp2,datacoll : pparaitem;
p,p2 : ppropertysym;
p : ppropertysym;
overriden : psym;
hs : string;
varspez : tvarspez;
@ -1539,7 +1539,10 @@ uses
end.
{
$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
Revision 1.18 2000/02/09 13:23:01 peter

9
compiler/t_win32.pas
View File

@ -976,7 +976,7 @@ var
peheader : tpeheader;
firstsecpos,
maxfillsize,
i,l,peheaderpos : longint;
l,peheaderpos : longint;
coffsec : tcoffsechdr;
secroot,hsecroot : psecfill;
zerobuf : pointer;
@ -1076,14 +1076,17 @@ begin
freemem(zerobuf,maxfillsize);
close(f);
{$I+}
i:=ioresult;
if ioresult<>0 then;
postprocessexecutable:=true;
end;
end.
{
$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
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;
pd : pprocdef;
oldcallprocsym : pprocsym;
nextprocsym : pprocsym;
def_from,def_to,conv_to : pdef;
hpt,pt,inlinecode : ptree;
exactmatch,inlined : boolean;
@ -390,6 +389,7 @@ implementation
lastparatype : pdef;
pdc : pparaitem;
{$ifdef TEST_PROCSYMS}
nextprocsym : pprocsym;
symt : psymtable;
{$endif TEST_PROCSYMS}
@ -582,8 +582,6 @@ implementation
end;
nextprocsym:=srsym;
end;
{$else TEST_PROCSYMS}
nextprocsym:=nil;
{$endif TEST_PROCSYMS}
{ determine length of parameter list }
pt:=p^.left;
@ -1233,7 +1231,10 @@ implementation
end.
{
$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
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);
{$ifdef dummyi386}
var
hp : ptree;
hp : ptree;
{$endif}
begin
{ must be made unique }
set_unique(p^.left);
@ -267,7 +269,6 @@ implementation
end;
{ we call STRCOPY }
procinfo^.flags:=procinfo^.flags or pi_do_call;
hp:=p^.right;
{ test for s:=s+anything ... }
{ the problem is for
s:=s+s+s;
@ -485,7 +486,10 @@ implementation
end.
{
$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
Revision 1.59 2000/02/09 13:23:07 peter

7
compiler/tpexcept.pas
View File

@ -353,8 +353,11 @@ implementation
end.
{
$Log$
Revision 1.11 2000-02-11 23:59:35 jonas
+ {$asmmode att} for people with -Rintel in their ppc386.cfg
Revision 1.12 2000-02-24 18:41:39 peter
* 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
* log truncated