From 299421721af49361c1085f140c576a7391219e07 Mon Sep 17 00:00:00 2001 From: michael Date: Sun, 23 Aug 2020 09:46:06 +0000 Subject: [PATCH] * Merging revisions r46423 from trunk: ------------------------------------------------------------------------ r46423 | michael | 2020-08-14 12:24:24 +0200 (Fri, 14 Aug 2020) | 1 line * Patch from Henrique Werlang to improve generation of IsImpl (bug ID 37510) ------------------------------------------------------------------------ git-svn-id: branches/fixes_3_2@46620 - --- packages/fcl-passrc/src/paswrite.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp index 4b1e324eb3..fccc236c1c 100644 --- a/packages/fcl-passrc/src/paswrite.pp +++ b/packages/fcl-passrc/src/paswrite.pp @@ -907,7 +907,7 @@ Var begin - IsImpl:=AProc.Parent is TPasSection; + IsImpl:=AProc.Parent is TImplementationSection; if IsImpl then PrepareDeclSection(''); if Not IsImpl then