fixed hl case convert

src/generators/genhl.ml

@@ -5058,7 +5058,7 @@ let interp code =
 							else c
 						in
 						utf16_add buf c
-					) (String.sub s (int pos) (int len));
+					) (String.sub s (int pos) ((int len) lsl 1));
 					utf16_add buf 0;
 					VBytes (Buffer.contents buf)
 				| _ -> assert false)
@@ -5072,7 +5072,7 @@ let interp code =
 							else c
 						in
 						utf16_add buf c
-					) (String.sub s (int pos) (int len));
+					) (String.sub s (int pos) ((int len) lsl 1));
 					utf16_add buf 0;
 					VBytes (Buffer.contents buf)
 				| _ -> assert false)

std/hl/_std/String.hx

@@ -31,11 +31,11 @@ class String {
 	}
 
 	public function toUpperCase() : String {
-		return __alloc__(@:privateAccess bytes.ucs2Upper(0,length<<1), length);
+		return __alloc__(@:privateAccess bytes.ucs2Upper(0,length), length);
 	}
 
 	public function toLowerCase() : String {
-		return __alloc__(@:privateAccess bytes.ucs2Lower(0,length<<1), length);
+		return __alloc__(@:privateAccess bytes.ucs2Lower(0,length), length);
 	}
 
 	public function charAt(index : Int) : String {