Nicolas Cannasse 13 years ago
parent
commit
3beb5fa4d4
1 changed files with 2 additions and 1 deletions
  1. 2 1
      interp.ml

+ 2 - 1
interp.ml

@@ -2424,6 +2424,7 @@ let rec eval ctx (e,p) =
 		| Null -> (fun() -> VNull)
 		| Null -> (fun() -> VNull)
 		| This -> (fun() -> ctx.vthis)
 		| This -> (fun() -> ctx.vthis)
 		| Int i -> (fun() -> VInt i)
 		| Int i -> (fun() -> VInt i)
+		| Int32 i -> (fun() -> assert false)
 		| Float f ->
 		| Float f ->
 			let f = float_of_string f in
 			let f = float_of_string f in
 			(fun() -> VFloat f)
 			(fun() -> VFloat f)
@@ -3210,7 +3211,7 @@ let create com api =
 	] in
 	] in
 	let ctx = {
 	let ctx = {
 		com = com;
 		com = com;
-		gen = Genneko.new_context com true;
+		gen = Genneko.new_context com 2 true;
 		types = Hashtbl.create 0;
 		types = Hashtbl.create 0;
 		error = false;
 		error = false;
 		error_proto = { ofields = [||]; oproto = None };
 		error_proto = { ofields = [||]; oproto = None };