diff --git a/src/svalue.c b/src/svalue.c index 962b50f556fa1305c5f0404de5afda2e8590ba1e..4340b171c52bbbe3d3528f8e020c6cc649efb8d6 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 d2d314c88f7102a2d3d4cb90edfbafdc35e742df..6af8292baa64fea547a7e52f83b52a7f270e85cb 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