diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-06-20 20:03:04 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-06-20 20:03:04 +0300 |
| commit | cd380faebed56979c993ec46daa8c9d927c2d1dd (patch) | |
| tree | c8f50bd78cb4fbbee662f4e78a65f941f71b1b43 /awkgram.c | |
| parent | 1ab61e1508bb2c35d536717868d9dbe5ea20fa93 (diff) | |
| download | egawk-cd380faebed56979c993ec46daa8c9d927c2d1dd.tar.gz egawk-cd380faebed56979c993ec46daa8c9d927c2d1dd.tar.bz2 egawk-cd380faebed56979c993ec46daa8c9d927c2d1dd.zip | |
Restore stopme() debugging function.
Diffstat (limited to 'awkgram.c')
| -rw-r--r-- | awkgram.c | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -4596,6 +4596,9 @@ static const struct token tokentab[] = { {"sprintf", Op_builtin, LEX_BUILTIN, 0, do_sprintf, 0}, {"sqrt", Op_builtin, LEX_BUILTIN, A(1), do_sqrt, MPF(sqrt)}, {"srand", Op_builtin, LEX_BUILTIN, NOT_OLD|A(0)|A(1), do_srand, MPF(srand)}, +#if defined(GAWKDEBUG) || defined(ARRAYDEBUG) /* || ... */ +{"stopme", Op_builtin, LEX_BUILTIN, GAWKX|A(0), stopme, 0}, +#endif {"strftime", Op_builtin, LEX_BUILTIN, GAWKX|A(0)|A(1)|A(2)|A(3), do_strftime, 0}, {"strtonum", Op_builtin, LEX_BUILTIN, GAWKX|A(1), do_strtonum, MPF(strtonum)}, {"sub", Op_sub_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), 0, 0}, @@ -7210,6 +7213,14 @@ make_assignable(INSTRUCTION *ip) return NULL; } +/* stopme --- for debugging */ + +NODE * +stopme(NODE *tree ATTRIBUTE_UNUSED) +{ + return make_number(0.0); +} + /* dumpintlstr --- write out an initial .po file entry for the string */ static void |