[fix] cactutf.ml: cons function : if negative character, consider it …

…character 0
alokmenghrajani · Jan 13, 2012 · 70d9436 · 70d9436
1 parent 973304b
commit 70d9436
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/libbase/cactutf.ml b/libbase/cactutf.ml
@@ -1,5 +1,5 @@
 (*
-    Copyright © 2011 MLstate
+    Copyright © 2011, 2012 MLstate
 
     This file is part of OPA.
 
@@ -349,6 +349,7 @@ let csize n =
 *)
 (*##register cons : int -> string*)
 let cons c =
+  let c = if c < 0 then 0 else c in
   let s = csize c in
   let str = String.create s in
   if (s = 1) then
@@ -369,7 +370,6 @@ let cons c =
     str.[2] <- char_of_int(n3 + 128);
     str
   else
-
     let n1 = c / 262144 in
     let n2 = (c - (n1 * 262144)) / 4096 in
     let n3 = (c - (n1 * 262144) - (n2 * 4096)) / 64 in