From 862f142d914413b3e0a61df42a7eb81bac9a56db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 4 Dec 1996 17:29:45 -0800
Subject: [PATCH] oops, fixed core bug
Rev: src/object.c:1.7
---
src/object.c | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/src/object.c b/src/object.c
index 7702305abe..913d259aae 100644
--- a/src/object.c
+++ b/src/object.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: object.c,v 1.6 1996/12/05 00:47:17 hubbe Exp $");
+RCSID("$Id: object.c,v 1.7 1996/12/05 01:29:45 hubbe Exp $");
#include "object.h"
#include "dynamic_buffer.h"
#include "interpret.h"
@@ -817,9 +817,19 @@ void count_memory_in_objects(INT32 *num_, INT32 *size_)
num++;
if(o->prog)
{
- size+=sizeof(struct object);
+ size+=sizeof(struct object)-1+o->prog->storage_needed;
}else{
+ size+=sizeof(struct object);
+ }
+ }
+ for(o=objects_to_destruct;o;o=o->next)
+ {
+ num++;
+ if(o->prog)
+ {
size+=sizeof(struct object)-1+o->prog->storage_needed;
+ }else{
+ size+=sizeof(struct object);
}
}
*num_=num;
--
GitLab