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

* keep track of the fileposinfo for generic constraints

Browse Source 
git-svn-id: trunk@44188 -
This commit is contained in:
svenbarth 2020-02-16 09:53:32 +00:00
parent 314c4552e5
commit 41a6957f7d
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pgenutil.pas
View File

@ -1168,6 +1168,7 @@ uses
doconsume : boolean;
constraintdata : tgenericconstraintdata;
old_block_type : tblock_type;
fileinfo : tfileposinfo;
begin
result:=tfphashobjectlist.create(false);
firstidx:=0;
@ -1183,12 +1184,14 @@ uses
result.add(orgpattern,generictype);
end;
consume(_ID);
fileinfo:=current_tokenpos;
if try_to_consume(_COLON) then
begin
if not allowconstraints then
Message(parser_e_generic_constraints_not_allowed_here);
{ construct a name which can be used for a type specification }
constraintdata:=tgenericconstraintdata.create;
constraintdata.fileinfo:=fileinfo;
defname:='';
str(current_module.deflist.count,defname);
defname:='$gendef'+defname;
@ -1305,6 +1308,7 @@ uses
genconstraintdata:=tgenericconstraintdata.create;
genconstraintdata.flags:=constraintdata.flags;
genconstraintdata.interfaces.assign(constraintdata.interfaces);
genconstraintdata.fileinfo:=constraintdata.fileinfo;
include(defoptions,df_genconstraint);
end;

2
compiler/symdef.pas
View File

@ -50,6 +50,8 @@ interface
interfaces : tfpobjectlist;
interfacesderef : tfplist;
flags : tgenericconstraintflags;
{ only required while parsing }
fileinfo : tfileposinfo;
constructor create;
destructor destroy;override;
procedure ppuload(ppufile:tcompilerppufile);