mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 11:40:18 +02:00
Moved some cell related definitions from tags.h and pairs.h to gc.h.
This commit is contained in:
Dirk Herrmann
parent
8d3356e761
commit
2549a7096d
4 changed files with 196 additions and 181 deletions
|
|
@ -1,3 +1,27 @@
|
|||
2000-03-26 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
||||
|
||||
* tags.h (SCM2PTR, PTR2SCM): Moved to gc.h.
|
||||
|
||||
* pairs.h (scm_cell, SCM_CELLPTR, SCM_CELL_WORD*, SCM_CELL_OBJECT*,
|
||||
SCM_SET_CELL_WORD*, SCM_SET_CELL_OBJECT*, SCM_CELL_TYPE,
|
||||
SCM_SET_CELL_TYPE, SCM_PTR_LT, SCM_PTR_MASK, SCM_PTR_GT,
|
||||
SCM_PTR_LE, SCM_PTR_GE, SCM_CELL_WORD_LOC, SCM_NEWCELL,
|
||||
SCM_NEWCELL2): Moved to gc.h.
|
||||
|
||||
(SCM_CARLOC, SCM_CDRLOC, SCM_SETAND_CAR, SCM_SETAND_CDR,
|
||||
SCM_SETOR_CAR, SCM_SETOR_CDR): Moved to gc.h. These names should
|
||||
be changed, though, since the macros are not only pair related.
|
||||
|
||||
(SCMPTR): Deleted.
|
||||
|
||||
* gc.h (SCM2PTR, PTR2SCM, scm_cell, SCM_CELLPTR, SCM_CELL_WORD*,
|
||||
SCM_CELL_OBJECT*, SCM_SET_CELL_WORD*, SCM_SET_CELL_OBJECT*,
|
||||
SCM_CELL_TYPE, SCM_SET_CELL_TYPE, SCM_PTR_LT, SCM_PTR_MASK,
|
||||
SCM_PTR_GT, SCM_PTR_LE, SCM_PTR_GE, SCM_CELL_WORD_LOC,
|
||||
SCM_NEWCELL, SCM_NEWCELL2, SCM_CARLOC, SCM_CDRLOC, SCM_SETAND_CAR,
|
||||
SCM_SETAND_CDR, SCM_SETOR_CAR, SCM_SETOR_CDR): Moved here from
|
||||
tags.h and pairs.h.
|
||||
|
||||
2000-03-25 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
||||
|
||||
* tags.h (SCM_STRICT_TYPING): New macro that, if defined,
|
||||
|
|
|
|||
170
libguile/gc.h
170
libguile/gc.h
|
|
@ -48,8 +48,178 @@
|
|||
|
||||
|
||||
#include "libguile/__scm.h"
|
||||
|
||||
|
||||
|
||||
typedef struct scm_cell
|
||||
{
|
||||
SCM car;
|
||||
SCM cdr;
|
||||
} scm_cell;
|
||||
|
||||
|
||||
/* SCM_CELLPTR is a pointer to a cons cell which may be compared or
|
||||
* differenced.
|
||||
*/
|
||||
#if !defined (__TURBOC__) || defined (__TOS__) || defined (PROT386)
|
||||
typedef scm_cell * SCM_CELLPTR;
|
||||
#else
|
||||
typedef scm_cell huge * SCM_CELLPTR;
|
||||
#endif
|
||||
|
||||
|
||||
/* Cray machines have pointers that are incremented once for each word,
|
||||
* rather than each byte, the 3 most significant bits encode the byte
|
||||
* within the word. The following macros deal with this by storing the
|
||||
* native Cray pointers like the ones that looks like scm expects. This
|
||||
* is done for any pointers that might appear in the car of a scm_cell,
|
||||
* pointers to scm_vector elts, functions, &c are not munged.
|
||||
*/
|
||||
#ifdef _UNICOS
|
||||
#define SCM2PTR(x) ((SCM_CELLPTR) (SCM_UNPACK (x) >> 3))
|
||||
#define PTR2SCM(x) (SCM_PACK (((scm_bits_t) (x)) << 3))
|
||||
#else
|
||||
#define SCM2PTR(x) ((SCM_CELLPTR) (SCM_UNPACK (x)))
|
||||
#define PTR2SCM(x) (SCM_PACK ((scm_bits_t) (x)))
|
||||
#endif /* def _UNICOS */
|
||||
|
||||
|
||||
/* Low level cell data accessing macros:
|
||||
*/
|
||||
|
||||
#define SCM_CELL_WORD(x, n) (SCM_UNPACK (((SCM *) SCM2PTR (x))[n]))
|
||||
#define SCM_CELL_WORD_0(x) SCM_CELL_WORD (x, 0)
|
||||
#define SCM_CELL_WORD_1(x) SCM_CELL_WORD (x, 1)
|
||||
#define SCM_CELL_WORD_2(x) SCM_CELL_WORD (x, 2)
|
||||
#define SCM_CELL_WORD_3(x) SCM_CELL_WORD (x, 3)
|
||||
|
||||
#define SCM_CELL_OBJECT(x, n) (((SCM *) SCM2PTR (x))[n])
|
||||
#define SCM_CELL_OBJECT_0(x) SCM_CELL_OBJECT (x, 0)
|
||||
#define SCM_CELL_OBJECT_1(x) SCM_CELL_OBJECT (x, 1)
|
||||
#define SCM_CELL_OBJECT_2(x) SCM_CELL_OBJECT (x, 2)
|
||||
#define SCM_CELL_OBJECT_3(x) SCM_CELL_OBJECT (x, 3)
|
||||
|
||||
#define SCM_SET_CELL_WORD(x, n, v) ((((SCM *) SCM2PTR (x))[n]) = SCM_PACK (v))
|
||||
#define SCM_SET_CELL_WORD_0(x, v) SCM_SET_CELL_WORD (x, 0, v)
|
||||
#define SCM_SET_CELL_WORD_1(x, v) SCM_SET_CELL_WORD (x, 1, v)
|
||||
#define SCM_SET_CELL_WORD_2(x, v) SCM_SET_CELL_WORD (x, 2, v)
|
||||
#define SCM_SET_CELL_WORD_3(x, v) SCM_SET_CELL_WORD (x, 3, v)
|
||||
|
||||
#define SCM_SET_CELL_OBJECT(x, n, v) ((((SCM *) SCM2PTR (x))[n]) = v)
|
||||
#define SCM_SET_CELL_OBJECT_0(x, v) SCM_SET_CELL_OBJECT (x, 0, v)
|
||||
#define SCM_SET_CELL_OBJECT_1(x, v) SCM_SET_CELL_OBJECT (x, 1, v)
|
||||
#define SCM_SET_CELL_OBJECT_2(x, v) SCM_SET_CELL_OBJECT (x, 2, v)
|
||||
#define SCM_SET_CELL_OBJECT_3(x, v) SCM_SET_CELL_OBJECT (x, 3, v)
|
||||
|
||||
#define SCM_CELL_TYPE(x) SCM_CELL_WORD_0 (x)
|
||||
#define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 (x, t)
|
||||
|
||||
#define SCM_SETAND_CAR(x, y)\
|
||||
(SCM_CAR (x) = SCM_PACK (SCM_UNPACK (SCM_CAR (x)) & (y)))
|
||||
#define SCM_SETAND_CDR(x, y)\
|
||||
(SCM_CDR (x) = SCM_PACK (SCM_UNPACK (SCM_CDR (x)) & (y)))
|
||||
#define SCM_SETOR_CAR(x, y)\
|
||||
(SCM_CAR (x) = SCM_PACK (SCM_UNPACK (SCM_CAR (x)) | (y)))
|
||||
#define SCM_SETOR_CDR(x, y)\
|
||||
(SCM_CDR (x) = SCM_PACK (SCM_UNPACK (SCM_CDR (x)) | (y)))
|
||||
|
||||
#define SCM_CELL_WORD_LOC(x, n) (&SCM_CELL_WORD (x, n))
|
||||
#define SCM_CARLOC(x) (&SCM_CAR (x))
|
||||
#define SCM_CDRLOC(x) (&SCM_CDR (x))
|
||||
|
||||
|
||||
/* SCM_PTR_LT defines how to compare two SCM_CELLPTRs (which may not be in the
|
||||
* same scm_array).
|
||||
*/
|
||||
|
||||
#if !defined(__TURBOC__) || defined(__TOS__)
|
||||
#ifdef nosve
|
||||
#define SCM_PTR_MASK 0xffffffffffff
|
||||
#define SCM_PTR_LT(x, y)\
|
||||
(((int) (x) & SCM_PTR_MASK) < ((int) (y) & SCM_PTR_MASK))
|
||||
#else
|
||||
#define SCM_PTR_LT(x, y) ((x) < (y))
|
||||
#endif /* def nosve */
|
||||
#else /* defined(__TURBOC__) && !defined(__TOS__) */
|
||||
#ifdef PROT386
|
||||
#define SCM_PTR_LT(x, y) (((long) (x)) < ((long) (y)))
|
||||
#else
|
||||
#define SCM_PTR_LT(x, y) ((x) < (y))
|
||||
#endif /* def PROT386 */
|
||||
#endif /* defined(__TURBOC__) && !defined(__TOS__) */
|
||||
|
||||
#define SCM_PTR_GT(x, y) SCM_PTR_LT (y, x)
|
||||
#define SCM_PTR_LE(x, y) (!SCM_PTR_GT (x, y))
|
||||
#define SCM_PTR_GE(x, y) (!SCM_PTR_LT (x, y))
|
||||
|
||||
|
||||
/* the allocated thing: The car of newcells are set to
|
||||
scm_tc16_allocated to avoid the fragile state of newcells wrt the
|
||||
gc. If it stays as a freecell, any allocation afterwards could
|
||||
cause the cell to go back on the freelist, which will bite you
|
||||
sometime afterwards */
|
||||
|
||||
#ifdef GUILE_DEBUG_FREELIST
|
||||
#define SCM_NEWCELL(_into) do { _into = scm_debug_newcell (); } while (0)
|
||||
#define SCM_NEWCELL2(_into) do { _into = scm_debug_newcell2 (); } while (0)
|
||||
#else
|
||||
#ifdef GUILE_NEW_GC_SCHEME
|
||||
/* When we introduce POSIX threads support, every thread will have
|
||||
a freelist of its own. Then it won't any longer be necessary to
|
||||
initialize cells with scm_tc16_allocated. */
|
||||
#define SCM_NEWCELL(_into) \
|
||||
do { \
|
||||
if (SCM_IMP (scm_freelist)) \
|
||||
_into = scm_gc_for_newcell (&scm_master_freelist, \
|
||||
&scm_freelist); \
|
||||
else \
|
||||
{ \
|
||||
_into = scm_freelist; \
|
||||
scm_freelist = SCM_CDR (scm_freelist);\
|
||||
SCM_SETCAR (_into, scm_tc16_allocated); \
|
||||
} \
|
||||
} while(0)
|
||||
#define SCM_NEWCELL2(_into) \
|
||||
do { \
|
||||
if (SCM_IMP (scm_freelist2)) \
|
||||
_into = scm_gc_for_newcell (&scm_master_freelist2, \
|
||||
&scm_freelist2); \
|
||||
else \
|
||||
{ \
|
||||
_into = scm_freelist2; \
|
||||
scm_freelist2 = SCM_CDR (scm_freelist2);\
|
||||
SCM_SETCAR (_into, scm_tc16_allocated); \
|
||||
} \
|
||||
} while(0)
|
||||
#else /* GUILE_NEW_GC_SCHEME */
|
||||
#define SCM_NEWCELL(_into) \
|
||||
do { \
|
||||
if (SCM_IMP (scm_freelist.cells)) \
|
||||
_into = scm_gc_for_newcell (&scm_freelist);\
|
||||
else \
|
||||
{ \
|
||||
_into = scm_freelist.cells; \
|
||||
scm_freelist.cells = SCM_CDR (scm_freelist.cells);\
|
||||
SCM_SETCAR (_into, scm_tc16_allocated); \
|
||||
++scm_cells_allocated; \
|
||||
} \
|
||||
} while(0)
|
||||
#define SCM_NEWCELL2(_into) \
|
||||
do { \
|
||||
if (SCM_IMP (scm_freelist2.cells)) \
|
||||
_into = scm_gc_for_newcell (&scm_freelist2);\
|
||||
else \
|
||||
{ \
|
||||
_into = scm_freelist2.cells; \
|
||||
scm_freelist2.cells = SCM_CDR (scm_freelist2.cells);\
|
||||
SCM_SETCAR (_into, scm_tc16_allocated); \
|
||||
scm_cells_allocated += 2; \
|
||||
} \
|
||||
} while(0)
|
||||
#endif /* GUILE_NEW_GC_SCHEME */
|
||||
#endif
|
||||
|
||||
|
||||
#define SCM_FREEP(x) (SCM_NIMP(x) && SCM_UNPACK_CAR (x)==scm_tc_free_cell)
|
||||
#define SCM_NFREEP(x) (!SCM_FREEP(x))
|
||||
|
||||
|
|
|
|||
166
libguile/pairs.h
166
libguile/pairs.h
|
|
@ -2,7 +2,7 @@
|
|||
|
||||
#ifndef PAIRSH
|
||||
#define PAIRSH
|
||||
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
|
||||
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -52,108 +52,15 @@
|
|||
|
||||
|
||||
|
||||
typedef struct scm_cell
|
||||
{
|
||||
SCM car;
|
||||
SCM cdr;
|
||||
} scm_cell;
|
||||
|
||||
|
||||
/* Low level cell data accessing macros:
|
||||
*/
|
||||
|
||||
#define SCM_CELL_WORD(x, n) (SCM_UNPACK (((SCM *) SCM2PTR (x))[n]))
|
||||
#define SCM_CELL_WORD_0(x) SCM_CELL_WORD (x, 0)
|
||||
#define SCM_CELL_WORD_1(x) SCM_CELL_WORD (x, 1)
|
||||
#define SCM_CELL_WORD_2(x) SCM_CELL_WORD (x, 2)
|
||||
#define SCM_CELL_WORD_3(x) SCM_CELL_WORD (x, 3)
|
||||
|
||||
#define SCM_CELL_OBJECT(x, n) (((SCM *) SCM2PTR (x))[n])
|
||||
#define SCM_CELL_OBJECT_0(x) SCM_CELL_OBJECT (x, 0)
|
||||
#define SCM_CELL_OBJECT_1(x) SCM_CELL_OBJECT (x, 1)
|
||||
#define SCM_CELL_OBJECT_2(x) SCM_CELL_OBJECT (x, 2)
|
||||
#define SCM_CELL_OBJECT_3(x) SCM_CELL_OBJECT (x, 3)
|
||||
|
||||
#define SCM_SET_CELL_WORD(x, n, v) ((((SCM *) SCM2PTR (x))[n]) = SCM_PACK (v))
|
||||
#define SCM_SET_CELL_WORD_0(x, v) SCM_SET_CELL_WORD (x, 0, v)
|
||||
#define SCM_SET_CELL_WORD_1(x, v) SCM_SET_CELL_WORD (x, 1, v)
|
||||
#define SCM_SET_CELL_WORD_2(x, v) SCM_SET_CELL_WORD (x, 2, v)
|
||||
#define SCM_SET_CELL_WORD_3(x, v) SCM_SET_CELL_WORD (x, 3, v)
|
||||
|
||||
#define SCM_SET_CELL_OBJECT(x, n, v) ((((SCM *) SCM2PTR (x))[n]) = v)
|
||||
#define SCM_SET_CELL_OBJECT_0(x, v) SCM_SET_CELL_OBJECT (x, 0, v)
|
||||
#define SCM_SET_CELL_OBJECT_1(x, v) SCM_SET_CELL_OBJECT (x, 1, v)
|
||||
#define SCM_SET_CELL_OBJECT_2(x, v) SCM_SET_CELL_OBJECT (x, 2, v)
|
||||
#define SCM_SET_CELL_OBJECT_3(x, v) SCM_SET_CELL_OBJECT (x, 3, v)
|
||||
|
||||
|
||||
#define SCM_CELL_TYPE(x) SCM_CELL_WORD_0 (x)
|
||||
#define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 (x, t)
|
||||
|
||||
|
||||
/* SCM_PTR_LT defines how to compare two SCM_CELLPTRs (which may not be in the
|
||||
* same scm_array). SCM_CELLPTR is a pointer to a cons cell which may be
|
||||
* compared or differenced. SCMPTR is used for stack bounds.
|
||||
*/
|
||||
|
||||
#if !defined(__TURBOC__) || defined(__TOS__)
|
||||
|
||||
typedef scm_cell *SCM_CELLPTR;
|
||||
typedef SCM *SCMPTR;
|
||||
|
||||
# ifdef nosve
|
||||
# define SCM_PTR_MASK 0xffffffffffff
|
||||
# define SCM_PTR_LT(x, y)\
|
||||
(((int) (x) &SCM_PTR_MASK) < ((int) (y) & SCM_PTR_MASK))
|
||||
# else
|
||||
# define SCM_PTR_LT(x, y) ((x) < (y))
|
||||
# endif /* def nosve */
|
||||
|
||||
#else /* defined(__TURBOC__) && !defined(__TOS__) */
|
||||
|
||||
# ifdef PROT386
|
||||
typedef scm_cell *SCM_CELLPTR;
|
||||
typedef SCM *SCMPTR;
|
||||
# define SCM_PTR_LT(x, y) (((long) (x)) < ((long) (y)))
|
||||
# else
|
||||
typedef scm_cell huge *SCM_CELLPTR;
|
||||
typedef SCM huge *SCMPTR;
|
||||
# define SCM_PTR_LT(x, y) ((x) < (y))
|
||||
# endif /* def PROT386 */
|
||||
|
||||
#endif /* defined(__TURBOC__) && !defined(__TOS__) */
|
||||
|
||||
#define SCM_PTR_GT(x, y) SCM_PTR_LT (y, x)
|
||||
#define SCM_PTR_LE(x, y) (!SCM_PTR_GT (x, y))
|
||||
#define SCM_PTR_GE(x, y) (!SCM_PTR_LT (x, y))
|
||||
|
||||
#define SCM_NULLP(x) (SCM_EOL == (x))
|
||||
#define SCM_NNULLP(x) (SCM_EOL != (x))
|
||||
|
||||
|
||||
|
||||
|
||||
/* Cons Pairs
|
||||
*/
|
||||
|
||||
#define SCM_CAR(x) (((scm_cell *) (SCM2PTR (x)))->car)
|
||||
#define SCM_CDR(x) (((scm_cell *) (SCM2PTR (x)))->cdr)
|
||||
#define SCM_GCCDR(x) SCM_PACK(~1L & SCM_UNPACK (SCM_CDR (x)))
|
||||
#define SCM_SETCAR(x, v) (SCM_CAR (x) = SCM_PACK (v))
|
||||
#define SCM_SETCDR(x, v) (SCM_CDR (x) = SCM_PACK (v))
|
||||
|
||||
#define SCM_CARLOC(x) (&SCM_CAR (x))
|
||||
#define SCM_CDRLOC(x) (&SCM_CDR (x))
|
||||
|
||||
#define SCM_SETAND_CAR(x, y)\
|
||||
(SCM_CAR (x) = SCM_PACK (SCM_UNPACK (SCM_CAR (x)) & (y)))
|
||||
#define SCM_SETAND_CDR(x, y)\
|
||||
(SCM_CDR (x) = SCM_PACK (SCM_UNPACK (SCM_CDR (x)) & (y)))
|
||||
#define SCM_SETOR_CAR(x, y)\
|
||||
(SCM_CAR (x) = SCM_PACK (SCM_UNPACK (SCM_CAR (x)) | (y)))
|
||||
#define SCM_SETOR_CDR(x, y)\
|
||||
(SCM_CDR (x) = SCM_PACK (SCM_UNPACK (SCM_CDR (x)) | (y)))
|
||||
|
||||
#define SCM_CAAR(OBJ) SCM_CAR (SCM_CAR (OBJ))
|
||||
#define SCM_CDAR(OBJ) SCM_CDR (SCM_CAR (OBJ))
|
||||
#define SCM_CADR(OBJ) SCM_CAR (SCM_CDR (OBJ))
|
||||
|
|
@ -185,77 +92,6 @@ typedef SCM huge *SCMPTR;
|
|||
#define SCM_CADDDR(OBJ) SCM_CAR (SCM_CDR (SCM_CDR (SCM_CDR (OBJ))))
|
||||
#define SCM_CDDDDR(OBJ) SCM_CDR (SCM_CDR (SCM_CDR (SCM_CDR (OBJ))))
|
||||
|
||||
/* Multi-cells
|
||||
*/
|
||||
|
||||
#define SCM_CELL_WORD_LOC(x, n) (&SCM_CELL_WORD (x, n))
|
||||
|
||||
/* the allocated thing: The car of newcells are set to
|
||||
scm_tc16_allocated to avoid the fragile state of newcells wrt the
|
||||
gc. If it stays as a freecell, any allocation afterwards could
|
||||
cause the cell to go back on the freelist, which will bite you
|
||||
sometime afterwards */
|
||||
|
||||
#ifdef GUILE_DEBUG_FREELIST
|
||||
#define SCM_NEWCELL(_into) do { _into = scm_debug_newcell (); } while (0)
|
||||
#define SCM_NEWCELL2(_into) do { _into = scm_debug_newcell2 (); } while (0)
|
||||
#else
|
||||
#ifdef GUILE_NEW_GC_SCHEME
|
||||
/* When we introduce POSIX threads support, every thread will have
|
||||
a freelist of its own. Then it won't any longer be necessary to
|
||||
initialize cells with scm_tc16_allocated. */
|
||||
#define SCM_NEWCELL(_into) \
|
||||
do { \
|
||||
if (SCM_IMP (scm_freelist)) \
|
||||
_into = scm_gc_for_newcell (&scm_master_freelist, \
|
||||
&scm_freelist); \
|
||||
else \
|
||||
{ \
|
||||
_into = scm_freelist; \
|
||||
scm_freelist = SCM_CDR (scm_freelist);\
|
||||
SCM_SETCAR (_into, scm_tc16_allocated); \
|
||||
} \
|
||||
} while(0)
|
||||
#define SCM_NEWCELL2(_into) \
|
||||
do { \
|
||||
if (SCM_IMP (scm_freelist2)) \
|
||||
_into = scm_gc_for_newcell (&scm_master_freelist2, \
|
||||
&scm_freelist2); \
|
||||
else \
|
||||
{ \
|
||||
_into = scm_freelist2; \
|
||||
scm_freelist2 = SCM_CDR (scm_freelist2);\
|
||||
SCM_SETCAR (_into, scm_tc16_allocated); \
|
||||
} \
|
||||
} while(0)
|
||||
#else /* GUILE_NEW_GC_SCHEME */
|
||||
#define SCM_NEWCELL(_into) \
|
||||
do { \
|
||||
if (SCM_IMP (scm_freelist.cells)) \
|
||||
_into = scm_gc_for_newcell (&scm_freelist);\
|
||||
else \
|
||||
{ \
|
||||
_into = scm_freelist.cells; \
|
||||
scm_freelist.cells = SCM_CDR (scm_freelist.cells);\
|
||||
SCM_SETCAR (_into, scm_tc16_allocated); \
|
||||
++scm_cells_allocated; \
|
||||
} \
|
||||
} while(0)
|
||||
#define SCM_NEWCELL2(_into) \
|
||||
do { \
|
||||
if (SCM_IMP (scm_freelist2.cells)) \
|
||||
_into = scm_gc_for_newcell (&scm_freelist2);\
|
||||
else \
|
||||
{ \
|
||||
_into = scm_freelist2.cells; \
|
||||
scm_freelist2.cells = SCM_CDR (scm_freelist2.cells);\
|
||||
SCM_SETCAR (_into, scm_tc16_allocated); \
|
||||
scm_cells_allocated += 2; \
|
||||
} \
|
||||
} while(0)
|
||||
#endif /* GUILE_NEW_GC_SCHEME */
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
extern SCM scm_cons (SCM x, SCM y);
|
||||
|
|
|
|||
|
|
@ -101,23 +101,8 @@ typedef long scm_bits_t;
|
|||
/* SCM_UNPACK_CAR is a convenience for treating the CAR of X as a word */
|
||||
#define SCM_UNPACK_CAR(x) SCM_UNPACK (SCM_CAR (x))
|
||||
|
||||
|
||||
/* Cray machines have pointers that are incremented once for each word,
|
||||
* rather than each byte, the 3 most significant bits encode the byte
|
||||
* within the word. The following macros deal with this by storing the
|
||||
* native Cray pointers like the ones that looks like scm expects. This
|
||||
* is done for any pointers that might appear in the car of a scm_cell,
|
||||
* pointers to scm_vector elts, functions, &c are not munged.
|
||||
*/
|
||||
#ifdef _UNICOS
|
||||
# define SCM2PTR(x) ((void *) (SCM_UNPACK (x) >> 3))
|
||||
# define PTR2SCM(x) (SCM_PACK (((scm_bits_t) (x)) << 3))
|
||||
#else
|
||||
# define SCM2PTR(x) ((void *) (SCM_UNPACK (x)))
|
||||
# define PTR2SCM(x) (SCM_PACK ((scm_bits_t) (x)))
|
||||
#endif /* def _UNICOS */
|
||||
|
||||
|
||||
|
||||
/* SCM variables can contain:
|
||||
*
|
||||
* Non-objects -- meaning that the tag-related macros don't apply to them
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue