fix for OCaml 4.06.0 (-safe-string is the default)

cil-project · Nov 28, 2017 · b4db151 · b4db151
1 parent 936b041
commit b4db151
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/formatlex.mll b/src/formatlex.mll
@@ -145,11 +145,11 @@ let scan_oct_escape str =
  * We convert L"Hi" to "H\000i\000" *)
 let wbtowc wstr =
   let len = String.length wstr in 
-  let dest = String.make (len * 2) '\000' in 
+  let dest = Bytes.make (len * 2) '\000' in 
   for i = 0 to len-1 do 
-    dest.[i*2] <- wstr.[i] ;
+    Bytes.set dest (i*2) (String.get wstr i)
   done ;
-  dest
+  Bytes.to_string dest
 
 (* This function converst the "Hi" in L"Hi" to { L'H', L'i', L'\0' } *)
 let wstr_to_warray wstr =