Skip to content

Commit 77522da

Browse files
bobzhangbobzhang
committed
not emitting line directives to protect stacktrace
1 parent 5253ca4 commit 77522da

File tree

7 files changed

+28
-82
lines changed

7 files changed

+28
-82
lines changed

‎lib/4.06.1/bsb.ml

+3-9
Original file line numberDiff line numberDiff line change
@@ -4292,7 +4292,6 @@ module Set_string : sig
42924292
include Set_gen.S with type elt = string
42934293
end = struct
42944294
#1 "set_string.ml"
4295-
# 1 "ext/set.cppo.ml"
42964295
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
42974296
*
42984297
* This program is free software: you can redistribute it and/or modify
@@ -4317,23 +4316,18 @@ end = struct
43174316
* along with this program; if not, write to the Free Software
43184317
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
43194318

4320-
[@@@warning "-34"]
4321-
# 27 "ext/set.cppo.ml"
4319+
[@@@warnerror "-34"]
43224320
type elt = string
43234321
let compare_elt = Ext_string.compare
43244322
let print_elt = Format.pp_print_string
43254323

4326-
# 49 "ext/set.cppo.ml"
43274324
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
43284325
| Empty
43294326
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
43304327

4331-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
4332-
| End
4333-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
4334-
4328+
43354329
type t = (elt, unit) t0
4336-
type enumeration = (elt, unit) Set_gen.enumeration0
4330+
43374331
let empty = Set_gen.empty
43384332
let is_empty = Set_gen.is_empty
43394333
let iter = Set_gen.iter

‎lib/4.06.1/unstable/all_ounit_tests.ml

+3-9
Original file line numberDiff line numberDiff line change
@@ -3031,7 +3031,6 @@ module Set_int : sig
30313031
include Set_gen.S with type elt = int
30323032
end = struct
30333033
#1 "set_int.ml"
3034-
# 1 "ext/set.cppo.ml"
30353034
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
30363035
*
30373036
* This program is free software: you can redistribute it and/or modify
@@ -3056,23 +3055,18 @@ end = struct
30563055
* along with this program; if not, write to the Free Software
30573056
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
30583057

3059-
[@@@warning "-34"]
3060-
# 42 "ext/set.cppo.ml"
3058+
[@@@warnerror "-34"]
30613059
type elt = int
30623060
let compare_elt = Ext_int.compare
30633061
let print_elt = Format.pp_print_int
30643062

3065-
# 49 "ext/set.cppo.ml"
30663063
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
30673064
| Empty
30683065
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
30693066

3070-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
3071-
| End
3072-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
3073-
3067+
30743068
type t = (elt, unit) t0
3075-
type enumeration = (elt, unit) Set_gen.enumeration0
3069+
30763070
let empty = Set_gen.empty
30773071
let is_empty = Set_gen.is_empty
30783072
let iter = Set_gen.iter

‎lib/4.06.1/unstable/bsb_native.ml

+3-9
Original file line numberDiff line numberDiff line change
@@ -4292,7 +4292,6 @@ module Set_string : sig
42924292
include Set_gen.S with type elt = string
42934293
end = struct
42944294
#1 "set_string.ml"
4295-
# 1 "ext/set.cppo.ml"
42964295
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
42974296
*
42984297
* This program is free software: you can redistribute it and/or modify
@@ -4317,23 +4316,18 @@ end = struct
43174316
* along with this program; if not, write to the Free Software
43184317
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
43194318

4320-
[@@@warning "-34"]
4321-
# 27 "ext/set.cppo.ml"
4319+
[@@@warnerror "-34"]
43224320
type elt = string
43234321
let compare_elt = Ext_string.compare
43244322
let print_elt = Format.pp_print_string
43254323

4326-
# 49 "ext/set.cppo.ml"
43274324
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
43284325
| Empty
43294326
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
43304327

4331-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
4332-
| End
4333-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
4334-
4328+
43354329
type t = (elt, unit) t0
4336-
type enumeration = (elt, unit) Set_gen.enumeration0
4330+
43374331
let empty = Set_gen.empty
43384332
let is_empty = Set_gen.is_empty
43394333
let iter = Set_gen.iter

‎lib/4.06.1/unstable/js_compiler.ml

+6-18
Original file line numberDiff line numberDiff line change
@@ -69708,7 +69708,6 @@ module Set_string : sig
6970869708
include Set_gen.S with type elt = string
6970969709
end = struct
6971069710
#1 "set_string.ml"
69711-
# 1 "ext/set.cppo.ml"
6971269711
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
6971369712
*
6971469713
* This program is free software: you can redistribute it and/or modify
@@ -69733,23 +69732,18 @@ end = struct
6973369732
* along with this program; if not, write to the Free Software
6973469733
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
6973569734

