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

* gc.h: replace usage of SIZEOF_LONG with

Browse source 
SCM_SIZEOF_UNSIGNED_LONG.  Replace usage of USE_PTHREAD_THREADS
with SCM_USE_PTHREAD_THREADS.  Remove SCM_SIZEOF_LONG definition
since we handle that in scmconfig.h now.
This commit is contained in:
Rob Browning 2003-03-25 23:55:37 +00:00
parent aa54a9b0a3
commit 48c046bcda
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/gc.h
View file

@ -50,7 +50,7 @@
#include "libguile/hooks.h" #include "libguile/hooks.h"
#ifdef USE_PTHREAD_THREADS #ifdef SCM_USE_PTHREAD_THREADS
#include "libguile/pthread-threads.h" #include "libguile/pthread-threads.h"
#else #else
#include "libguile/null-threads.h" #include "libguile/null-threads.h"
@ -137,15 +137,13 @@ typedef struct scm_t_cell
/* low level bit banging aids */ /* low level bit banging aids */
typedef unsigned long scm_t_c_bvec_long; typedef unsigned long scm_t_c_bvec_long;
#if (SIZEOF_LONG == 8) #if (SCM_SIZEOF_UNSIGNED_LONG == 8)
# define SCM_C_BVEC_LONG_BITS 64 # define SCM_C_BVEC_LONG_BITS 64
# define SCM_C_BVEC_OFFSET_SHIFT 6 # define SCM_C_BVEC_OFFSET_SHIFT 6
# define SCM_C_BVEC_POS_MASK 63 # define SCM_C_BVEC_POS_MASK 63
# define SCM_CELL_SIZE_SHIFT 4 # define SCM_CELL_SIZE_SHIFT 4
# define SCM_SIZEOF_LONG SIZEOF_LONG
#else #else
# define SCM_C_BVEC_LONG_BITS 32 # define SCM_C_BVEC_LONG_BITS 32
# define SCM_SIZEOF_LONG SIZEOF_LONG
# define SCM_C_BVEC_OFFSET_SHIFT 5 # define SCM_C_BVEC_OFFSET_SHIFT 5
# define SCM_C_BVEC_POS_MASK 31 # define SCM_C_BVEC_POS_MASK 31
# define SCM_CELL_SIZE_SHIFT 3 # define SCM_CELL_SIZE_SHIFT 3