|
728 | 728 | \ allows a set of extensions, and every successive universe includes \n\
|
729 | 729 | \ the previous one."
|
730 | 730 |
|
| 731 | +let mk_allow_illegal_crossing f = |
| 732 | + "-allow-illegal-crossing", Arg.Unit f, |
| 733 | + "Type declarations will not be checked along the portability or contention axes" |
| 734 | + |
731 | 735 | let mk_dump_dir f =
|
732 | 736 | "-dump-dir", Arg.String f,
|
733 | 737 | "<dir> dump output like -dlambda into <dir>/<target>.dump"
|
@@ -920,6 +924,7 @@ module type Common_options = sig
|
920 | 924 | val _extension : string -> unit
|
921 | 925 | val _no_extension : string -> unit
|
922 | 926 | val _extension_universe : string -> unit
|
| 927 | + val _allow_illegal_crossing : unit -> unit |
923 | 928 | val _noassert : unit -> unit
|
924 | 929 | val _nolabels : unit -> unit
|
925 | 930 | val _nostdlib : unit -> unit
|
@@ -1201,6 +1206,7 @@ struct
|
1201 | 1206 | mk_extension F._extension;
|
1202 | 1207 | mk_no_extension F._no_extension;
|
1203 | 1208 | mk_extension_universe F._extension_universe;
|
| 1209 | + mk_allow_illegal_crossing F._allow_illegal_crossing; |
1204 | 1210 | mk_for_pack_byt F._for_pack;
|
1205 | 1211 | mk_g_byt F._g;
|
1206 | 1212 | mk_no_g F._no_g;
|
@@ -1328,6 +1334,7 @@ struct
|
1328 | 1334 | mk_extension F._extension;
|
1329 | 1335 | mk_no_extension F._no_extension;
|
1330 | 1336 | mk_extension_universe F._extension_universe;
|
| 1337 | + mk_allow_illegal_crossing F._allow_illegal_crossing; |
1331 | 1338 | mk_noassert F._noassert;
|
1332 | 1339 | mk_noinit F._noinit;
|
1333 | 1340 | mk_nolabels F._nolabels;
|
@@ -1421,6 +1428,7 @@ struct
|
1421 | 1428 | mk_extension F._extension;
|
1422 | 1429 | mk_no_extension F._no_extension;
|
1423 | 1430 | mk_extension_universe F._extension_universe;
|
| 1431 | + mk_allow_illegal_crossing F._allow_illegal_crossing; |
1424 | 1432 | mk_for_pack_opt F._for_pack;
|
1425 | 1433 | mk_g_opt F._g;
|
1426 | 1434 | mk_no_g F._no_g;
|
@@ -1607,6 +1615,7 @@ module Make_opttop_options (F : Opttop_options) = struct
|
1607 | 1615 | mk_extension F._extension;
|
1608 | 1616 | mk_no_extension F._no_extension;
|
1609 | 1617 | mk_extension_universe F._extension_universe;
|
| 1618 | + mk_allow_illegal_crossing F._allow_illegal_crossing; |
1610 | 1619 | mk_no_float_const_prop F._no_float_const_prop;
|
1611 | 1620 | mk_noassert F._noassert;
|
1612 | 1621 | mk_noinit F._noinit;
|
@@ -1714,6 +1723,7 @@ struct
|
1714 | 1723 | mk_extension F._extension;
|
1715 | 1724 | mk_no_extension F._no_extension;
|
1716 | 1725 | mk_extension_universe F._extension_universe;
|
| 1726 | + mk_allow_illegal_crossing F._allow_illegal_crossing; |
1717 | 1727 | mk_noassert F._noassert;
|
1718 | 1728 | mk_nolabels F._nolabels;
|
1719 | 1729 | mk_nostdlib F._nostdlib;
|
@@ -1825,6 +1835,7 @@ module Default = struct
|
1825 | 1835 | let _no_extension s = Language_extension.(disable_of_string_exn s)
|
1826 | 1836 | let _extension_universe s =
|
1827 | 1837 | Language_extension.(set_universe_and_enable_all_of_string_exn s)
|
| 1838 | + let _allow_illegal_crossing = set Clflags.allow_illegal_crossing |
1828 | 1839 | let _noassert = set noassert
|
1829 | 1840 | let _nolabels = set classic
|
1830 | 1841 | let _nostdlib = set no_std_include
|
|
0 commit comments