diff options
| author | Andrew J. Schorr <aschorr@telemetry-investments.com> | 2016-07-06 22:29:58 -0400 |
|---|---|---|
| committer | Andrew J. Schorr <aschorr@telemetry-investments.com> | 2016-07-06 22:29:58 -0400 |
| commit | eb261daff5e9a96f294cd806d1fd3e68f06fdbaa (patch) | |
| tree | 5f4d05861ac492c52a9f6a0781c69e90be73b60c /int_array.c | |
| parent | ce342a04922797cb53557178c54d32c4efafda16 (diff) | |
| download | egawk-eb261daff5e9a96f294cd806d1fd3e68f06fdbaa.tar.gz egawk-eb261daff5e9a96f294cd806d1fd3e68f06fdbaa.tar.bz2 egawk-eb261daff5e9a96f294cd806d1fd3e68f06fdbaa.zip | |
Modify MAYBE_NUM usage and typeof function to return "strnum" only for actual numeric strings.
Diffstat (limited to 'int_array.c')
| -rw-r--r-- | int_array.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/int_array.c b/int_array.c index 93e96d1f..937a91cf 100644 --- a/int_array.c +++ b/int_array.c @@ -142,7 +142,8 @@ is_integer(NODE *symbol, NODE *subs) if (len == 1 && *cp != '-') { /* single digit */ subs->numbr = (long) (*cp - '0'); if ((subs->flags & MAYBE_NUM) != 0) { - subs->flags &= ~(MAYBE_NUM|STRING); + /* leave MAYBE_NUM set */ + subs->flags &= ~STRING; subs->flags |= NUMBER; } subs->flags |= (NUMCUR|NUMINT); @@ -158,7 +159,8 @@ is_integer(NODE *symbol, NODE *subs) subs->numbr = l; if ((subs->flags & MAYBE_NUM) != 0) { - subs->flags &= ~(MAYBE_NUM|STRING); + /* leave MAYBE_NUM set */ + subs->flags &= ~STRING; subs->flags |= NUMBER; } subs->flags |= NUMCUR; |