* disp-bytevector-data changed to 8.

bin/ikarus-data.h

@@ -136,7 +136,7 @@
 
 #define bytevector_tag 2
 #define disp_bytevector_length 0
-#define disp_bytevector_data   4
+#define disp_bytevector_data   8
 #define off_bytevector_length (disp_bytevector_length - bytevector_tag)
 #define off_bytevector_data (disp_bytevector_data - bytevector_tag)
 

src/ikarus.compiler.ss

@@ -1759,7 +1759,7 @@
   (define bytevector-mask 7)
   (define bytevector-tag 2)
   (define disp-bytevector-length 0)
-  (define disp-bytevector-data 4)
+  (define disp-bytevector-data 8)
 
   (define ptag-mask 7)
   (define symbol-ptag 5)

src/todo-r6rs.ss

@@ -584,7 +584,7 @@
     [i/o-write-error?                           D ip is fi]
     [lookahead-char                             D ip]
     [lookahead-u8                               D ip]
-    [make-bytevector                            D bv]
+    [make-bytevector                            C bv]
     [make-custom-binary-input-port              D ip]
     [make-custom-binary-input/output-port       D ip]
     [make-custom-binary-output-port             D ip]