diff options
author | Peter Stephenson <pws@zsh.org> | 2017-02-02 10:03:57 +0000 |
---|---|---|
committer | Peter Stephenson <pws@zsh.org> | 2017-02-02 10:03:57 +0000 |
commit | a32fb005d6bf12f010fe9219a66a244e56eff7b2 (patch) | |
tree | a2d642b20d18fa03ad2b0243eb79fd5e3f4fe474 /Src/params.c | |
parent | caddeca1ac638137b26735fc8c63d08c83be6a90 (diff) | |
download | zsh-a32fb005d6bf12f010fe9219a66a244e56eff7b2.tar.gz zsh-a32fb005d6bf12f010fe9219a66a244e56eff7b2.tar.xz zsh-a32fb005d6bf12f010fe9219a66a244e56eff7b2.zip |
40486: Don't warn on creation of MATCH etc. in regex.
This because they are created implicitly rather than by explicit user request, so the warning may not be useful.
Diffstat (limited to 'Src/params.c')
-rw-r--r-- | Src/params.c | 37 |
1 files changed, 32 insertions, 5 deletions
diff --git a/Src/params.c b/Src/params.c index 20abe6aa6..19cbb1c84 100644 --- a/Src/params.c +++ b/Src/params.c @@ -3192,11 +3192,12 @@ sethparam(char *s, char **val) /* * Set a generic shell number, floating point or integer. + * Option to warn on setting. */ /**/ -Param -setnparam(char *s, mnumber val) +mod_export Param +assignnparam(char *s, mnumber val, int flags) { struct value vbuf; Value v; @@ -3248,15 +3249,41 @@ setnparam(char *s, mnumber val) unqueue_signals(); return NULL; } - check_warn_pm(v->pm, "numeric", !was_unset, 1); + if (flags & ASSPM_WARN) + check_warn_pm(v->pm, "numeric", !was_unset, 1); } else { - check_warn_pm(v->pm, "numeric", 0, 1); + if (flags & ASSPM_WARN) + check_warn_pm(v->pm, "numeric", 0, 1); } setnumvalue(v, val); unqueue_signals(); return v->pm; } +/* + * Set a generic shell number, floating point or integer. + * Warn on setting based on option. + */ + +/**/ +mod_export Param +setnparam(char *s, mnumber val) +{ + return assignnparam(s, val, ASSPM_WARN); +} + +/* Simplified interface to assignnparam */ + +/**/ +mod_export Param +assigniparam(char *s, zlong val, int flags) +{ + mnumber mnval; + mnval.type = MN_INTEGER; + mnval.u.l = val; + return assignnparam(s, mnval, flags); +} + /* Simplified interface to setnparam */ /**/ @@ -3266,7 +3293,7 @@ setiparam(char *s, zlong val) mnumber mnval; mnval.type = MN_INTEGER; mnval.u.l = val; - return setnparam(s, mnval); + return assignnparam(s, mnval, ASSPM_WARN); } /* |