diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 13:17:58 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 13:17:58 +0300 |
| commit | e888f1834b88270590b7e04d64c03c75863e4565 (patch) | |
| tree | ab679ecbf16dc4f11b90a53f4b1e0084d78c98b0 /ext.c | |
| parent | fae4762eba9ff7bb466a600130e9c90eaac6b0bc (diff) | |
| download | egawk-e888f1834b88270590b7e04d64c03c75863e4565.tar.gz egawk-e888f1834b88270590b7e04d64c03c75863e4565.tar.bz2 egawk-e888f1834b88270590b7e04d64c03c75863e4565.zip | |
Move to gawk-3.1.2.
Diffstat (limited to 'ext.c')
| -rw-r--r-- | ext.c | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -7,7 +7,7 @@ */ /* - * Copyright (C) 1995 - 2001 the Free Software Foundation, Inc. + * Copyright (C) 1995 - 2001, 2003 the Free Software Foundation, Inc. * * This file is part of GAWK, the GNU implementation of the * AWK Programming Language. @@ -114,6 +114,7 @@ make_builtin(char *name, NODE *(*func) P((NODE *)), int count) getnode(p); p->type = Node_param_list; + p->flags |= FUNC; p->rnode = NULL; p->param = name; p->param_cnt = count; @@ -125,7 +126,7 @@ make_builtin(char *name, NODE *(*func) P((NODE *)), int count) getnode(b); b->type = Node_builtin; - b->proc = func; + b->builtin = func; b->subnode = p; b->source_line = __LINE__; b->source_file = __FILE__; @@ -177,10 +178,10 @@ set_value(NODE *tree) NODE * do_ext(NODE *tree) { - char *emsg = _("Operation Not Supported"); + const char *emsg = _("Operation Not Supported"); unref(ERRNO_node->var_value); - ERRNO_node->var_value = make_string(emsg, strlen(emsg)); + ERRNO_node->var_value = make_string((char *) emsg, strlen(emsg)); return tmp_number((AWKNUM) -1); } #endif |