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

Fix cycling with -CR option

Browse Source
This commit is contained in:
Pierre Muller 2022-05-26 22:43:37 +02:00
parent 45bf47ee05
commit e148afd506
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecl.pas
View File

@ -969,7 +969,7 @@ implementation
if (current_scanner.replay_stack_depth=0) and
(
(hdef.typ<>procvardef) or
not (po_is_function_ref in tprocdef(hdef).procoptions)
not (po_is_function_ref in tabstractprocdef(hdef).procoptions)
) then
hdef.register_def;
{ KAZ: handle TGUID declaration in system unit }