From 905e0c83bd2ad40f88b0b9af15c8d60541e79de2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Fri, 11 Aug 2000 16:27:41 +0200
Subject: [PATCH] Fixed typo.
Rev: src/gc.c:1.118
---
src/gc.c | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/gc.c b/src/gc.c
index ebc9a15e32..5bf4d7151c 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -29,7 +29,7 @@ struct callback *gc_evaluator_callback=0;
#include "block_alloc.h"
-RCSID("$Id: gc.c,v 1.117 2000/08/11 13:17:13 grubba Exp $");
+RCSID("$Id: gc.c,v 1.118 2000/08/11 14:27:41 grubba Exp $");
/* Run garbage collect approximately every time
* 20 percent of all arrays, objects and programs is
@@ -2186,16 +2186,16 @@ void f__gc_status(INT32 args)
push_int(num_allocs);
push_constant_text("alloc_threshold");
- push_int32(alloc_threshold);
+ push_int64(alloc_threshold);
push_constant_text("objects_alloced");
- push_int32(objects_alloced);
+ push_int64(objects_alloced);
push_constant_text("objects_freed");
- push_int32(objects_freed);
+ push_int64(objects_freed);
push_constant_text("last_gc");
- push_int32(last_gc);
+ push_int64(last_gc);
push_constant_text("projected_garbage");
push_float(objects_freed * (double) num_allocs / (double) alloc_threshold);
--
GitLab