From a387773debf7a3d2b65f739e002a820dc6add872 Mon Sep 17 00:00:00 2001 From: "E. C. Masloch" Date: Sat, 4 Apr 2026 21:51:04 +0200 Subject: [PATCH] fix bintree.pp compilation with fpc 3.2.0+dfsg-12 Errors produced without this change: bintree.pp(474,33) Error: Variable identifier expected bintree.pp(1233) Fatal: There were 1 errors compiling module, stopping Fatal: Compilation aborted --- utilities/makelist/bintree.pp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/utilities/makelist/bintree.pp b/utilities/makelist/bintree.pp index a5cff4aba..5d5846dea 100644 --- a/utilities/makelist/bintree.pp +++ b/utilities/makelist/bintree.pp @@ -471,7 +471,8 @@ procedure TCustomBinaryTree.SelfBalance(Node: TBinaryTreeNode); procedure TCustomBinaryTree.DeleteBalance(Node, Parent: TBinaryTreeNode); begin { Do nothing } - IgnoreParameter([Node, Parent]); + IgnoreParameter(Node); + IgnoreParameter(Parent); end; function TCustomBinaryTree.StreamID: String;