@@ -37,8 +37,7 @@ type tag_info = Lam_tag_info.t =
37
37
| Blk_variant of string
38
38
| Blk_record of string array
39
39
| Blk_module of string list option
40
- | Blk_exception
41
- | Blk_extension
40
+ | Blk_extension_slot
42
41
| Blk_na
43
42
44
43
type mutable_flag = Asttypes .mutable_flag
@@ -1655,12 +1654,9 @@ let lam_prim ~primitive:( p : Lambda.primitive) ~args loc : t =
1655
1654
| Blk_module s ->
1656
1655
let info = Blk_module s in
1657
1656
prim ~primitive: (Pmakeblock (tag,info,mutable_flag)) ~args loc
1658
- | Blk_exception ->
1659
- let info = Blk_exception in
1657
+ | Blk_extension_slot ->
1658
+ let info = Blk_extension_slot in
1660
1659
prim ~primitive: (Pmakeblock (tag,info,mutable_flag)) ~args loc
1661
- | Blk_extension ->
1662
- let info = Blk_extension in
1663
- prim ~primitive: (Pmakeblock (tag,info,mutable_flag)) ~args loc
1664
1660
| Blk_na ->
1665
1661
let info = Blk_na in
1666
1662
prim ~primitive: (Pmakeblock (tag,info,mutable_flag)) ~args loc
@@ -1900,7 +1896,7 @@ let convert exports lam : _ * _ =
1900
1896
*)
1901
1897
begin match prim_name , args with
1902
1898
| " caml_set_oo_id" ,
1903
- [ Lprim (Pmakeblock (tag,( Blk_exception | Blk_extension ) , _),
1899
+ [ Lprim (Pmakeblock (tag,Blk_extension_slot , _),
1904
1900
Lconst (Const_base (Const_string (name,_))) :: _,
1905
1901
loc
1906
1902
)]
@@ -2083,11 +2079,8 @@ let convert exports lam : _ * _ =
2083
2079
| Blk_module s ->
2084
2080
let t = Blk_module s in
2085
2081
Const_block (i,t, Ext_list. map convert_constant xs)
2086
- | Blk_exception ->
2087
- let t = Blk_exception in
2088
- Const_block (i,t, Ext_list. map convert_constant xs)
2089
- | Blk_extension ->
2090
- let t = Blk_extension in
2082
+ | Blk_extension_slot ->
2083
+ let t = Blk_extension_slot in
2091
2084
Const_block (i,t, Ext_list. map convert_constant xs)
2092
2085
| Blk_na ->
2093
2086
let t = Blk_na in
0 commit comments