paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 05:10:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

Finally fixed the handling of hint directives and added a comment explaining the situation in the context of generics.

Browse Source 
git-svn-id: branches/svenbarth/generics@18001 -
This commit is contained in:
svenbarth 2011-07-16 14:11:31 +00:00
parent 8737220309
commit bb61abe546
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/pgenutil.pas
View File

@ -332,6 +332,15 @@ uses
ttypesym(srsym).typedef:=tt;
tt.typesym:=srsym;
{ Note regarding hint directives:
There is no need to remove the flags for them from the
specialized generic symbol, because hint directives that
follow the specialization are handled by the code in
pdecl.types_dec and added to the type symbol.
E.g.: TFoo = TBar<Blubb> deprecated;
Here the symbol TBar$1$Blubb will contain the
"sp_hint_deprecated" flag while the TFoo symbol won't.}
case tt.typ of
{ Build VMT indexes for classes and read hint directives }
objectdef:
@ -391,15 +400,22 @@ uses
tundefineddef.create;
end;
if not (token in [_GT, _RSHARPBRACKET]) then
begin
consume(_RSHARPBRACKET);
exit;
end
else
consume(token);
genericdeflist.free;
generictypelist.free;
if not try_to_consume(_GT) then
consume(_RSHARPBRACKET)
else
if assigned(srsym) then
{ check the hints of the found generic symbol (this way we are
behind the closing ">") }
if assigned(genericdef) then
begin
{ check the hints of the found generic symbol }
srsym:=genericdef.typesym;
check_hints(srsym,srsym.symoptions,srsym.deprecatedmsg);
end;
end;