diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-07-15 23:12:43 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-07-15 23:12:43 +0200 |
commit | b67cb2864e0de124bd7c4f9b0fda442329e09f3f (patch) | |
tree | f1e60fced1de05c8fa4232d0a07b5534f47abac6 /libguile/objcodes.c | |
parent | e1203ea00f033954e385a0f2f6aa8b886778dab1 (diff) | |
download | guile-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.
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r-- | libguile/objcodes.c | 4 |
1 files changed, 2 insertions, 2 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); |