Skip to content

Commit 82ef29c

Browse files
bobzhangbobzhang
committed
remove Pstring_set_{16,32,64} which does not make sense
1 parent b5691e1 commit 82ef29c

File tree

11 files changed

+79
-62
lines changed

11 files changed

+79
-62
lines changed

‎.vscode/tasks.json‎

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -84,6 +84,23 @@
8484
"autoDetect",
8585
"owner": "globalUnused"
8686
}
87+
},
88+
{
89+
"label": "check unused refmt",
90+
"command" : "node",
91+
"options": {
92+
"cwd": "${workspaceRoot}/lib"
93+
},
94+
"args": [
95+
"../scripts/checkUnused.js" ,
96+
"refmt_main3"
97+
],
98+
"problemMatcher" :{
99+
"base": "$ocamlc",
100+
"fileLocation" :
101+
"autoDetect",
102+
"owner": "globalUnused"
103+
}
87104
}
88105
]
89106
}

‎jscomp/core/lam_analysis.ml‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -194,9 +194,9 @@ let rec no_side_effects (lam : Lam.t) : bool =
194194
| Pstring_load_16 _
195195
| Pstring_load_32 _
196196
| Pstring_load_64 _
197-
| Pstring_set_16 _
197+
(* | Pstring_set_16 _
198198
| Pstring_set_32 _
199-
| Pstring_set_64 _
199+
| Pstring_set_64 _ *)
200200
(* load/set 16,32,64 bits from a
201201
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
202202
| Pbigstring_load_16 _

‎jscomp/core/lam_compile_primitive.ml‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -700,9 +700,9 @@ let translate loc
700700
It is inlined, this should not appear here *)
701701
| Pbittest
702702

703-
| Pstring_set_16 _
703+
(* | Pstring_set_16 _
704704
| Pstring_set_32 _
705-
| Pstring_set_64 _
705+
| Pstring_set_64 _ *)
706706
| Pbigstring_load_16 _
707707
| Pbigstring_load_32 _
708708
| Pbigstring_load_64 _

‎jscomp/core/lam_convert.ml‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -367,9 +367,9 @@ let lam_prim ~primitive:( p : Lambda.primitive) ~args loc : Lam.t =
367367
| Pstring_load_16 x -> prim ~primitive:(Pstring_load_16 x) ~args loc
368368
| Pstring_load_32 x -> prim ~primitive:(Pstring_load_32 x) ~args loc
369369
| Pstring_load_64 x -> prim ~primitive:(Pstring_load_64 x) ~args loc
370-
| Pstring_set_16 x -> prim ~primitive:(Pstring_set_16 x) ~args loc
371-
| Pstring_set_32 x -> prim ~primitive:(Pstring_set_32 x) ~args loc
372-
| Pstring_set_64 x -> prim ~primitive:(Pstring_set_64 x) ~args loc
370+
| Pstring_set_16 _
371+
| Pstring_set_32 _
372+
| Pstring_set_64 _ -> assert false
373373
| Pbigstring_load_16 x -> prim ~primitive:(Pbigstring_load_16 x) ~args loc
374374
| Pbigstring_load_32 x -> prim ~primitive:(Pbigstring_load_32 x) ~args loc
375375
| Pbigstring_load_64 x -> prim ~primitive:(Pbigstring_load_64 x) ~args loc

