From 386752481d0fc4b16feb9e2aaff8ebcf36b18de5 Mon Sep 17 00:00:00 2001 From: Gaius Mulley Date: Fri, 10 Apr 2026 13:45:26 +0100 Subject: [PATCH] PR modula2/124840 library module BinDict.Key returns value This obvious bug fix returns the correct field of the node. Procedure function BinDict.Key should return key. gcc/m2/ChangeLog: PR modula2/124840 * gm2-libs/BinDict.mod (Key): Return field key. Signed-off-by: Gaius Mulley --- gcc/m2/gm2-libs/BinDict.mod | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/m2/gm2-libs/BinDict.mod b/gcc/m2/gm2-libs/BinDict.mod index 8b245af1e5b..44cf825f47c 100644 --- a/gcc/m2/gm2-libs/BinDict.mod +++ b/gcc/m2/gm2-libs/BinDict.mod @@ -205,7 +205,7 @@ END Value ; PROCEDURE Key (node: Node) : ADDRESS ; BEGIN - RETURN node^.value + RETURN node^.key END Key ; -- 2.47.3