From 1e6fb1a4f0586e62996bb19c9c07bc3c8d24659c Mon Sep 17 00:00:00 2001 From: Mikael Magnusson Date: Sun, 3 May 2015 22:34:23 +0200 Subject: Fix two bugs in typeset_setbase --- Src/builtin.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Src') diff --git a/Src/builtin.c b/Src/builtin.c index 0a57489ea..ffde5c916 100644 --- a/Src/builtin.c +++ b/Src/builtin.c @@ -1868,7 +1868,7 @@ typeset_setbase(const char *name, Param pm, Options ops, int on, int always) if (arg) { char *eptr; - pm->base = (int)zstrtol(arg, &eptr, 10); + int base = (int)zstrtol(arg, &eptr, 10); if (*eptr) { if (on & PM_INTEGER) zwarnnam(name, "bad base value: %s", arg); @@ -1876,11 +1876,12 @@ typeset_setbase(const char *name, Param pm, Options ops, int on, int always) zwarnnam(name, "bad precision value: %s", arg); return 1; } - if (pm->base < 2 || pm->base > 36) { + if ((on & PM_INTEGER) && (base < 2 || base > 36)) { zwarnnam(name, "invalid base (must be 2 to 36 inclusive): %d", - pm->base); + base); return 1; } + pm->base = base; } else if (always) pm->base = 0; -- cgit 1.4.1