From ef6193b89b4d997aec31d6f36fb5c64db141c3d3 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Wed, 20 Jun 2001 11:02:47 +0000 Subject: rewrite 14988 as per 14989 --- ChangeLog | 4 ++-- Src/exec.c | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index db8a6ecc9..dafe2e6fa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,7 @@ 2001-06-20 Peter Stephenson - * 14988: Src/exec.c: names of saved special parameters need - to be copied. + * 14988 with mod suggested in 14989: Src/exec.c: avoid names of + saved special parameters being trashed. 2001-06-19 Bart Schaefer diff --git a/Src/exec.c b/Src/exec.c index 595d26532..426d151b5 100644 --- a/Src/exec.c +++ b/Src/exec.c @@ -2395,7 +2395,7 @@ save_params(Estate state, Wordcode pc, LinkList *restore_p, LinkList *remove_p) } else if (!(pm->flags & PM_READONLY) && (unset(RESTRICTED) || !(pm->flags & PM_RESTRICTED))) { Param tpm = (Param) zhalloc(sizeof *tpm); - tpm->nam = dupstring(s); + tpm->nam = pm->nam; copyparam(tpm, pm, 1); pm = tpm; } -- cgit 1.4.1