From c8eea5db079ae159ced7413d418c44d9d6d545f1 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Sat, 2 Aug 2003 00:46:06 +0200
Subject: [PATCH] The program_id debug field in struct object was unnecessarily
 long.

Rev: src/gc.c:1.222
Rev: src/object.h:1.80
---
 src/gc.c     | 10 +++++++---
 src/object.h |  4 ++--
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/src/gc.c b/src/gc.c
index 0d0e6508a9..4591bc22f4 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -2,7 +2,7 @@
 || This file is part of Pike. For copyright information see COPYRIGHT.
 || Pike is distributed under GPL, LGPL and MPL. See the file COPYING
 || for more information.
-|| $Id: gc.c,v 1.221 2003/07/16 14:10:12 mast Exp $
+|| $Id: gc.c,v 1.222 2003/08/01 22:46:06 mast Exp $
 */
 
 #include "global.h"
@@ -33,7 +33,7 @@ struct callback *gc_evaluator_callback=0;
 
 #include "block_alloc.h"
 
-RCSID("$Id: gc.c,v 1.221 2003/07/16 14:10:12 mast Exp $");
+RCSID("$Id: gc.c,v 1.222 2003/08/01 22:46:06 mast Exp $");
 
 int gc_enabled = 1;
 
@@ -830,7 +830,7 @@ again:
       {
 	fprintf(stderr,"%*s**Parent identifier: %d\n",indent,"",PARENT_INFO( ((struct object *)a) )->parent_identifier);
       }
-      fprintf(stderr,"%*s**Program id: %ld\n",indent,"",((struct object *)a)->program_id);
+      fprintf(stderr,"%*s**Program id: %d\n",indent,"",((struct object *)a)->program_id);
 
       if (((struct object *)a)->next == ((struct object *)a))
 	fprintf(stderr, "%*s**The object is fake.\n",indent,"");
@@ -890,6 +890,10 @@ again:
 	fprintf(stderr,"%*s**The program was written in C.\n",indent,"");
       }
 
+#if 0
+      dump_program_tables (p, indent + 2);
+#endif
+
       tmp = low_get_program_line_plain(p, &line, 1);
       if (tmp) {
 	fprintf(stderr,"%*s**Location: %s:%ld\n",
diff --git a/src/object.h b/src/object.h
index 654c8cc681..9f082b2606 100644
--- a/src/object.h
+++ b/src/object.h
@@ -2,7 +2,7 @@
 || This file is part of Pike. For copyright information see COPYRIGHT.
 || Pike is distributed under GPL, LGPL and MPL. See the file COPYING
 || for more information.
-|| $Id: object.h,v 1.79 2003/06/30 17:06:09 mast Exp $
+|| $Id: object.h,v 1.80 2003/08/01 22:46:06 mast Exp $
 */
 
 #ifndef OBJECT_H
@@ -23,7 +23,7 @@ struct object
   struct object *next;
   struct object *prev;
 #if PIKE_DEBUG
-  long program_id;
+  INT32 program_id;
 #endif
   char *storage;
 };
-- 
GitLab