diff options
author | Arnold D. Robbins <arnold@skeeve.com> | 2012-05-29 23:33:27 +0300 |
---|---|---|
committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-05-29 23:33:27 +0300 |
commit | 04dc190623f0d99d80387b33ca747b8cbad37724 (patch) | |
tree | 2a54d44dc62160ee6f14ec55442508fce0246810 /extension/ordchr.c | |
parent | 62d890d4384a70c7550876c617b3a34e28dab234 (diff) | |
download | egawk-04dc190623f0d99d80387b33ca747b8cbad37724.tar.gz egawk-04dc190623f0d99d80387b33ca747b8cbad37724.tar.bz2 egawk-04dc190623f0d99d80387b33ca747b8cbad37724.zip |
Further API work.
Diffstat (limited to 'extension/ordchr.c')
-rw-r--r-- | extension/ordchr.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/extension/ordchr.c b/extension/ordchr.c index 95401650..c5d2bb45 100644 --- a/extension/ordchr.c +++ b/extension/ordchr.c @@ -5,10 +5,11 @@ * arnold@skeeve.com * 8/2001 * Revised 6/2004 + * Revised 5/2012 */ /* - * Copyright (C) 2001, 2004, 2011 the Free Software Foundation, Inc. + * Copyright (C) 2001, 2004, 2011, 2012 the Free Software Foundation, Inc. * * This file is part of GAWK, the GNU implementation of the * AWK Programming Language. @@ -55,7 +56,7 @@ do_ord(int nargs, awk_value_t *result) if (do_lint && nargs > 1) lintwarn(ext_id, "ord: called with too many arguments"); - if (get_curfunc_param(0, AWK_STRING, &str) != NULL) { + if (get_curfunc_param(0, AWK_STRING, & str) != NULL) { ret = str.str_value.str[0]; } else if (do_lint) lintwarn(ext_id, "ord: called with no arguments"); |