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/fork.c | |
| parent | 62d890d4384a70c7550876c617b3a34e28dab234 (diff) | |
| download | egawk-04dc190623f0d99d80387b33ca747b8cbad37724.tar.gz egawk-04dc190623f0d99d80387b33ca747b8cbad37724.tar.bz2 egawk-04dc190623f0d99d80387b33ca747b8cbad37724.zip | |
Further API work.
Diffstat (limited to 'extension/fork.c')
| -rw-r--r-- | extension/fork.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/extension/fork.c b/extension/fork.c index a7f96017..1d4ad82c 100644 --- a/extension/fork.c +++ b/extension/fork.c @@ -2,10 +2,11 @@ * fork.c - Provide fork and waitpid functions for gawk. * * Revised 6/2004 + * Revised 5/2012 for new extension API. */ /* - * 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. @@ -76,7 +77,8 @@ do_fork(int nargs, awk_value_t *result) else if (ret == 0) { /* update PROCINFO in the child, if the array exists */ awk_value_t procinfo; - if (sym_lookup("PROCINFO", &procinfo) != NULL) { + + if (sym_lookup("PROCINFO", & procinfo, AWK_ARRAY) != NULL) { if (procinfo.val_type != AWK_ARRAY) { if (do_lint) lintwarn(ext_id, "fork: PROCINFO is not an array!"); @@ -91,7 +93,6 @@ do_fork(int nargs, awk_value_t *result) return make_number(ret, result); } - /* do_waitpid --- provide dynamically loaded waitpid() builtin for gawk */ static awk_value_t * |