package frama-c
Source file options.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79(**************************************************************************) (* *) (* This file is part of Frama-C. *) (* *) (* Copyright (C) 2007-2023 *) (* CEA (Commissariat à l'énergie atomique et aux énergies *) (* alternatives) *) (* *) (* you can redistribute it and/or modify it under the terms of the GNU *) (* Lesser General Public License as published by the Free Software *) (* Foundation, version 2.1. *) (* *) (* It is distributed in the hope that it will be useful, *) (* but WITHOUT ANY WARRANTY; without even the implied warranty of *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *) (* GNU Lesser General Public License for more details. *) (* *) (* See the GNU Lesser General Public License version 2.1 *) (* for more details (enclosed in the file licenses/LGPLv2.1). *) (* *) (**************************************************************************) (* -------------------------------------------------------------------------- *) (* --- Plugin Registration --- *) (* -------------------------------------------------------------------------- *) include Plugin.Register (struct let name = "Alias Analysis" let help = "Lightweight May-Alias Analysis (experimental)" let shortname = "alias" end) module Enabled = False (struct let option_name = "-alias" let help = "Enable May-Alias Analyzer" end) module ShowFunctionTable = False (struct let option_name = "-alias-show-function-table" let help = "display summary for each function at the end of the analysis" end) module ShowStmtTable = False (struct let option_name = "-alias-show-stmt-table" let help = "display abstract state for each function at the end of the analysis" end) module DebugTable = False (struct let option_name = "-alias-debug-table" let help = "switch to debug mode when printing statement or function tables (with options -alias-show-stmt-table and -alias-show-function-table)" end) module Dot_output = Empty_string (struct let option_name = "-alias-dot-output" let arg_name = "f" let help = "output final abstract state as dot file <f>" end) module Warn = struct let no_return_stmt = register_warn_category "no-return" let undefined_function = register_warn_category "undefined:fn" let unsupported_address = register_warn_category "unsupported:addr" let unsupported_asm = register_warn_category "unsupported:asm" let unsupported_function = register_warn_category "unsupported:fn" let unsafe_cast = register_warn_category "unsafe-cast" end module DebugKeys = struct let lvals = register_category "lvals" end