Lines Matching refs:GenericValue

42   let ptrgv = GenericValue.of_pointer tu in
43   assert (tu = GenericValue.as_pointer ptrgv);
45   let fpgv = GenericValue.of_float double_type 2. in
46   assert (2. = GenericValue.as_float double_type fpgv);
48   let intgv = GenericValue.of_int i32_type 3 in
49   assert (3  = GenericValue.as_int intgv);
51   let i32gv = GenericValue.of_int32 i32_type (Int32.of_int 4) in
52   assert ((Int32.of_int 4) = GenericValue.as_int32 i32gv);
54   let nigv = GenericValue.of_nativeint i32_type (Nativeint.of_int 5) in
55   assert ((Nativeint.of_int 5) = GenericValue.as_nativeint nigv);
57   let i64gv = GenericValue.of_int64 i64_type (Int64.of_int 6) in
58   assert ((Int64.of_int 6) = GenericValue.as_int64 i64gv)
92                                          [| GenericValue.of_int i32_type 2;
93                                             GenericValue.of_int i32_type 2 |]
95   if 4 != GenericValue.as_int res then bomb "plus did not work";