From 8af390bc27ec05d1c6c90cc279ebd3c2ce239df7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Mon, 27 Apr 1998 03:01:56 -0700
Subject: [PATCH] new efun: _locate_references()
Rev: src/builtin_functions.c:1.102
---
src/builtin_functions.c | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/src/builtin_functions.c b/src/builtin_functions.c
index e97d0fd7b8..8e974e357b 100644
--- a/src/builtin_functions.c
+++ b/src/builtin_functions.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: builtin_functions.c,v 1.101 1998/04/24 00:32:08 hubbe Exp $");
+RCSID("$Id: builtin_functions.c,v 1.102 1998/04/27 10:01:56 hubbe Exp $");
#include "interpret.h"
#include "svalue.h"
#include "pike_macros.h"
@@ -2675,6 +2675,15 @@ void f__reset_dmalloc(INT32 args)
}
#endif
+#ifdef DEBUG
+void f__locate_references(INT32 args)
+{
+ if(args)
+ locate_references(sp[-args].u.refs);
+ pop_n_elems(args-1);
+}
+#endif
+
void init_builtin_efuns(void)
{
init_operators();
@@ -2786,5 +2795,8 @@ void init_builtin_efuns(void)
#ifdef DEBUG_MALLOC
add_efun("_reset_dmalloc",f__reset_dmalloc,"function(void:void)",OPT_SIDE_EFFECT);
#endif
+#ifdef DEBUG
+ add_efun("_locate_references",f__locate_references,"function(1=mixed:1)",OPT_SIDE_EFFECT);
+#endif
}
--
GitLab