From f48393a99b4886e6005baad9d25d8fefe6cefecc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 18 Jan 2009 12:44:15 +0100 Subject: [PATCH] Make variables related to the subr table size private and unsigned. * libguile/procs.c (scm_subr_table_size, scm_subr_table_room): Made `static' and `unsigned'. (scm_c_make_subr)[entry]: Made `unsigned'. * libguile/procs.h (scm_subr_table_size, scm_subr_table_room): Remove declarations. --- libguile/procs.c | 6 +++--- libguile/procs.h | 4 +--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/libguile/procs.c b/libguile/procs.c index f4afda1f6..624eb558f 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -44,14 +44,14 @@ scm_t_subr_entry *scm_subr_table; /* Increased to 800 on 2001-05-07 -- Guile now has 779 primitives on startup, 786 with guile-readline. 'martin */ -long scm_subr_table_size = 0; -long scm_subr_table_room = 800; +static unsigned long scm_subr_table_size = 0; +static unsigned long scm_subr_table_room = 800; SCM scm_c_make_subr (const char *name, long type, SCM (*fcn) ()) { register SCM z; - long entry; + unsigned long entry; if (scm_subr_table_size == scm_subr_table_room) { diff --git a/libguile/procs.h b/libguile/procs.h index 734ce7b19..122187cb9 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -3,7 +3,7 @@ #ifndef SCM_PROCS_H #define SCM_PROCS_H -/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2006, 2008 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2006, 2008, 2009 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -125,8 +125,6 @@ typedef struct #define SCM_SETTER(obj) SCM_CELL_OBJECT_2 (obj) SCM_API scm_t_subr_entry *scm_subr_table; -SCM_API long scm_subr_table_size; -SCM_API long scm_subr_table_room;