From 85a4cf9b36fe7cf876266a49950e80d00ca4c18f Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Thu, 14 May 2015 09:28:57 +0100 Subject: 35110: don't implicitly initialize restricted integers to zero --- Src/builtin.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Src/builtin.c') diff --git a/Src/builtin.c b/Src/builtin.c index 70e75ff17..18dad7491 100644 --- a/Src/builtin.c +++ b/Src/builtin.c @@ -2344,7 +2344,12 @@ typeset_single(char *cname, char *pname, Param pm, UNUSED(int func), pm->gsu.s->setfn(pm, ztrdup("")); break; case PM_INTEGER: - pm->gsu.i->setfn(pm, 0); + /* + * Restricted integers are dangerous to initialize to 0, + * so don't do that. + */ + if (!(pm->old->node.flags & PM_RESTRICTED)) + pm->gsu.i->setfn(pm, 0); break; case PM_EFLOAT: case PM_FFLOAT: -- cgit v1.2.3