@@ -11,7 +11,7 @@ let%test_unit "Add bounds" =
1111 let st = add_ub st (VarId. make_id " c" ) Top in
1212 let st = add_lb st (VarId. make_id " c" ) Bottom in
1313 let st = add_lb st (VarId. make_id " d" ) @@ TypeVar (VarId. make_id " e" ) in
14- let st = add_ub st (VarId. make_id " d" ) @@ CType C_Bool in
14+ let st = add_ub st (VarId. make_id " d" ) @@ BinCamlType BinCaml_Bool in
1515
1616 let ls =
1717 [
@@ -20,7 +20,7 @@ let%test_unit "Add bounds" =
2020 ( VarId. make_id " d" ,
2121 {
2222 lb = TySet. singleton @@ TypeVar (VarId. make_id " e" );
23- ub = TySet. singleton @@ CType C_Bool ;
23+ ub = TySet. singleton @@ BinCamlType BinCaml_Bool ;
2424 } );
2525 ]
2626 in
@@ -89,17 +89,17 @@ proc @main_4196260 () -> ()
8989 [
9090 ( VarId. make_id " $XF" ,
9191 {
92- lb = TySet. of_list [ CType C_Bool ; CType ( C_BV 1 ) ];
92+ lb = TySet. of_list [ BinCamlType BinCaml_Bool ; BinCamlType ( BinCaml_BV 1 ) ];
9393 ub = TySet. empty;
9494 } );
9595 ( VarId. make_id " $YF" ,
9696 {
97- lb = TySet. of_list [ CType C_Bool ; CType ( C_BV 1 ) ];
97+ lb = TySet. of_list [ BinCamlType BinCaml_Bool ; BinCamlType ( BinCaml_BV 1 ) ];
9898 ub = TySet. singleton @@ TypeVar (VarId. make_id " $XF" );
9999 } );
100100 ( VarId. make_id " $ZF" ,
101101 {
102- lb = TySet. of_list [ CType C_Bool ; CType ( C_BV 1 ) ];
102+ lb = TySet. of_list [ BinCamlType BinCaml_Bool ; BinCamlType ( BinCaml_BV 1 ) ];
103103 ub = TySet. singleton @@ TypeVar (VarId. make_id " $YF" );
104104 } );
105105 ]
@@ -158,7 +158,7 @@ let%test_unit "BinSub type ADT" =
158158 let f = TypeVar (VarId. make_id " f" ) in
159159 let t1 = TypeVar (VarId. make_id " t1" ) in
160160 let t2 = TypeVar (VarId. make_id " t2" ) in
161- let int32 = CType ( C_BV 32 ) in
161+ let int32 = BinCamlType ( BinCaml_BV 32 ) in
162162
163163 let fields1 =
164164 [ { offset = Z. of_int 4 ; size = 4 ; ty = Sect (b, Sect (t1, alpha)) } ]
0 commit comments