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

compiler: reduce amount of hints and notes

Browse Source 
git-svn-id: trunk@19293 -
This commit is contained in:
paul 2011-09-30 08:56:05 +00:00
parent 451e48a033
commit 7a74d2c2f8
6 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/link.pas
View File

@ -953,7 +953,6 @@ Implementation
procedure TInternalLinker.ParseScript_PostCheck; procedure TInternalLinker.ParseScript_PostCheck;
var var
s : String;
hp : TCmdStrListItem; hp : TCmdStrListItem;
i : longint; i : longint;
begin begin
@ -964,7 +963,6 @@ Implementation
inc(i); inc(i);
if not IsHandled^[i] then if not IsHandled^[i] then
begin begin
s:=hp.str;
Comment(V_Warning,'"'+hp.str+ Comment(V_Warning,'"'+hp.str+
'" internal linker script not handled'); '" internal linker script not handled');
end; end;

8
compiler/ncnv.pas
View File

@ -1025,9 +1025,9 @@ implementation
newblock : tblocknode; newblock : tblocknode;
newstat : tstatementnode; newstat : tstatementnode;
restemp : ttempcreatenode; restemp : ttempcreatenode;
sa : ansistring; //sa : ansistring;
cw : WideChar; //cw : WideChar;
l : SizeUInt; //l : SizeUInt;
begin begin
result:=nil; result:=nil;
{ we can't do widechar to ansichar conversions at compile time, since } { we can't do widechar to ansichar conversions at compile time, since }
@ -1184,8 +1184,6 @@ implementation
function ttypeconvnode.typecheck_char_to_char : tnode; function ttypeconvnode.typecheck_char_to_char : tnode;
var var
hp : tordconstnode; hp : tordconstnode;
cha : array[0..3] of ansichar;
cw : WideChar;
begin begin
result:=nil; result:=nil;
if (left.nodetype=ordconstn) and if (left.nodetype=ordconstn) and

2
compiler/pexpr.pas
View File

@ -1876,7 +1876,7 @@ implementation
newstatement,assstatement:tstatementnode; newstatement,assstatement:tstatementnode;
arrnode:ttempcreatenode; arrnode:ttempcreatenode;
temp2:ttempcreatenode; temp2:ttempcreatenode;
assnode,paranode:tnode; assnode:tnode;
paracount:integer; paracount:integer;
begin begin
result:=internalstatements(newstatement); result:=internalstatements(newstatement);

2
compiler/ppu.pas
View File

@ -1330,8 +1330,6 @@ procedure tppufile.putsmallset(const b);
procedure tppufile.putnormalset(const b); procedure tppufile.putnormalset(const b);
type
SetLongintArray = Array [0..7] of longint;
begin begin
putdata(b,32); putdata(b,32);
end; end;

6
compiler/systems/t_embed.pas
View File

@ -80,7 +80,9 @@ Var
linklibc : boolean; linklibc : boolean;
found1, found1,
found2 : boolean; found2 : boolean;
{$ifdef ARM}
LinkStr : string; LinkStr : string;
{$endif}
begin begin
WriteResponseFile:=False; WriteResponseFile:=False;
linklibc:=(SharedLibFiles.Find('c')<>nil); linklibc:=(SharedLibFiles.Find('c')<>nil);
@ -790,9 +792,7 @@ function TLinkerEmbedded.postprocessexecutable(const fn : string;isdll:boolean):
var var
elfheader : TElf32header; elfheader : TElf32header;
secheader : TElf32sechdr; secheader : TElf32sechdr;
firstsecpos, i : longint;
maxfillsize,
i,secheaderpos : longint;
stringoffset : longint; stringoffset : longint;
secname : string; secname : string;
begin begin

1
compiler/x86/agx86att.pas
View File

@ -233,7 +233,6 @@ interface
calljmp : boolean; calljmp : boolean;
need_second_mov : boolean; need_second_mov : boolean;
i : integer; i : integer;
comment : tai_comment;
begin begin
if hp.typ <> ait_instruction then if hp.typ <> ait_instruction then
exit; exit;