Minor patch to get --profile to work in -M (MPFR) mode.

3 files changed, 7 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index ba56b20a..8a9e46ee 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 711c2e37..be852dfa 100644
--- a/awkgram.c
+++ b/awkgram.c
@@ -4283,7 +4283,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 1a199469..53a218a2 100644
--- a/awkgram.y
+++ b/awkgram.y
@@ -1944,7 +1944,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;