69736-
[@@@warning "-34"]
69737-
# 27 "ext/set.cppo.ml"
69735+
[@@@warnerror "-34"]
6973869736
type elt = string
6973969737
let compare_elt = Ext_string.compare
6974069738
let print_elt = Format.pp_print_string
6974169739

69742-
# 49 "ext/set.cppo.ml"
6974369740
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
6974469741
| Empty
6974569742
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
6974669743

69747-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
69748-
| End
69749-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
69750-
69744+
6975169745
type t = (elt, unit) t0
69752-
type enumeration = (elt, unit) Set_gen.enumeration0
69746+
6975369747
let empty = Set_gen.empty
6975469748
let is_empty = Set_gen.is_empty
6975569749
let iter = Set_gen.iter
@@ -82257,7 +82251,6 @@ include Set_gen.S with type elt = Ident.t
8225782251

8225882252
end = struct
8225982253
#1 "set_ident.ml"
82260-
# 1 "ext/set.cppo.ml"
8226182254
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
8226282255
*
8226382256
* This program is free software: you can redistribute it and/or modify
@@ -82282,8 +82275,7 @@ end = struct
8228282275
* along with this program; if not, write to the Free Software
8228382276
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
8228482277

82285-
[@@@warning "-34"]
82286-
# 31 "ext/set.cppo.ml"
82278+
[@@@warnerror "-34"]
8228782279
type elt = Ident.t
8228882280
let compare_elt (x : elt) (y : elt) =
8228982281
let a = Pervasives.compare (x.stamp : int) y.stamp in
@@ -82295,17 +82287,13 @@ let compare_elt (x : elt) (y : elt) =
8229582287

8229682288
let print_elt = Ident.print
8229782289

82298-
# 49 "ext/set.cppo.ml"
8229982290
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
8230082291
| Empty
8230182292
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
8230282293

82303-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
82304-
| End
82305-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
82306-
82294+
8230782295
type t = (elt, unit) t0
82308-
type enumeration = (elt, unit) Set_gen.enumeration0
82296+
8230982297
let empty = Set_gen.empty
8231082298
let is_empty = Set_gen.is_empty
8231182299
let iter = Set_gen.iter

‎lib/4.06.1/unstable/js_refmt_compiler.ml

+6-18
Original file line numberDiff line numberDiff line change
@@ -69708,7 +69708,6 @@ module Set_string : sig
6970869708
include Set_gen.S with type elt = string
6970969709
end = struct
6971069710
#1 "set_string.ml"
69711-
# 1 "ext/set.cppo.ml"
6971269711
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
6971369712
*
6971469713
* This program is free software: you can redistribute it and/or modify
@@ -69733,23 +69732,18 @@ end = struct
6973369732
* along with this program; if not, write to the Free Software
6973469733
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
6973569734

69736-
[@@@warning "-34"]
69737-
# 27 "ext/set.cppo.ml"
69735+
[@@@warnerror "-34"]
6973869736
type elt = string
6973969737
let compare_elt = Ext_string.compare
6974069738
let print_elt = Format.pp_print_string
6974169739

69742-
# 49 "ext/set.cppo.ml"
6974369740
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
6974469741
| Empty
6974569742
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
6974669743

69747-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
69748-
| End
69749-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
69750-
69744+
6975169745
type t = (elt, unit) t0
69752-
type enumeration = (elt, unit) Set_gen.enumeration0
69746+
6975369747
let empty = Set_gen.empty
6975469748
let is_empty = Set_gen.is_empty
6975569749
let iter = Set_gen.iter
@@ -82257,7 +82251,6 @@ include Set_gen.S with type elt = Ident.t
8225782251

8225882252
end = struct
8225982253
#1 "set_ident.ml"
82260-
# 1 "ext/set.cppo.ml"
8226182254
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
8226282255
*
8226382256
* This program is free software: you can redistribute it and/or modify
@@ -82282,8 +82275,7 @@ end = struct
8228282275
* along with this program; if not, write to the Free Software
8228382276
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
8228482277

82285-
[@@@warning "-34"]
82286-
# 31 "ext/set.cppo.ml"
82278+
[@@@warnerror "-34"]
8228782279
type elt = Ident.t
8228882280
let compare_elt (x : elt) (y : elt) =
8228982281
let a = Pervasives.compare (x.stamp : int) y.stamp in
@@ -82295,17 +82287,13 @@ let compare_elt (x : elt) (y : elt) =
8229582287

