/[guile]/guile/guile-core/libguile/vectors.h
ViewVC logotype

Diff of /guile/guile-core/libguile/vectors.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC revision 1.40 by mvo, Sun Sep 1 16:29:06 2002 UTC
# Line 3  Line 3 
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
# Line 61  Line 61 
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    

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26