paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:29:20 +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 if (current_scanner.replay_stack_depth=0) and
( (
(hdef.typ<>procvardef) or (hdef.typ<>procvardef) or
not (po_is_function_ref in tprocdef(hdef).procoptions) not (po_is_function_ref in tabstractprocdef(hdef).procoptions)
) then ) then
hdef.register_def; hdef.register_def;
{ KAZ: handle TGUID declaration in system unit } { KAZ: handle TGUID declaration in system unit }