8229682288
let print_elt = Ident.print
8229782289

82298-
# 49 "ext/set.cppo.ml"
8229982290
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
8230082291
| Empty
8230182292
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
8230282293

82303-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
82304-
| End
82305-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
82306-
82294+
8230782295
type t = (elt, unit) t0
82308-
type enumeration = (elt, unit) Set_gen.enumeration0
82296+
8230982297
let empty = Set_gen.empty
8231082298
let is_empty = Set_gen.is_empty
8231182299
let iter = Set_gen.iter

‎lib/4.06.1/whole_compiler.ml

+6-18
Original file line numberDiff line numberDiff line change
@@ -353525,7 +353525,6 @@ module Set_string : sig
353525353525
include Set_gen.S with type elt = string
353526353526
end = struct
353527353527
#1 "set_string.ml"
353528-
# 1 "ext/set.cppo.ml"
353529353528
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
353530353529
*
353531353530
* This program is free software: you can redistribute it and/or modify
@@ -353550,23 +353549,18 @@ end = struct
353550353549
* along with this program; if not, write to the Free Software
353551353550
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
353552353551

353553-
[@@@warning "-34"]
353554-
# 27 "ext/set.cppo.ml"
353552+
[@@@warnerror "-34"]
353555353553
type elt = string
353556353554
let compare_elt = Ext_string.compare
353557353555
let print_elt = Format.pp_print_string
353558353556

353559-
# 49 "ext/set.cppo.ml"
353560353557
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
353561353558
| Empty
353562353559
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
353563353560

353564-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
353565-
| End
353566-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
353567-
353561+
353568353562
type t = (elt, unit) t0
353569-
type enumeration = (elt, unit) Set_gen.enumeration0
353563+
353570353564
let empty = Set_gen.empty
353571353565
let is_empty = Set_gen.is_empty
353572353566
let iter = Set_gen.iter
@@ -372769,7 +372763,6 @@ include Set_gen.S with type elt = Ident.t
372769372763

372770372764
end = struct
372771372765
#1 "set_ident.ml"
372772-
# 1 "ext/set.cppo.ml"
372773372766
(* Copyright (C) 2015-2016 Bloomberg Finance L.P.
372774372767
*
372775372768
* This program is free software: you can redistribute it and/or modify
@@ -372794,8 +372787,7 @@ end = struct
372794372787
* along with this program; if not, write to the Free Software
372795372788
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
372796372789

372797-
[@@@warning "-34"]
372798-
# 31 "ext/set.cppo.ml"
372790+
[@@@warnerror "-34"]
372799372791
type elt = Ident.t
372800372792
let compare_elt (x : elt) (y : elt) =
372801372793
let a = Pervasives.compare (x.stamp : int) y.stamp in
@@ -372807,17 +372799,13 @@ let compare_elt (x : elt) (y : elt) =
372807372799

372808372800
let print_elt = Ident.print
372809372801

372810-
# 49 "ext/set.cppo.ml"
372811372802
type ('a, 'id) t0 = ('a, 'id) Set_gen.t0 =
372812372803
| Empty
372813372804
| Node of ('a, 'id) t0 * 'a * ('a, 'id) t0 * int
372814372805

372815-
type ('a, 'id) enumeration0 = ('a, 'id) Set_gen.enumeration0 =
372816-
| End
372817-
| More of 'a * ('a, 'id) t0 * ('a, 'id) enumeration0
372818-
372806+
372819372807
type t = (elt, unit) t0
372820-
type enumeration = (elt, unit) Set_gen.enumeration0
372808+
372821372809
let empty = Set_gen.empty
372822372810
let is_empty = Set_gen.is_empty
372823372811
let iter = Set_gen.iter

‎scripts/ninja.js

+1-1
Original file line numberDiff line numberDiff line change
@@ -1522,7 +1522,7 @@ rule link
15221522
build ${cppoFile}: link ${cppoMonoFile}
15231523
libs = unix.cmxa str.cmxa
15241524
generator = true
1525-
${cppoRule()}
1525+
${cppoRule("-n")}
15261526
${cppoList("ext", [
15271527
["hash_set_string.ml", "hash_set.cppo.ml", dTypeString],
15281528
["hash_set_int.ml", "hash_set.cppo.ml", dTypeInt],

0 commit comments

Comments
 (0)