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

+ checking for symbols used with hint directives is done mostly in pexpr

Browse Source 
only now
This commit is contained in:
carl 2002-11-30 11:12:48 +00:00
parent a62998ff03
commit 93d011d184
3 changed files with 48 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/pbase.pas
View File

@ -81,6 +81,8 @@ interface
function try_consume_hintdirective(var symopt:tsymoptions):boolean;
procedure check_hints(const srsym: tsym);
{ just for an accurate position of the end of a procedure (PM) }
var
last_endtoken_filepos: tfileposinfo;
@ -165,6 +167,23 @@ implementation
end;
{ check if a symbol contains the hint directive, and if so gives out a hint
if required.
}
procedure check_hints(const srsym: tsym);
begin
if not assigned(srsym) then
exit;
if sp_hint_deprecated in srsym.symoptions then
Message1(sym_w_deprecated_symbol,lower(srsym.name));
if sp_hint_platform in srsym.symoptions then
Message1(sym_w_non_portable_symbol,lower(srsym.name));
if sp_hint_unimplemented in srsym.symoptions then
Message1(sym_w_non_implemented_symbol,lower(srsym.name));
end;
function consume_sym(var srsym:tsym;var srsymtable:tsymtable):boolean;
begin
{ first check for identifier }
@ -177,6 +196,7 @@ implementation
exit;
end;
searchsym(pattern,srsym,srsymtable);
check_hints(srsym);
if assigned(srsym) then
begin
if (srsym.typ=unitsym) then
@ -243,7 +263,11 @@ implementation
end.
{
$Log$
Revision 1.20 2002-11-29 22:31:19 carl
Revision 1.21 2002-11-30 11:12:48 carl
+ checking for symbols used with hint directives is done mostly in pexpr
only now
Revision 1.20 2002/11/29 22:31:19 carl
+ unimplemented hint directive added
* hint directive parsing implemented
* warning on these directives

19
compiler/pexpr.pas
View File

@ -93,6 +93,9 @@ implementation
got_addrn : boolean = false;
auto_inherited : boolean = false;
procedure string_dec(var t: ttype);
{ reads a string type with optional length }
{ and returns a pointer to the string }
@ -939,6 +942,7 @@ implementation
begin
static_name:=lower(sym.owner.name^)+'_'+sym.name;
searchsym(static_name,sym,srsymtable);
check_hints(sym);
p1.free;
p1:=cloadnode.create(sym,srsymtable);
end
@ -1014,6 +1018,7 @@ implementation
storesymtablestack:=symtablestack;
symtablestack:=sym.owner.next;
searchsym(sym.name,sym,srsymtable);
check_hints(sym);
if not assigned(sym) then
sym:=generrorsym;
if (sym.typ<>procsym) then
@ -1067,6 +1072,7 @@ implementation
begin
static_name:=lower(srsym.owner.name^)+'_'+srsym.name;
searchsym(static_name,srsym,srsymtable);
check_hints(srsym);
end;
p1:=cloadnode.create(srsym,srsymtable);
if tvarsym(srsym).varstate=vs_declared then
@ -1118,6 +1124,7 @@ implementation
p1:=ctypenode.create(htype);
{ search also in inherited methods }
srsym:=searchsym_in_class(tobjectdef(htype.def),pattern);
check_hints(srsym);
consume(_ID);
do_member_read(false,srsym,p1,again);
end
@ -1135,6 +1142,7 @@ implementation
{ TP allows also @TMenu.Load if Load is only }
{ defined in an anchestor class }
srsym:=search_class_member(tobjectdef(htype.def),pattern);
check_hints(srsym);
if not assigned(srsym) then
Message1(sym_e_id_no_member,pattern)
else if not(getaddr) and not(sp_static in srsym.symoptions) then
@ -1160,6 +1168,7 @@ implementation
{ TP allows also @TMenu.Load if Load is only }
{ defined in an anchestor class }
srsym:=search_class_member(tobjectdef(htype.def),pattern);
check_hints(srsym);
if not assigned(srsym) then
Message1(sym_e_id_no_member,pattern)
else
@ -1535,6 +1544,7 @@ implementation
recorddef:
begin
hsym:=tsym(trecorddef(p1.resulttype.def).symtable.search(pattern));
check_hints(hsym);
if assigned(hsym) and
(hsym.typ=varsym) then
p1:=csubscriptnode.create(hsym,p1)
@ -1553,6 +1563,7 @@ implementation
begin
classh:=tobjectdef(tclassrefdef(p1.resulttype.def).pointertype.def);
hsym:=searchsym_in_class(classh,pattern);
check_hints(hsym);
if hsym=nil then
begin
Message1(sym_e_id_no_member,pattern);
@ -1574,6 +1585,7 @@ implementation
allow_only_static:=false;
classh:=tobjectdef(p1.resulttype.def);
hsym:=searchsym_in_class(classh,pattern);
check_hints(hsym);
allow_only_static:=store_static;
if hsym=nil then
begin
@ -1753,6 +1765,7 @@ implementation
end;
classh:=procinfo._class.childof;
sym:=searchsym_in_class(classh,hs);
check_hints(sym);
if assigned(sym) then
begin
if sym.typ=procsym then
@ -2272,7 +2285,11 @@ implementation
end.
{
$Log$
Revision 1.94 2002-11-27 15:33:47 peter
Revision 1.95 2002-11-30 11:12:48 carl
+ checking for symbols used with hint directives is done mostly in pexpr
only now
Revision 1.94 2002/11/27 15:33:47 peter
* the never ending story of tp procvar hacks
Revision 1.93 2002/11/26 22:58:24 peter

13
compiler/symtable.pas
View File

@ -604,13 +604,6 @@ implementation
allow_only_static then
Message(sym_e_only_static_in_static);
if sp_hint_deprecated in hp.symoptions then
Message1(sym_w_deprecated_symbol,lower(hp.name));
if sp_hint_platform in hp.symoptions then
Message1(sym_w_non_portable_symbol,lower(hp.name));
if sp_hint_unimplemented in hp.symoptions then
Message1(sym_w_non_implemented_symbol,lower(hp.name));
{ unit uses count }
if (unitid<>0) and
(symtabletype = globalsymtable) and
@ -2344,7 +2337,11 @@ implementation
end.
{
$Log$
Revision 1.82 2002-11-29 22:31:20 carl
Revision 1.83 2002-11-30 11:12:48 carl
+ checking for symbols used with hint directives is done mostly in pexpr
only now
Revision 1.82 2002/11/29 22:31:20 carl
+ unimplemented hint directive added
* hint directive parsing implemented
* warning on these directives