Pārlūkot izejas kodu

fixed : enum __name__ => __ename__

Nicolas Cannasse 19 gadi atpakaļ
vecāks
revīzija
d5f02b1d52
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. 1 1
      genneko.ml

+ 1 - 1
genneko.ml

@@ -548,7 +548,7 @@ let gen_name acc t =
 		let p = pos e.e_pos in
 		let name = fst e.e_path @ [snd e.e_path] in
 		let arr = call p (field p (ident p "Array") "new1") [array p (List.map (fun n -> gen_constant p (TString n)) name); int p (List.length name)] in
-		(EBinop ("=",field p (gen_type_path p e.e_path) "__name__",arr),p) :: acc		
+		(EBinop ("=",field p (gen_type_path p e.e_path) "__ename__",arr),p) :: acc
 	| TClassDecl c -> 
 		if c.cl_extern then
 			acc