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 <gaiusmod2@gmail.com>

diff --git a/gcc/m2/gm2-libs/BinDict.mod b/gcc/m2/gm2-libs/BinDict.mod
index 8b245af1e5b753f9ef5849cdd3406598b914c105..44cf825f47cc721690df8d4309336a45b6ef68b4 100644 (file)
--- 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 ;