paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 01:00:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use sp_internal flag to silence unused internal variable

Browse Source
This commit is contained in:
peter 2004-02-20 21:54:47 +00:00
parent 510959006f
commit f967fa5f74
3 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/pdecsub.pas
View File

@ -354,7 +354,7 @@ implementation
srsym : tsym; srsym : tsym;
hs1 : string; hs1 : string;
varspez : Tvarspez; varspez : Tvarspez;
tdefaultvalue : tconstsym; defaultvalue : tconstsym;
defaultrequired : boolean; defaultrequired : boolean;
old_object_option : tsymoptions; old_object_option : tsymoptions;
currparast : tparasymtable; currparast : tparasymtable;
@ -389,7 +389,7 @@ implementation
end end
else else
varspez:=vs_value; varspez:=vs_value;
tdefaultvalue:=nil; defaultvalue:=nil;
tt.reset; tt.reset;
{ read identifiers and insert with error type } { read identifiers and insert with error type }
sc.reset; sc.reset;
@ -461,9 +461,10 @@ implementation
if assigned(vs.listnext) then if assigned(vs.listnext) then
Message(parser_e_default_value_only_one_para); Message(parser_e_default_value_only_one_para);
{ prefix 'def' to the parameter name } { prefix 'def' to the parameter name }
tdefaultvalue:=ReadConstant('$def'+vs.name,vs.fileinfo); defaultvalue:=ReadConstant('$def'+vs.name,vs.fileinfo);
if assigned(tdefaultvalue) then include(defaultvalue.symoptions,sp_internal);
tprocdef(pd).parast.insert(tdefaultvalue); if assigned(defaultvalue) then
tprocdef(pd).parast.insert(defaultvalue);
defaultrequired:=true; defaultrequired:=true;
end end
else else
@ -501,7 +502,7 @@ implementation
paramanager.push_addr_param(varspez,tt.def,pd.proccalloption) then paramanager.push_addr_param(varspez,tt.def,pd.proccalloption) then
include(vs.varoptions,vo_regable); include(vs.varoptions,vo_regable);
end; end;
pd.concatpara(nil,tt,vs,tdefaultvalue,false); pd.concatpara(nil,tt,vs,defaultvalue,false);
vs:=tvarsym(vs.listnext); vs:=tvarsym(vs.listnext);
end; end;
until not try_to_consume(_SEMICOLON); until not try_to_consume(_SEMICOLON);
@ -2139,7 +2140,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.162 2004-02-13 15:41:24 peter Revision 1.163 2004-02-20 21:54:47 peter
* use sp_internal flag to silence unused internal variable
Revision 1.162 2004/02/13 15:41:24 peter
* overload directive checking for methods is now done * overload directive checking for methods is now done
when the vmt is generated when the vmt is generated

8
compiler/symconst.pas
View File

@ -120,7 +120,8 @@ type
sp_hint_platform, sp_hint_platform,
sp_hint_library, sp_hint_library,
sp_hint_unimplemented, sp_hint_unimplemented,
sp_has_overloaded sp_has_overloaded,
sp_internal { internal symbol, not reported as unused }
); );
tsymoptions=set of tsymoption; tsymoptions=set of tsymoption;
@ -400,7 +401,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.74 2004-01-21 14:22:00 florian Revision 1.75 2004-02-20 21:54:47 peter
* use sp_internal flag to silence unused internal variable
Revision 1.74 2004/01/21 14:22:00 florian
+ reintroduce implemented + reintroduce implemented
Revision 1.73 2003/12/19 22:08:44 daniel Revision 1.73 2003/12/19 22:08:44 daniel

8
compiler/symsym.pas
View File

@ -1012,7 +1012,7 @@ implementation
search_procdef_binary_operator:=nil; search_procdef_binary_operator:=nil;
bestpd:=nil; bestpd:=nil;
bestlev:=0; bestlev:=0;
cdoptions:=[]; cdoptions:=[];
{ variants arguments must match exact, don't allow conversion to variants that { variants arguments must match exact, don't allow conversion to variants that
will then allow things like enum->string, because enum->variant is available will then allow things like enum->string, because enum->variant is available
and select the operator variant->string } and select the operator variant->string }
@ -2323,6 +2323,7 @@ implementation
prefix : array[trttitype] of string[5]=('$rtti','$init'); prefix : array[trttitype] of string[5]=('$rtti','$init');
begin begin
inherited create(prefix[rt]+n); inherited create(prefix[rt]+n);
include(symoptions,sp_internal);
typ:=rttisym; typ:=rttisym;
lab:=nil; lab:=nil;
rttityp:=rt; rttityp:=rt;
@ -2366,7 +2367,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.158 2004-02-13 15:42:21 peter Revision 1.159 2004-02-20 21:54:47 peter
* use sp_internal flag to silence unused internal variable
Revision 1.158 2004/02/13 15:42:21 peter
* compare_defs_ext has now a options argument * compare_defs_ext has now a options argument
* fixes for variants * fixes for variants