From 85c0d5edb781c9f31b79e48452b1ca68643f41de Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Fri, 16 Jul 2010 14:40:49 +0300 Subject: Move to gawk-3.1.4. --- extension/fork.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'extension/fork.c') diff --git a/extension/fork.c b/extension/fork.c index 6f020318..8ba7d0d6 100644 --- a/extension/fork.c +++ b/extension/fork.c @@ -1,9 +1,11 @@ /* * fork.c - Provide fork and waitpid functions for gawk. + * + * 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. @@ -34,7 +36,7 @@ NODE *tree; int ret = -1; NODE **aptr; - if (do_lint && tree->param_cnt > 0) + if (do_lint && get_curfunc_arg_count() > 0) lintwarn("fork: called with too many arguments"); ret = fork(); @@ -71,7 +73,7 @@ NODE *tree; pid_t pid; int options = 0; - if (do_lint && tree->param_cnt > 1) + if (do_lint && get_curfunc_arg_count() > 1) lintwarn("waitpid: called with too many arguments"); pidnode = get_argument(tree, 0); -- cgit v1.2.3