Merge pull request yallop#563 from mseri/string-len

CArray: add the null terminator in of_string
emillon · Apr 6, 2018 · a5aacb5 · a5aacb5
2 parents db21a8c + 26d49f8
commit a5aacb5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/ctypes/ctypes_memory.ml b/src/ctypes/ctypes_memory.ml
@@ -215,8 +215,10 @@ struct
   let element_type { astart } = reference_type astart
 
   let of_string string =
-    let arr = make char (String.length string) in
+    let len = String.length string in
+    let arr = make char (len + 1) in
     String.iteri (set arr) string;
+    set arr len '\x00';
     arr
 
   let of_list typ list =