Explorar el Código

bugfix : use "Dynamic" for no return type

Nicolas Cannasse hace 17 años
padre
commit
e22a098218
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      genas3.ml

+ 1 - 1
genas3.ml

@@ -1084,7 +1084,7 @@ let has_getset ml f m =
 let gen_method ctx ch name mt =
 	let m = As3code.iget ctx.as3_method_types (As3parse.no_nz mt) in
 	let ret = (match m.mt3_ret with
-		| None -> "Void"
+		| None -> if name = "new" then "Void" else "Dynamic"
 		| Some t -> s_type_path (type_path ctx t)
 	) in
 	let p = ref 0 in