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