From e5ac99a4c97b52c95b26829b6f62ec0029798e7c Mon Sep 17 00:00:00 2001 From: Sven/Sarah Barth Date: Thu, 6 Jan 2022 18:22:23 +0100 Subject: [PATCH] * apply patch by Blaise.ru: parse_object_proc_directives() and parse_object_record_directives() should only be called with procdefs, so change the parameter from tabstractprocdef to tprocdef to make this explicit --- compiler/pdecsub.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas index b220cdf69f..267537160e 100644 --- a/compiler/pdecsub.pas +++ b/compiler/pdecsub.pas @@ -69,8 +69,8 @@ interface procedure parse_parameter_dec(pd:tabstractprocdef); procedure parse_proc_directives(pd:tabstractprocdef;var pdflags:tpdflags); procedure parse_proctype_directives(pd:tprocvardef); - procedure parse_object_proc_directives(pd:tabstractprocdef); - procedure parse_record_proc_directives(pd:tabstractprocdef); + procedure parse_object_proc_directives(pd:tprocdef); + procedure parse_record_proc_directives(pd:tprocdef); function parse_proc_head(astruct:tabstractrecorddef;potype:tproctypeoption;flags:tparse_proc_flags;genericdef:tdef;generictypelist:tfphashobjectlist;out pd:tprocdef):boolean; function parse_proc_dec(flags:tparse_proc_flags;astruct:tabstractrecorddef):tprocdef; procedure parse_proc_dec_finish(pd:tprocdef;flags:tparse_proc_flags;astruct:tabstractrecorddef); @@ -3440,7 +3440,7 @@ const end; - procedure parse_object_proc_directives(pd:tabstractprocdef); + procedure parse_object_proc_directives(pd:tprocdef); var pdflags : tpdflags; begin @@ -3448,7 +3448,7 @@ const parse_proc_directives(pd,pdflags); end; - procedure parse_record_proc_directives(pd:tabstractprocdef); + procedure parse_record_proc_directives(pd:tprocdef); var pdflags : tpdflags; begin