diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 14:40:49 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 14:40:49 +0300 |
| commit | 85c0d5edb781c9f31b79e48452b1ca68643f41de (patch) | |
| tree | 14efbc59b30cdd626a208d6391f3ed226387054e /extension/ordchr.c | |
| parent | 6cc7d587a710606d3fe52222707739c7cc1b8651 (diff) | |
| download | egawk-85c0d5edb781c9f31b79e48452b1ca68643f41de.tar.gz egawk-85c0d5edb781c9f31b79e48452b1ca68643f41de.tar.bz2 egawk-85c0d5edb781c9f31b79e48452b1ca68643f41de.zip | |
Move to gawk-3.1.4.
Diffstat (limited to 'extension/ordchr.c')
| -rw-r--r-- | extension/ordchr.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/extension/ordchr.c b/extension/ordchr.c index 037bfa37..4849ede8 100644 --- a/extension/ordchr.c +++ b/extension/ordchr.c @@ -4,10 +4,11 @@ * Arnold Robbins * arnold@skeeve.com * 8/2001 + * Revised 6/2004 */ /* - * Copyright (C) 2001 the Free Software Foundation, Inc. + * Copyright (C) 2001, 2004 the Free Software Foundation, Inc. * * This file is part of GAWK, the GNU implementation of the * AWK Programming Language. @@ -38,7 +39,7 @@ NODE *tree; NODE *str; int ret = -1; - if (do_lint && tree->param_cnt > 1) + if (do_lint && get_curfunc_arg_count() > 1) lintwarn("ord: called with too many arguments"); str = get_argument(tree, 0); @@ -70,7 +71,7 @@ NODE *tree; str[0] = str[1] = '\0'; - if (do_lint && tree->param_cnt > 1) + if (do_lint && get_curfunc_arg_count() > 1) lintwarn("chr: called with too many arguments"); num = get_argument(tree, 0); |