summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-07-15 23:12:43 +0200
committerLudovic Courtès <ludo@gnu.org>2009-07-15 23:12:43 +0200
commitb67cb2864e0de124bd7c4f9b0fda442329e09f3f (patch)
treef1e60fced1de05c8fa4232d0a07b5534f47abac6
parente1203ea00f033954e385a0f2f6aa8b886778dab1 (diff)
downloadguile-b67cb2864e0de124bd7c4f9b0fda442329e09f3f.tar.gz
Const-qualify buffers passed to `scm_c_make_objcode_slice ()'.
* libguile/objcodes.c (scm_c_make_objcode_slice): Add `const' qualifier for PTR and DATA. * libguile/objcodes.h: Update accordingly.
-rw-r--r--libguile/objcodes.c4
-rw-r--r--libguile/objcodes.h4
2 files changed, 4 insertions, 4 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index 038c4c7a1..69e464c3b 100644
--- a/libguile/objcodes.c
+++ b/libguile/objcodes.c
@@ -120,10 +120,10 @@ make_objcode_by_mmap (int fd)
#undef FUNC_NAME
SCM
-scm_c_make_objcode_slice (SCM parent, scm_t_uint8 *ptr)
+scm_c_make_objcode_slice (SCM parent, const scm_t_uint8 *ptr)
#define FUNC_NAME "make-objcode-slice"
{
- struct scm_objcode *data, *parent_data;
+ const struct scm_objcode *data, *parent_data;
SCM ret;
SCM_VALIDATE_OBJCODE (1, parent);
diff --git a/libguile/objcodes.h b/libguile/objcodes.h
index 21e4add89..e9b1cdbff 100644
--- a/libguile/objcodes.h
+++ b/libguile/objcodes.h
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001 Free Software Foundation, Inc.
+/* Copyright (C) 2001, 2009 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -56,7 +56,7 @@ SCM_API scm_t_bits scm_tc16_objcode;
#define SCM_OBJCODE_IS_U8VECTOR(x) (SCM_SMOB_FLAGS (x) & SCM_F_OBJCODE_IS_U8VECTOR)
#define SCM_OBJCODE_IS_SLICE(x) (SCM_SMOB_FLAGS (x) & SCM_F_OBJCODE_IS_SLICE)
-SCM scm_c_make_objcode_slice (SCM parent, scm_t_uint8 *ptr);
+SCM scm_c_make_objcode_slice (SCM parent, const scm_t_uint8 *ptr);
SCM_API SCM scm_load_objcode (SCM file);
SCM_API SCM scm_objcode_p (SCM obj);
SCM_API SCM scm_objcode_meta (SCM objcode);