From 569d5ec55344b69b06634f47291beb05ea08669c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 18 Sep 1998 14:31:42 -0700
Subject: [PATCH] added function: do_free_svalue
Rev: src/svalue.c:1.37
Rev: src/svalue.h:1.18
---
src/svalue.c | 7 ++++++-
src/svalue.h | 9 +++++----
2 files changed, 11 insertions(+), 5 deletions(-)
diff --git a/src/svalue.c b/src/svalue.c
index 076c73e9f8..d06212cb04 100644
--- a/src/svalue.c
+++ b/src/svalue.c
@@ -21,7 +21,7 @@
#include <ctype.h>
#include "queue.h"
-RCSID("$Id: svalue.c,v 1.36 1998/06/24 04:55:28 hubbe Exp $");
+RCSID("$Id: svalue.c,v 1.37 1998/09/18 21:31:41 hubbe Exp $");
struct svalue dest_ob_zero = { T_INT, 0 };
@@ -128,6 +128,11 @@ void really_free_svalue(struct svalue *s)
}
}
+void do_free_svalue(struct svalue *s)
+{
+ free_svalue(s);
+}
+
/* Free a bunch of normal svalues.
* We put this routine here so the compiler can optimize the call
* inside the loop if it wants to
diff --git a/src/svalue.h b/src/svalue.h
index 54dafd8f16..65225ad12b 100644
--- a/src/svalue.h
+++ b/src/svalue.h
@@ -5,7 +5,7 @@
\*/
/*
- * $Id: svalue.h,v 1.17 1998/04/24 00:10:45 hubbe Exp $
+ * $Id: svalue.h,v 1.18 1998/09/18 21:31:42 hubbe Exp $
*/
#ifndef SVALUE_H
#define SVALUE_H
@@ -214,6 +214,7 @@ extern struct svalue dest_ob_zero;
/* Prototypes begin here */
void really_free_short_svalue(union anything *s, TYPE_T type);
void really_free_svalue(struct svalue *s);
+void do_free_svalue(struct svalue *s);
void debug_free_svalues(struct svalue *s,INT32 num, INT32 type_hint LINE_ARGS);
void assign_svalues_no_free(struct svalue *to,
struct svalue *from,
@@ -230,8 +231,8 @@ void assign_to_short_svalue_no_free(union anything *u,
TYPE_T type,
struct svalue *s);
void assign_from_short_svalue_no_free(struct svalue *s,
- union anything *u,
- TYPE_T type);
+ union anything *u,
+ TYPE_T type);
void assign_short_svalue_no_free(union anything *to,
union anything *from,
TYPE_T type);
@@ -256,7 +257,7 @@ void copy_svalues_recursively_no_free(struct svalue *to,
struct svalue *from,
INT32 num,
struct processing *p);
-void check_short_svalue(union anything *u,TYPE_T type);
+void check_short_svalue(union anything *u, TYPE_T type);
void check_svalue(struct svalue *s);
TYPE_FIELD gc_check_svalues(struct svalue *s, int num);
void gc_xmark_svalues(struct svalue *s, int num);
--
GitLab