Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 72 lines (45 sloc) 1.923 kb
fccc685 Initial open-source release
MLstate authored
1 (*
7501484 @BourgerieQuentin [enhance] compiler: Added bsl warnings to opa warnings
BourgerieQuentin authored
2 Copyright © 2011, 2012 MLstate
fccc685 Initial open-source release
MLstate authored
3
5bb0f1a @Aqua-Ye [cleanup] compiler: typo on Opa
Aqua-Ye authored
4 This file is part of Opa.
fccc685 Initial open-source release
MLstate authored
5
5bb0f1a @Aqua-Ye [cleanup] compiler: typo on Opa
Aqua-Ye authored
6 Opa is free software: you can redistribute it and/or modify it under the
fccc685 Initial open-source release
MLstate authored
7 terms of the GNU Affero General Public License, version 3, as published by
8 the Free Software Foundation.
9
5bb0f1a @Aqua-Ye [cleanup] compiler: typo on Opa
Aqua-Ye authored
10 Opa is distributed in the hope that it will be useful, but WITHOUT ANY
fccc685 Initial open-source release
MLstate authored
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
13 more details.
14
15 You should have received a copy of the GNU Affero General Public License
5bb0f1a @Aqua-Ye [cleanup] compiler: typo on Opa
Aqua-Ye authored
16 along with Opa. If not, see <http://www.gnu.org/licenses/>.
fccc685 Initial open-source release
MLstate authored
17 *)
18 (* CF mli *)
19
20 let warning_set =
21 let s = WarningClass.Set.create () in
22 let (!+) w = WarningClass.Set.add s w in
23 let (?+) w = if BuildInfos.is_release then () else !+ w in
24 let (!++) s' = WarningClass.Set.add_set s s' in
25 (* let (?++) s' = if BuildInfos.is_release then () else !++ s' in *)
26 (* combine there all loaded warning_set you want to be available in opa S3 *)
27 (* for organisation layout, please use alphabetic order *)
28
29 (* CONDITIONS *)
30
31 ?+ WarningClass.cond ;
32
33 (* PASSES (alphabetic order) *)
34
35 !++ ObjectFiles.warning_set ;
36
37 (* !++ Pass_BslLoading.warning_set ; *)
38
39 !++ QmlDbGen.warning_set ;
40
41 !++ Imp_Compiler.warning_set ;
42
43 !++ QmlSimpleSlicer.warning_set ;
44
45 !++ QmlTyperWarnings.warning_set ;
46
47 !++ SurfaceAstRenaming.warning_set ;
48
4692879 @OpaOnWindowsNow [feature] Internationalisation: add @i18n directive and start support…
OpaOnWindowsNow authored
49 !++ I18nAndComputedString.warning_set ;
50
fccc685 Initial open-source release
MLstate authored
51 !++ Flat_Compiler.warning_set ;
52
53 !++ Pass_CheckPatternMatching.warning_set ;
54
55 !++ Pass_CodingDirectives.warning_set ;
56
57 !++ Pass_MacroExpansion.warning_set ;
58
59 !++ SurfaceAstStaticInclude.warning_set ;
60
2536662 @OpaOnWindowsNow [feature] closure serialisation: restrict to new @public_env directive
OpaOnWindowsNow authored
61 !++ Pass_InstrumentForClosureSerialization.warning_set;
62
f30a1b1 @BourgerieQuentin [fix] recval: Added warning set for recursive values compilation + un…
BourgerieQuentin authored
63 !++ Pass_CompileRecursiveValues.Warning.set;
64
7501484 @BourgerieQuentin [enhance] compiler: Added bsl warnings to opa warnings
BourgerieQuentin authored
65 !++ (WarningClass.Set.create_from_list [
66 WarningClass.bsl;
67 ]);
68
69
fccc685 Initial open-source release
MLstate authored
70 (* finally return the global warning_set *)
71 s
Something went wrong with that request. Please try again.