mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

Make variables related to the subr table size private and unsigned.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2009-01-18 12:44:15 +01:00
parent 81ba12d74d
commit f48393a99b
2 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/procs.c
View file

@ -44,14 +44,14 @@ scm_t_subr_entry *scm_subr_table;
/* Increased to 800 on 2001-05-07 -- Guile now has 779 primitives on /* Increased to 800 on 2001-05-07 -- Guile now has 779 primitives on
startup, 786 with guile-readline. 'martin */ startup, 786 with guile-readline. 'martin */
long scm_subr_table_size = 0; static unsigned long scm_subr_table_size = 0;
long scm_subr_table_room = 800; static unsigned long scm_subr_table_room = 800;
SCM SCM
scm_c_make_subr (const char *name, long type, SCM (*fcn) ()) scm_c_make_subr (const char *name, long type, SCM (*fcn) ())
{ {
register SCM z; register SCM z;
long entry; unsigned long entry;
if (scm_subr_table_size == scm_subr_table_room) if (scm_subr_table_size == scm_subr_table_room)
{ {

4
libguile/procs.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_PROCS_H #ifndef SCM_PROCS_H
#define 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 * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * 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) #define SCM_SETTER(obj) SCM_CELL_OBJECT_2 (obj)
SCM_API scm_t_subr_entry *scm_subr_table; SCM_API scm_t_subr_entry *scm_subr_table;
SCM_API long scm_subr_table_size;
SCM_API long scm_subr_table_room;