From 103dc099608579c9cc34ed44ddf6b99a54b1b940 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Wed, 12 Apr 2000 12:39:24 +0200
Subject: [PATCH] More gc() debug.
Rev: src/svalue.c:1.66
Rev: src/svalue.h:1.50
---
src/svalue.c | 6 +++---
src/svalue.h | 9 ++++++---
2 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/src/svalue.c b/src/svalue.c
index 962b50f556..4340b171c5 100644
--- a/src/svalue.c
+++ b/src/svalue.c
@@ -23,7 +23,7 @@
#include "queue.h"
#include "bignum.h"
-RCSID("$Id: svalue.c,v 1.65 2000/04/08 02:01:09 hubbe Exp $");
+RCSID("$Id: svalue.c,v 1.66 2000/04/12 10:39:24 grubba Exp $");
struct svalue dest_ob_zero = { T_INT, 0 };
@@ -1334,7 +1334,7 @@ void real_gc_check_short_svalue(union anything *u, TYPE_T type)
#endif
}
-void gc_mark_svalues(struct svalue *s, int num)
+void debug_gc_mark_svalues(struct svalue *s, int num)
{
INT32 e;
for(e=0;e<num;e++,s++)
@@ -1381,7 +1381,7 @@ void gc_mark_svalues(struct svalue *s, int num)
}
}
-void gc_mark_short_svalue(union anything *u, TYPE_T type)
+void debug_gc_mark_short_svalue(union anything *u, TYPE_T type)
{
switch(type)
{
diff --git a/src/svalue.h b/src/svalue.h
index d2d314c88f..6af8292baa 100644
--- a/src/svalue.h
+++ b/src/svalue.h
@@ -5,7 +5,7 @@
\*/
/*
- * $Id: svalue.h,v 1.49 2000/04/08 02:01:09 hubbe Exp $
+ * $Id: svalue.h,v 1.50 2000/04/12 10:39:09 grubba Exp $
*/
#ifndef SVALUE_H
#define SVALUE_H
@@ -338,11 +338,14 @@ void check_svalue(struct svalue *s);
TYPE_FIELD real_gc_check_svalues(struct svalue *s, int num);
void real_gc_xmark_svalues(struct svalue *s, int num);
void real_gc_check_short_svalue(union anything *u, TYPE_T type);
-void gc_mark_svalues(struct svalue *s, int num);
-void gc_mark_short_svalue(union anything *u, TYPE_T type);
+void debug_gc_mark_svalues(struct svalue *s, int num);
+void debug_gc_mark_short_svalue(union anything *u, TYPE_T type);
INT32 pike_sizeof(struct svalue *s);
/* Prototypes end here */
+#define gc_mark_svalues(S,N) debug_gc_mark_svalues(debug_malloc_pass(S),N)
+#define gc_mark_short_svalue(U,N) debug_gc_mark_short_svalue(debug_malloc_pass(U),N)
+
#ifndef NO_PIKE_SHORTHAND
#define T_ARRAY PIKE_T_ARRAY
--
GitLab