From 8c68a92cadc6f882abd6f9e486d34a3befe79bbc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Mon, 19 Jun 2000 20:26:16 -0700
Subject: [PATCH] m_delete 'fixed' :)

Rev: src/builtin_functions.c:1.282
Rev: src/mapping.c:1.87
---
 src/builtin_functions.c |  6 +-----
 src/mapping.c           | 13 +------------
 2 files changed, 2 insertions(+), 17 deletions(-)

diff --git a/src/builtin_functions.c b/src/builtin_functions.c
index 2f3ceda912..db47be1e00 100644
--- a/src/builtin_functions.c
+++ b/src/builtin_functions.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: builtin_functions.c,v 1.281 2000/06/09 22:44:47 mast Exp $");
+RCSID("$Id: builtin_functions.c,v 1.282 2000/06/20 03:26:16 hubbe Exp $");
 #include "interpret.h"
 #include "svalue.h"
 #include "pike_macros.h"
@@ -5697,10 +5697,6 @@ void init_builtin_efuns(void)
 /* function(string:string) */
   ADD_EFUN("lower_case",f_lower_case,tFunc(tStr,tStr),OPT_TRY_OPTIMIZE);
   
-/* function(0=mapping,mixed:0) */
-  ADD_EFUN("m_delete",f_m_delete,tFunc(tSetvar(0,tMapping) tMix,tVar(0)),
-	   OPT_SIDE_EFFECT);
-  
 /* function(mixed:int) */
   ADD_EFUN("mappingp",f_mappingp,tFunc(tMix,tInt),OPT_TRY_OPTIMIZE);
   
diff --git a/src/mapping.c b/src/mapping.c
index bf8e61e798..7dd85dbe41 100644
--- a/src/mapping.c
+++ b/src/mapping.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: mapping.c,v 1.86 2000/06/12 19:33:08 mast Exp $");
+RCSID("$Id: mapping.c,v 1.87 2000/06/20 03:26:16 hubbe Exp $");
 #include "main.h"
 #include "object.h"
 #include "mapping.h"
@@ -1540,17 +1540,6 @@ node *make_node_from_mapping(struct mapping *m)
   }
 }
 
-void f_m_delete(INT32 args)
-{
-  if(args < 2)
-    error("Too few arguments to m_delete.\n");
-  if(sp[-args].type != T_MAPPING)
-    error("Bad argument 1 to m_delete.\n");
-
-  map_delete(sp[-args].u.mapping,sp+1-args);
-  pop_n_elems(args-1);
-}
-
 void f_aggregate_mapping(INT32 args)
 {
   INT32 e;
-- 
GitLab