From 08e5191ff016f9df61bb157fc56cb9af6c599863 Mon Sep 17 00:00:00 2001
From: Peter Stephenson
Date: Thu, 18 Sep 2014 19:09:52 +0100
Subject: users/19097: remove $functypetrace in favour of ref to
$zsheval_context
---
Src/Modules/parameter.c | 39 ---------------------------------------
1 file changed, 39 deletions(-)
(limited to 'Src/Modules/parameter.c')
diff --git a/Src/Modules/parameter.c b/Src/Modules/parameter.c
index 02a642bec..0385a709e 100644
--- a/Src/Modules/parameter.c
+++ b/Src/Modules/parameter.c
@@ -640,41 +640,6 @@ funcfiletracegetfn(UNUSED(Param pm))
return ret;
}
-/* Functions for the functypestack special parameter. */
-
-static char **
-functypestackgetfn(UNUSED(Param pm))
-{
- Funcstack f;
- int num;
- char **ret, **p;
-
- for (f = funcstack, num = 0; f; f = f->prev, num++);
-
- ret = (char **) zhalloc((num + 1) * sizeof(char *));
-
- for (f = funcstack, p = ret; f; f = f->prev, p++)
- {
- switch (f->tp)
- {
- case FS_SOURCE:
- *p = "source";
- break;
-
- case FS_FUNC:
- *p = "function";
- break;
-
- case FS_EVAL:
- *p = "eval";
- break;
- }
- }
- *p = NULL;
-
- return ret;
-}
-
/* Functions for the builtins special parameter. */
/**/
@@ -2081,8 +2046,6 @@ static const struct gsu_array funcsourcetrace_gsu =
{ funcsourcetracegetfn, arrsetfn, stdunsetfn };
static const struct gsu_array funcfiletrace_gsu =
{ funcfiletracegetfn, arrsetfn, stdunsetfn };
-static const struct gsu_array functypestack_gsu =
-{ functypestackgetfn, arrsetfn, stdunsetfn };
static const struct gsu_array reswords_gsu =
{ reswordsgetfn, arrsetfn, stdunsetfn };
static const struct gsu_array disreswords_gsu =
@@ -2127,8 +2090,6 @@ static struct paramdef partab[] = {
scanpmfunctions),
SPECIALPMDEF("functrace", PM_ARRAY|PM_READONLY,
&functrace_gsu, NULL, NULL),
- SPECIALPMDEF("functypestack", PM_ARRAY|PM_READONLY,
- &functypestack_gsu, NULL, NULL),
SPECIALPMDEF("galiases", 0,
&pmgaliases_gsu, getpmgalias, scanpmgaliases),
SPECIALPMDEF("history", PM_READONLY,
--
cgit 1.4.1