summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-28 16:37:40 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-28 16:37:40 +0000
commite51fe79c72be4b40e17fda03ba5dec2a06ae9bea (patch)
tree9f3f72b30dd000fddfc3dfa4524c97d624fcc2cb /libguile/struct.c
parent4e15fee80f0abb1d4b1d8e0a683a810c53164166 (diff)
downloadguile-e51fe79c72be4b40e17fda03ba5dec2a06ae9bea.tar.gz
* Removed SCM_SYMBOL_UCHARS.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index e6e0c5ec6..56de9c5c0 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -566,8 +566,8 @@ SCM_DEFINE (scm_struct_ref, "struct-ref", 2, 0, 0,
SCM layout;
int p;
scm_bits_t n_fields;
- unsigned char * fields_desc;
- unsigned char field_type = 0;
+ char * fields_desc;
+ char field_type = 0;
SCM_VALIDATE_STRUCT (1,handle);
@@ -577,14 +577,14 @@ SCM_DEFINE (scm_struct_ref, "struct-ref", 2, 0, 0,
data = SCM_STRUCT_DATA (handle);
p = SCM_INUM (pos);
- fields_desc = SCM_SYMBOL_UCHARS (layout);
+ fields_desc = SCM_SYMBOL_CHARS (layout);
n_fields = data[scm_struct_i_n_words];
SCM_ASSERT_RANGE(1,pos, p < n_fields);
if (p * 2 < SCM_SYMBOL_LENGTH (layout))
{
- unsigned char ref;
+ char ref;
field_type = fields_desc[p * 2];
ref = fields_desc[p * 2 + 1];
if ((ref != 'r') && (ref != 'w'))
@@ -644,8 +644,8 @@ SCM_DEFINE (scm_struct_set_x, "struct-set!", 3, 0, 0,
SCM layout;
int p;
int n_fields;
- unsigned char * fields_desc;
- unsigned char field_type = 0;
+ char * fields_desc;
+ char field_type = 0;
SCM_VALIDATE_STRUCT (1,handle);
SCM_VALIDATE_INUM (2,pos);
@@ -654,14 +654,14 @@ SCM_DEFINE (scm_struct_set_x, "struct-set!", 3, 0, 0,
data = SCM_STRUCT_DATA (handle);
p = SCM_INUM (pos);
- fields_desc = SCM_SYMBOL_UCHARS (layout);
+ fields_desc = SCM_SYMBOL_CHARS (layout);
n_fields = data[scm_struct_i_n_words];
SCM_ASSERT_RANGE (1,pos, p < n_fields);
if (p * 2 < SCM_SYMBOL_LENGTH (layout))
{
- unsigned char set_x;
+ char set_x;
field_type = fields_desc[p * 2];
set_x = fields_desc [p * 2 + 1];
if (set_x != 'w')