Bläddra i källkod

[hxb] naive resolution of KExpr

Rudy Ges 2 år sedan
förälder
incheckning
9373226519

+ 3 - 0
src/compiler/hxb/hxbReader.ml

@@ -602,6 +602,9 @@ class hxb_reader
 		| 7 ->
 			let k = self#read_uleb128 in
 			(DynArray.get local_type_parameters k).ttp_type
+		| 8 ->
+			let e = self#read_expr in
+			TInst({null_class with cl_kind = KExpr e}, [])
 		| 10 ->
 			TInst(self#read_class_ref,[])
 		| 11 ->

+ 3 - 0
src/compiler/hxb/hxbWriter.ml

@@ -351,6 +351,9 @@ class ['a] hxb_writer
 			end
 		| TInst({cl_kind = KTypeParameter _} as c,[]) ->
 			self#write_type_parameter_ref c
+		| TInst({cl_kind = KExpr e},[]) ->
+			chunk#write_byte 8;
+			self#write_expr e;
 		| TInst(c,[]) ->
 			chunk#write_byte 10;
 			self#write_class_ref c;

+ 0 - 0
tests/unit/src/unit/issues/Issue4286.hx.disabled → tests/unit/src/unit/issues/Issue4286.hx


+ 0 - 0
tests/unit/src/unit/issues/Issue6948.hx.disabled → tests/unit/src/unit/issues/Issue6948.hx


+ 0 - 0
tests/unit/src/unit/issues/Issue9560.hx.disabled → tests/unit/src/unit/issues/Issue9560.hx