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

[cs] UnaryNegation is -, not !

Cauê Waneck 11 жил өмнө
parent
commit
a979e34f1f
1 өөрчлөгдсөн 2 нэмэгдсэн , 2 устгасан
  1. 2 2
      gencs.ml

+ 2 - 2
gencs.ml

@@ -91,8 +91,8 @@ let cs_binops =
 let cs_unops =
 	[Ast.Decrement, "op_Decrement";
 	Ast.Increment, "op_Increment";
-	Ast.Not, "op_UnaryNegation";
-	Ast.Neg, "op_UnaryMinus";
+	Ast.Neg, "op_UnaryNegation";
+	Ast.Not, "op_LogicalNot";
 	Ast.NegBits, "op_OnesComplement"]
 
 let binops_names = List.fold_left (fun acc (op,n) -> PMap.add n op acc) PMap.empty cs_binops