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

Avoid invalid typecast to tabstractvarsym

Browse Source
This commit is contained in:
Pierre Muller 2022-05-27 12:32:53 +00:00
parent 653303274f
commit bb39ec1610
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/defcmp.pas
View File

@ -2662,7 +2662,8 @@ implementation
- method variable - method variable
- function reference - function reference
- nested function } - nested function }
else if (captured.count=1) and (vo_is_self in tabstractvarsym(pcapturedsyminfo(captured[0])^.sym).varoptions) then else if (captured.count=1) and (tsym(pcapturedsyminfo(captured[0])^.sym).typ in [localvarsym,paravarsym]) and
(vo_is_self in tabstractvarsym(pcapturedsyminfo(captured[0])^.sym).varoptions) then
begin begin
if po_methodpointer in def2.procoptions then if po_methodpointer in def2.procoptions then
eq:=te_convert_l1 eq:=te_convert_l1