2
0
Эх сурвалжийг харах

ignore type parameters when generating class information

Simon Krajewski 12 жил өмнө
parent
commit
27515dfac5
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      genneko.ml

+ 1 - 1
genneko.ml

@@ -708,7 +708,7 @@ let gen_name ctx acc t =
 		in
 		in
 		setname :: setconstrs :: meta @ acc
 		setname :: setconstrs :: meta @ acc
 	| TClassDecl c ->
 	| TClassDecl c ->
-		if c.cl_extern then
+		if c.cl_extern || (match c.cl_kind with KTypeParameter _ -> true | _ -> false) then
 			acc
 			acc
 		else
 		else
 			let p = pos ctx c.cl_pos in
 			let p = pos ctx c.cl_pos in