‎jscomp/core/lam_primitive.ml‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -119,9 +119,9 @@ type t =
119119
| Pstring_load_16 of bool
120120
| Pstring_load_32 of bool
121121
| Pstring_load_64 of bool
122-
| Pstring_set_16 of bool
122+
(* | Pstring_set_16 of bool
123123
| Pstring_set_32 of bool
124-
| Pstring_set_64 of bool
124+
| Pstring_set_64 of bool *)
125125
(* load/set 16,32,64 bits from a
126126
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
127127
| Pbigstring_load_16 of bool
@@ -318,9 +318,9 @@ let eq_primitive_approx ( lhs : t) (rhs : t) =
318318
| Pstring_load_16 str -> (match rhs with Pstring_load_16 str1 -> str = str1 | _ -> false )
319319
| Pstring_load_32 b -> (match rhs with Pstring_load_32 b1 -> b = b1 | _ -> false )
320320
| Pstring_load_64 b -> (match rhs with Pstring_load_64 b1 -> b = b1 | _ -> false )
321-
| Pstring_set_16 b -> (match rhs with Pstring_set_16 b1 -> b = b1 | _ -> false )
321+
(* | Pstring_set_16 b -> (match rhs with Pstring_set_16 b1 -> b = b1 | _ -> false )
322322
| Pstring_set_32 b -> (match rhs with Pstring_set_32 b1 -> b = b1 | _ -> false )
323-
| Pstring_set_64 b -> (match rhs with Pstring_set_64 b1 -> b = b1 | _ -> false )
323+
| Pstring_set_64 b -> (match rhs with Pstring_set_64 b1 -> b = b1 | _ -> false ) *)
324324
| Pbigstring_load_16 b -> (match rhs with Pbigstring_load_16 b1 -> b = b1 | _ -> false )
325325
| Pbigstring_load_32 b -> (match rhs with Pbigstring_load_32 b1 -> b = b1 | _ -> false )
326326
| Pbigstring_load_64 b -> (match rhs with Pbigstring_load_64 b1 -> b = b1 | _ -> false )

‎jscomp/core/lam_primitive.mli‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -114,9 +114,9 @@ type t =
114114
| Pstring_load_16 of bool
115115
| Pstring_load_32 of bool
116116
| Pstring_load_64 of bool
117-
| Pstring_set_16 of bool
117+
(* | Pstring_set_16 of bool
118118
| Pstring_set_32 of bool
119-
| Pstring_set_64 of bool
119+
| Pstring_set_64 of bool *)
120120
(* load/set 16,32,64 bits from a
121121
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
122122
| Pbigstring_load_16 of bool

‎jscomp/core/lam_print.ml‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -277,15 +277,15 @@ let primitive ppf (prim : Lam_primitive.t) = match prim with
277277
| Pstring_load_64(unsafe) ->
278278
if unsafe then fprintf ppf "string.unsafe_get64"
279279
else fprintf ppf "string.get64"
280-
| Pstring_set_16(unsafe) ->
280+
(* | Pstring_set_16(unsafe) ->
281281
if unsafe then fprintf ppf "string.unsafe_set16"
282282
else fprintf ppf "string.set16"
283283
| Pstring_set_32(unsafe) ->
284284
if unsafe then fprintf ppf "string.unsafe_set32"
285285
else fprintf ppf "string.set32"
286286
| Pstring_set_64(unsafe) ->
287287
if unsafe then fprintf ppf "string.unsafe_set64"
288-
else fprintf ppf "string.set64"
288+
else fprintf ppf "string.set64" *)
289289
| Pbigstring_load_16(unsafe) ->
290290
if unsafe then fprintf ppf "bigarray.array1.unsafe_get16"
291291
else fprintf ppf "bigarray.array1.get16"

‎lib/4.06.1/unstable/js_compiler.ml‎

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -380760,9 +380760,9 @@ type t =
380760380760
| Pstring_load_16 of bool
380761380761
| Pstring_load_32 of bool
380762380762
| Pstring_load_64 of bool
380763-
| Pstring_set_16 of bool
380763+
(* | Pstring_set_16 of bool
380764380764
| Pstring_set_32 of bool
380765-
| Pstring_set_64 of bool
380765+
| Pstring_set_64 of bool *)
380766380766
(* load/set 16,32,64 bits from a
380767380767
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
380768380768
| Pbigstring_load_16 of bool
@@ -380946,9 +380946,9 @@ type t =
380946380946
| Pstring_load_16 of bool
380947380947
| Pstring_load_32 of bool
380948380948
| Pstring_load_64 of bool
380949-
| Pstring_set_16 of bool
380949+
(* | Pstring_set_16 of bool
380950380950
| Pstring_set_32 of bool
380951-
| Pstring_set_64 of bool
380951+
| Pstring_set_64 of bool *)
380952380952
(* load/set 16,32,64 bits from a
380953380953
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
380954380954
| Pbigstring_load_16 of bool
@@ -381145,9 +381145,9 @@ let eq_primitive_approx ( lhs : t) (rhs : t) =
381145381145
| Pstring_load_16 str -> (match rhs with Pstring_load_16 str1 -> str = str1 | _ -> false )
381146381146
| Pstring_load_32 b -> (match rhs with Pstring_load_32 b1 -> b = b1 | _ -> false )
381147381147
| Pstring_load_64 b -> (match rhs with Pstring_load_64 b1 -> b = b1 | _ -> false )
381148-
| Pstring_set_16 b -> (match rhs with Pstring_set_16 b1 -> b = b1 | _ -> false )
381148+
(* | Pstring_set_16 b -> (match rhs with Pstring_set_16 b1 -> b = b1 | _ -> false )
381149381149
| Pstring_set_32 b -> (match rhs with Pstring_set_32 b1 -> b = b1 | _ -> false )
381150-
| Pstring_set_64 b -> (match rhs with Pstring_set_64 b1 -> b = b1 | _ -> false )
381150+
| Pstring_set_64 b -> (match rhs with Pstring_set_64 b1 -> b = b1 | _ -> false ) *)
381151381151
| Pbigstring_load_16 b -> (match rhs with Pbigstring_load_16 b1 -> b = b1 | _ -> false )
381152381152
| Pbigstring_load_32 b -> (match rhs with Pbigstring_load_32 b1 -> b = b1 | _ -> false )
381153381153
| Pbigstring_load_64 b -> (match rhs with Pbigstring_load_64 b1 -> b = b1 | _ -> false )
@@ -393453,9 +393453,9 @@ let rec no_side_effects (lam : Lam.t) : bool =
393453393453
| Pstring_load_16 _
393454393454
| Pstring_load_32 _
393455393455
| Pstring_load_64 _
393456-
| Pstring_set_16 _
393456+
(* | Pstring_set_16 _
393457393457
| Pstring_set_32 _
393458-
| Pstring_set_64 _
393458+
| Pstring_set_64 _ *)
393459393459
(* load/set 16,32,64 bits from a
393460393460
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
393461393461
| Pbigstring_load_16 _
@@ -394452,15 +394452,15 @@ let primitive ppf (prim : Lam_primitive.t) = match prim with
394452394452
| Pstring_load_64(unsafe) ->
394453394453
if unsafe then fprintf ppf "string.unsafe_get64"
394454394454
else fprintf ppf "string.get64"
394455-
| Pstring_set_16(unsafe) ->
394455+
(* | Pstring_set_16(unsafe) ->
394456394456
if unsafe then fprintf ppf "string.unsafe_set16"
394457394457
else fprintf ppf "string.set16"
394458394458
| Pstring_set_32(unsafe) ->
394459394459
if unsafe then fprintf ppf "string.unsafe_set32"
394460394460
else fprintf ppf "string.set32"
394461394461
| Pstring_set_64(unsafe) ->
394462394462
if unsafe then fprintf ppf "string.unsafe_set64"
394463-
else fprintf ppf "string.set64"
394463+
else fprintf ppf "string.set64" *)
394464394464
| Pbigstring_load_16(unsafe) ->
394465394465
if unsafe then fprintf ppf "bigarray.array1.unsafe_get16"
394466394466
else fprintf ppf "bigarray.array1.get16"
@@ -400808,9 +400808,9 @@ let translate loc
400808400808
It is inlined, this should not appear here *)
400809400809
| Pbittest
400810400810

400811-
| Pstring_set_16 _
400811+
(* | Pstring_set_16 _
400812400812
| Pstring_set_32 _
400813-
| Pstring_set_64 _
400813+
| Pstring_set_64 _ *)
400814400814
| Pbigstring_load_16 _
400815400815
| Pbigstring_load_32 _
400816400816
| Pbigstring_load_64 _
@@ -405796,9 +405796,9 @@ let lam_prim ~primitive:( p : Lambda.primitive) ~args loc : Lam.t =
405796405796
| Pstring_load_16 x -> prim ~primitive:(Pstring_load_16 x) ~args loc
405797405797
| Pstring_load_32 x -> prim ~primitive:(Pstring_load_32 x) ~args loc
405798405798
| Pstring_load_64 x -> prim ~primitive:(Pstring_load_64 x) ~args loc
405799-
| Pstring_set_16 x -> prim ~primitive:(Pstring_set_16 x) ~args loc
405800-
| Pstring_set_32 x -> prim ~primitive:(Pstring_set_32 x) ~args loc
405801-
| Pstring_set_64 x -> prim ~primitive:(Pstring_set_64 x) ~args loc
405799+
| Pstring_set_16 _
405800+
| Pstring_set_32 _
405801+
| Pstring_set_64 _ -> assert false
405802405802
| Pbigstring_load_16 x -> prim ~primitive:(Pbigstring_load_16 x) ~args loc
405803405803
| Pbigstring_load_32 x -> prim ~primitive:(Pbigstring_load_32 x) ~args loc
405804405804
| Pbigstring_load_64 x -> prim ~primitive:(Pbigstring_load_64 x) ~args loc

‎lib/4.06.1/unstable/js_refmt_compiler.ml‎

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -380760,9 +380760,9 @@ type t =
380760380760
| Pstring_load_16 of bool
380761380761
| Pstring_load_32 of bool
380762380762
| Pstring_load_64 of bool
380763-
| Pstring_set_16 of bool
380763+
(* | Pstring_set_16 of bool
380764380764
| Pstring_set_32 of bool
380765-
| Pstring_set_64 of bool
380765+
| Pstring_set_64 of bool *)
380766380766
(* load/set 16,32,64 bits from a
380767380767
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
380768380768
| Pbigstring_load_16 of bool
@@ -380946,9 +380946,9 @@ type t =
380946380946
| Pstring_load_16 of bool
380947380947
| Pstring_load_32 of bool
380948380948
| Pstring_load_64 of bool
380949-
| Pstring_set_16 of bool
380949+
(* | Pstring_set_16 of bool
380950380950
| Pstring_set_32 of bool
380951-
| Pstring_set_64 of bool
380951+
| Pstring_set_64 of bool *)
380952380952
(* load/set 16,32,64 bits from a
380953380953
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
380954380954
| Pbigstring_load_16 of bool
@@ -381145,9 +381145,9 @@ let eq_primitive_approx ( lhs : t) (rhs : t) =
381145381145
| Pstring_load_16 str -> (match rhs with Pstring_load_16 str1 -> str = str1 | _ -> false )
381146381146
| Pstring_load_32 b -> (match rhs with Pstring_load_32 b1 -> b = b1 | _ -> false )
381147381147
| Pstring_load_64 b -> (match rhs with Pstring_load_64 b1 -> b = b1 | _ -> false )
381148-
| Pstring_set_16 b -> (match rhs with Pstring_set_16 b1 -> b = b1 | _ -> false )
381148+
(* | Pstring_set_16 b -> (match rhs with Pstring_set_16 b1 -> b = b1 | _ -> false )
381149381149
| Pstring_set_32 b -> (match rhs with Pstring_set_32 b1 -> b = b1 | _ -> false )
381150-
| Pstring_set_64 b -> (match rhs with Pstring_set_64 b1 -> b = b1 | _ -> false )
381150+
| Pstring_set_64 b -> (match rhs with Pstring_set_64 b1 -> b = b1 | _ -> false ) *)
381151381151
| Pbigstring_load_16 b -> (match rhs with Pbigstring_load_16 b1 -> b = b1 | _ -> false )
381152381152
| Pbigstring_load_32 b -> (match rhs with Pbigstring_load_32 b1 -> b = b1 | _ -> false )
381153381153
| Pbigstring_load_64 b -> (match rhs with Pbigstring_load_64 b1 -> b = b1 | _ -> false )
@@ -393453,9 +393453,9 @@ let rec no_side_effects (lam : Lam.t) : bool =
393453393453
| Pstring_load_16 _
393454393454
| Pstring_load_32 _
393455393455
| Pstring_load_64 _
393456-
| Pstring_set_16 _
393456+
(* | Pstring_set_16 _
393457393457
| Pstring_set_32 _
393458-
| Pstring_set_64 _
393458+
| Pstring_set_64 _ *)
393459393459
(* load/set 16,32,64 bits from a
393460393460
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
393461393461
| Pbigstring_load_16 _
@@ -394452,15 +394452,15 @@ let primitive ppf (prim : Lam_primitive.t) = match prim with
394452394452
| Pstring_load_64(unsafe) ->
394453394453
if unsafe then fprintf ppf "string.unsafe_get64"
394454394454
else fprintf ppf "string.get64"
394455-
| Pstring_set_16(unsafe) ->
394455+
(* | Pstring_set_16(unsafe) ->
394456394456
if unsafe then fprintf ppf "string.unsafe_set16"
394457394457
else fprintf ppf "string.set16"
394458394458
| Pstring_set_32(unsafe) ->
394459394459
if unsafe then fprintf ppf "string.unsafe_set32"
394460394460
else fprintf ppf "string.set32"
394461394461
| Pstring_set_64(unsafe) ->
394462394462
if unsafe then fprintf ppf "string.unsafe_set64"
394463-
else fprintf ppf "string.set64"
394463+
else fprintf ppf "string.set64" *)
394464394464
| Pbigstring_load_16(unsafe) ->
394465394465
if unsafe then fprintf ppf "bigarray.array1.unsafe_get16"
394466394466
else fprintf ppf "bigarray.array1.get16"
@@ -400808,9 +400808,9 @@ let translate loc
400808400808
It is inlined, this should not appear here *)
400809400809
| Pbittest
400810400810

400811-
| Pstring_set_16 _
400811+
(* | Pstring_set_16 _
400812400812
| Pstring_set_32 _
400813-
| Pstring_set_64 _
400813+
| Pstring_set_64 _ *)
400814400814
| Pbigstring_load_16 _
400815400815
| Pbigstring_load_32 _
400816400816
| Pbigstring_load_64 _
@@ -405796,9 +405796,9 @@ let lam_prim ~primitive:( p : Lambda.primitive) ~args loc : Lam.t =
405796405796
| Pstring_load_16 x -> prim ~primitive:(Pstring_load_16 x) ~args loc
405797405797
| Pstring_load_32 x -> prim ~primitive:(Pstring_load_32 x) ~args loc
405798405798
| Pstring_load_64 x -> prim ~primitive:(Pstring_load_64 x) ~args loc
405799-
| Pstring_set_16 x -> prim ~primitive:(Pstring_set_16 x) ~args loc
405800-
| Pstring_set_32 x -> prim ~primitive:(Pstring_set_32 x) ~args loc
405801-
| Pstring_set_64 x -> prim ~primitive:(Pstring_set_64 x) ~args loc
405799+
| Pstring_set_16 _
405800+
| Pstring_set_32 _
405801+
| Pstring_set_64 _ -> assert false
405802405802
| Pbigstring_load_16 x -> prim ~primitive:(Pbigstring_load_16 x) ~args loc
405803405803
| Pbigstring_load_32 x -> prim ~primitive:(Pbigstring_load_32 x) ~args loc
405804405804
| Pbigstring_load_64 x -> prim ~primitive:(Pbigstring_load_64 x) ~args loc

‎lib/4.06.1/whole_compiler.ml‎

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -366461,9 +366461,9 @@ type t =
366461366461
| Pstring_load_16 of bool
366462366462
| Pstring_load_32 of bool
366463366463
| Pstring_load_64 of bool
366464-
| Pstring_set_16 of bool
366464+
(* | Pstring_set_16 of bool
366465366465
| Pstring_set_32 of bool
366466-
| Pstring_set_64 of bool
366466+
| Pstring_set_64 of bool *)
366467366467
(* load/set 16,32,64 bits from a
366468366468
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
366469366469
| Pbigstring_load_16 of bool
@@ -366647,9 +366647,9 @@ type t =
366647366647
| Pstring_load_16 of bool
366648366648
| Pstring_load_32 of bool
366649366649
| Pstring_load_64 of bool
366650-
| Pstring_set_16 of bool
366650+
(* | Pstring_set_16 of bool
366651366651
| Pstring_set_32 of bool
366652-
| Pstring_set_64 of bool
366652+
| Pstring_set_64 of bool *)
366653366653
(* load/set 16,32,64 bits from a
366654366654
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
366655366655
| Pbigstring_load_16 of bool
@@ -366846,9 +366846,9 @@ let eq_primitive_approx ( lhs : t) (rhs : t) =
366846366846
| Pstring_load_16 str -> (match rhs with Pstring_load_16 str1 -> str = str1 | _ -> false )
366847366847
| Pstring_load_32 b -> (match rhs with Pstring_load_32 b1 -> b = b1 | _ -> false )
366848366848
| Pstring_load_64 b -> (match rhs with Pstring_load_64 b1 -> b = b1 | _ -> false )
366849-
| Pstring_set_16 b -> (match rhs with Pstring_set_16 b1 -> b = b1 | _ -> false )
366849+
(* | Pstring_set_16 b -> (match rhs with Pstring_set_16 b1 -> b = b1 | _ -> false )
366850366850
| Pstring_set_32 b -> (match rhs with Pstring_set_32 b1 -> b = b1 | _ -> false )
366851-
| Pstring_set_64 b -> (match rhs with Pstring_set_64 b1 -> b = b1 | _ -> false )
366851+
| Pstring_set_64 b -> (match rhs with Pstring_set_64 b1 -> b = b1 | _ -> false ) *)
366852366852
| Pbigstring_load_16 b -> (match rhs with Pbigstring_load_16 b1 -> b = b1 | _ -> false )
366853366853
| Pbigstring_load_32 b -> (match rhs with Pbigstring_load_32 b1 -> b = b1 | _ -> false )
366854366854
| Pbigstring_load_64 b -> (match rhs with Pbigstring_load_64 b1 -> b = b1 | _ -> false )
@@ -387466,9 +387466,9 @@ let rec no_side_effects (lam : Lam.t) : bool =
387466387466
| Pstring_load_16 _
387467387467
| Pstring_load_32 _
387468387468
| Pstring_load_64 _
387469-
| Pstring_set_16 _
387469+
(* | Pstring_set_16 _
387470387470
| Pstring_set_32 _
387471-
| Pstring_set_64 _
387471+
| Pstring_set_64 _ *)
387472387472
(* load/set 16,32,64 bits from a
387473387473
(char, int8_unsigned_elt, c_layout) Bigarray.Array1.t : (unsafe) *)
387474387474
| Pbigstring_load_16 _
@@ -388589,15 +388589,15 @@ let primitive ppf (prim : Lam_primitive.t) = match prim with
388589388589
| Pstring_load_64(unsafe) ->
388590388590
if unsafe then fprintf ppf "string.unsafe_get64"
388591388591
else fprintf ppf "string.get64"
388592-
| Pstring_set_16(unsafe) ->
388592+
(* | Pstring_set_16(unsafe) ->
388593388593
if unsafe then fprintf ppf "string.unsafe_set16"
388594388594
else fprintf ppf "string.set16"
388595388595
| Pstring_set_32(unsafe) ->
388596388596
if unsafe then fprintf ppf "string.unsafe_set32"
388597388597
else fprintf ppf "string.set32"
388598388598
| Pstring_set_64(unsafe) ->
388599388599
if unsafe then fprintf ppf "string.unsafe_set64"
388600-
else fprintf ppf "string.set64"
388600+
else fprintf ppf "string.set64" *)
388601388601
| Pbigstring_load_16(unsafe) ->
388602388602
if unsafe then fprintf ppf "bigarray.array1.unsafe_get16"
388603388603
else fprintf ppf "bigarray.array1.get16"
@@ -394945,9 +394945,9 @@ let translate loc
394945394945
It is inlined, this should not appear here *)
394946394946
| Pbittest
394947394947

394948-
| Pstring_set_16 _
394948+
(* | Pstring_set_16 _
394949394949
| Pstring_set_32 _
394950-
| Pstring_set_64 _
394950+
| Pstring_set_64 _ *)
394951394951
| Pbigstring_load_16 _
394952394952
| Pbigstring_load_32 _
394953394953
| Pbigstring_load_64 _
@@ -401992,9 +401992,9 @@ let lam_prim ~primitive:( p : Lambda.primitive) ~args loc : Lam.t =
401992401992
| Pstring_load_16 x -> prim ~primitive:(Pstring_load_16 x) ~args loc
401993401993
| Pstring_load_32 x -> prim ~primitive:(Pstring_load_32 x) ~args loc
401994401994
| Pstring_load_64 x -> prim ~primitive:(Pstring_load_64 x) ~args loc
401995-
| Pstring_set_16 x -> prim ~primitive:(Pstring_set_16 x) ~args loc
401996-
| Pstring_set_32 x -> prim ~primitive:(Pstring_set_32 x) ~args loc
401997-
| Pstring_set_64 x -> prim ~primitive:(Pstring_set_64 x) ~args loc
401995+
| Pstring_set_16 _
401996+
| Pstring_set_32 _
401997+
| Pstring_set_64 _ -> assert false
401998401998
| Pbigstring_load_16 x -> prim ~primitive:(Pbigstring_load_16 x) ~args loc
401999401999
| Pbigstring_load_32 x -> prim ~primitive:(Pbigstring_load_32 x) ~args loc
402000402000
| Pbigstring_load_64 x -> prim ~primitive:(Pbigstring_load_64 x) ~args loc

0 commit comments

Comments
 (0)