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

[cs] set String equality to use structural equality. Fixed Issue #873

Caue Waneck 13 жил өмнө
parent
commit
7275fec9a6
1 өөрчлөгдсөн 2 нэмэгдсэн , 0 устгасан
  1. 2 0
      gencs.ml

+ 2 - 0
gencs.ml

@@ -1496,6 +1496,8 @@ let configure gen =
         let is_ref = if is_basic then false else match follow e1.etype, follow e2.etype with
         let is_ref = if is_basic then false else match follow e1.etype, follow e2.etype with
           | TDynamic _, _
           | TDynamic _, _
           | _, TDynamic _
           | _, TDynamic _
+          | TInst( { cl_path = ([], "String") }, [] ), _
+          | _, TInst( { cl_path = ([], "String") }, [] )
           | TInst( { cl_kind = KTypeParameter }, [] ), _
           | TInst( { cl_kind = KTypeParameter }, [] ), _
           | _, TInst( { cl_kind = KTypeParameter }, [] ) -> false
           | _, TInst( { cl_kind = KTypeParameter }, [] ) -> false
           | _, _ -> true
           | _, _ -> true