Fix: Don't cast SCM values to pointer. Use SCM2PTR instead.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 9fa51d9..e7ca4f1 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2000-03-21  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * vectors.h (SCM_VELTS, SCM_VELTS_AS_STACKITEMS):  Don't cast SCM
+       values to pointers.  Use SCM2PTR instead.
+
 2000-03-21  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * async.c (scm_set_tick_rate, scm_set_switch_rate):  Don't unpack

diff --git a/libguile/vectors.h b/libguile/vectors.h
index 6245fb0..da5bf30 100644 (file)
--- a/libguile/vectors.h
+++ b/libguile/vectors.h
@@ -51,10 +51,10 @@
 
 \f
 
-#define SCM_VECTORP(x) (SCM_NIMP(x) && (SCM_TYP7S(x)==scm_tc7_vector))
-#define SCM_NVECTORP(x) (!SCM_VECTORP(x))
-#define SCM_VELTS(x) ((SCM *)SCM_CDR(x))
-#define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *)SCM_CDR(x))
+#define SCM_VECTORP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_vector))
+#define SCM_NVECTORP(x) (!SCM_VECTORP (x))
+#define SCM_VELTS(x) ((SCM *) SCM2PTR (SCM_CDR (x)))
+#define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM2PTR (SCM_CDR (x)))
 #define SCM_SETVELTS SCM_SETCDR