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

pexpr.pas, sub_expr:

Browse Source 
* generate_inline_specialization: fix Delphi-style inline specializations of generic methods

git-svn-id: trunk@32438 -
This commit is contained in:
svenbarth 2015-11-21 15:59:11 +00:00
parent 86f1ca2037
commit b2988ad8c0
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pexpr.pas
View File

@ -3964,6 +3964,8 @@ implementation
do_member_read(structdef,getaddr,gensym,result,again,[],spezcontext); do_member_read(structdef,getaddr,gensym,result,again,[],spezcontext);
end end
else else
begin
if gensym.typ=procsym then
begin begin
result:=nil; result:=nil;
{ check if it's a method/class method } { check if it's a method/class method }
@ -3985,6 +3987,7 @@ implementation
else else
{ no procsyms in records (yet) } { no procsyms in records (yet) }
internalerror(2015092704); internalerror(2015092704);
end;
end end
else else
begin begin