Merge branch 'master' of ssh://git.sv.gnu.org/srv/git/gawk

3 files changed, 7 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 9f6ced7f..4dbf06e0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -10,6 +10,11 @@
 	* interpret.h (r_interpret): Move setting of ERRNO to here, from ...
 	* io.c (inrec): ... here. Makes the code cleaner.
 
+2014-08-03         Andrew J. Schorr     <aschorr@telemetry-investments.com>
+
+	* awkgram.y (getfname): Match on either ptr or ptr2 so --profile
+	will work in -M (MPFR bignum) mode.
+
 2014-07-31         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* builtin.c (format_tree): Make %c handling more sane on Windows.
diff --git a/awkgram.c b/awkgram.c
index 28776494..1c5e952d 100644
--- a/awkgram.c
+++ b/awkgram.c
@@ -4284,7 +4284,7 @@ getfname(NODE *(*fptr)(int))
 	j = sizeof(tokentab) / sizeof(tokentab[0]);
 	/* linear search, no other way to do it */
 	for (i = 0; i < j; i++) 
-		if (tokentab[i].ptr == fptr)
+		if (tokentab[i].ptr == fptr || tokentab[i].ptr2 == fptr)
 			return tokentab[i].operator;
 
 	return NULL;
diff --git a/awkgram.y b/awkgram.y
index 9e4f82b3..2ceb88e0 100644
--- a/awkgram.y
+++ b/awkgram.y
@@ -1945,7 +1945,7 @@ getfname(NODE *(*fptr)(int))
 	j = sizeof(tokentab) / sizeof(tokentab[0]);
 	/* linear search, no other way to do it */
 	for (i = 0; i < j; i++) 
-		if (tokentab[i].ptr == fptr)
+		if (tokentab[i].ptr == fptr || tokentab[i].ptr2 == fptr)
 			return tokentab[i].operator;
 
 	return NULL;