[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile chars.h
|
From: |
Thien-Thi Nguyen |
|
Subject: |
guile/guile-core/libguile chars.h |
|
Date: |
Tue, 25 Sep 2001 23:16:27 -0400 |
CVSROOT: /cvs
Module name: guile
Branch: branch_release-1-6
Changes by: Thien-Thi Nguyen <address@hidden> 01/09/25 23:16:27
Modified files:
guile-core/libguile: chars.h
Log message:
(SCM_MAKE_CHAR): Use `scm_t_bits' instead of `intptr_t'.
Thanks to Golubev I. N.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/chars.h.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.11.4.2&tr2=1.11.4.3&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/chars.h
diff -u guile/guile-core/libguile/chars.h:1.14
guile/guile-core/libguile/chars.h:1.15
--- guile/guile-core/libguile/chars.h:1.14 Fri Sep 21 13:56:39 2001
+++ guile/guile-core/libguile/chars.h Tue Sep 25 23:14:15 2001
@@ -53,7 +53,7 @@
*/
#define SCM_CHARP(x) (SCM_ITAG8(x) == scm_tc8_char)
#define SCM_CHAR(x) ((unsigned int)SCM_ITAG8_DATA(x))
-#define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8((intptr_t) x, scm_tc8_char)
+#define SCM_MAKE_CHAR(x) SCM_MAKE_ITAG8((scm_t_bits) x, scm_tc8_char)