From 08e5191ff016f9df61bb157fc56cb9af6c599863 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <p.w.stephenson@ntlworld.com>
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')

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