3 |
#ifndef SCM_VECTORS_H |
#ifndef SCM_VECTORS_H |
4 |
#define SCM_VECTORS_H |
#define SCM_VECTORS_H |
5 |
|
|
6 |
/* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1998,2000,2001, 2002 Free Software Foundation, Inc. |
7 |
* |
* |
8 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
9 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
61 |
#define SCM_VELTS(x) ((const SCM *) SCM_CELL_WORD_1 (x)) |
#define SCM_VELTS(x) ((const SCM *) SCM_CELL_WORD_1 (x)) |
62 |
#define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM_CELL_WORD_1 (x)) |
#define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM_CELL_WORD_1 (x)) |
63 |
#define SCM_SETVELTS(x, v) (SCM_SET_CELL_WORD_1 ((x), (v))) |
#define SCM_SETVELTS(x, v) (SCM_SET_CELL_WORD_1 ((x), (v))) |
64 |
#define SCM_VECTOR_SET(x, idx, val) (((SCM*)SCM_CELL_WORD_1 (x))[(idx)] = (val)) |
#define SCM_VECTOR_REF(x, idx) (((const SCM *) SCM_CELL_WORD_1 (x))[(idx)]) |
65 |
|
#define SCM_VECTOR_SET(x, idx, val) (((SCM*)SCM_CELL_WORD_1 (x))[(idx)] = (val)) |
66 |
|
|
67 |
#define SCM_GC_WRITABLE_VELTS(x) ((SCM*) SCM_VELTS(x)) |
#define SCM_GC_WRITABLE_VELTS(x) ((SCM*) SCM_VELTS(x)) |
68 |
|
|