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

* check whether the hdef is still a procvardef before accessing it as such

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-09-16 14:31:57 +02:00
parent b0e1867b4c
commit c43f671baa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecvar.pas
View File

@ -1546,7 +1546,7 @@ implementation
begin begin
{ Parse procvar directives after ; } { Parse procvar directives after ; }
maybe_parse_proc_directives(hdef); maybe_parse_proc_directives(hdef);
if po_is_function_ref in tprocvardef(hdef).procoptions then if (hdef.typ=procvardef) and (po_is_function_ref in tprocvardef(hdef).procoptions) then
begin begin
if not (m_function_references in current_settings.modeswitches) and if not (m_function_references in current_settings.modeswitches) and
not (po_is_block in tprocvardef(hdef).procoptions) then not (po_is_block in tprocvardef(hdef).procoptions) then
@ -1865,7 +1865,7 @@ implementation
(hdef.typesym=nil) (hdef.typesym=nil)
) or is_funcref(hdef) then ) or is_funcref(hdef) then
begin begin
if po_is_function_ref in tprocvardef(hdef).procoptions then if (hdef.typ=procvardef) and (po_is_function_ref in tprocvardef(hdef).procoptions) then
begin begin
if not (m_function_references in current_settings.modeswitches) and if not (m_function_references in current_settings.modeswitches) and
not (po_is_block in tprocvardef(hdef).procoptions) then not (po_is_block in tprocvardef(hdef).procoptions) then