Merge branch 'gawk-4.1-stable'

1 files changed, 16 insertions, 0 deletions

diff --git a/awkgram.c b/awkgram.c
index 1c5e952d..4f29ef08 100644
--- a/awkgram.c
+++ b/awkgram.c
@@ -8054,3 +8054,19 @@ one_line_close(int fd)
 }
 
 
+/* lookup_builtin --- find a builtin function or return NULL */
+
+builtin_func_t
+lookup_builtin(const char *name)
+{
+	int mid = check_special(name);
+
+	if (mid == -1 || tokentab[mid].class != LEX_BUILTIN)
+		return NULL;
+#ifdef HAVE_MPFR
+	if (do_mpfr)
+		return tokentab[mid].ptr2;
+#endif
+
+	return tokentab[mid].ptr;
+}