Commits

Anonymous committed 3822cc7

for 4.02

  • Participants
  • Parent commits 66de18f
  • Branches for_4.02

Comments (0)

Files changed (2)

 
   let contents t = 
     let len = length t in
-    let buf = String.create len in
+    let buf = Bytes.create len in
     assert (List.fold_left (fun pos -> function
       | String s -> 
 	  let len = String.length s in
 	  let pos = pos - len in
-	  String.unsafe_blit s 0 buf pos len;
+	  Bytes.unsafe_blit s 0 buf pos len;
 	  pos
       | Char c ->
 	  let pos = pos - 1 in

File pa/xlexer.mll

     | _                                         { store_parse (antiquot name) c }
 
   {
-    
   let lexing_store s buff max =
     let rec self n s =
       if n >= max then n