Merge commit '9b0975f1dc41ddd10d81fb5b0965b9e9a54ef37a'

[bpt/guile.git] / libguile / foreign.c

diff --git a/libguile/foreign.c b/libguile/foreign.c
index a734f2d..445ce02 100644 (file)
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2010, 2011  Free Software Foundation, Inc.
+/* Copyright (C) 2010, 2011, 2012  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
@@ -266,7 +266,8 @@ SCM_DEFINE (scm_pointer_to_bytevector, "pointer->bytevector", 2, 2, 0,
 
   blen = scm_to_size_t (len);
 
-  ret = scm_c_take_typed_bytevector (ptr + boffset, blen, btype, pointer);
+  ret = scm_c_take_typed_bytevector ((signed char *) ptr + boffset,
+                                    blen, btype, pointer);
 
   return ret;
 }
@@ -280,7 +281,7 @@ SCM_DEFINE (scm_bytevector_to_pointer, "bytevector->pointer", 1, 1, 0,
 #define FUNC_NAME s_scm_bytevector_to_pointer
 {
   SCM ret;
-  scm_t_int8 *ptr;
+  signed char *ptr;
   size_t boffset;
 
   SCM_VALIDATE_BYTEVECTOR (1, bv);