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 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273
|
module Options.CompilerDebugging where
import Types
compilerDebuggingOptions :: [Flag]
compilerDebuggingOptions =
[ flag { flagName = "-dcore-lint"
, flagDescription = "Turn on internal sanity checking"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-to-file"
, flagDescription = "Dump to files instead of stdout"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-asm"
, flagDescription = "Dump assembly"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-bcos"
, flagDescription = "Dump interpreter byte code"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-cmm"
, flagDescription = "Dump C-- output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-core-stats"
, flagDescription =
"Print a one-line summary of the size of the Core program at the "++
"end of the optimisation pipeline"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-cse"
, flagDescription = "Dump CSE output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-deriv"
, flagDescription = "Dump deriving output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-ds"
, flagDescription = "Dump desugarer output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-foreign"
, flagDescription = "Dump ``foreign export`` stubs"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-hpc"
, flagDescription = "Dump after instrumentation for program coverage"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-inlinings"
, flagDescription = "Dump inlining info"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-llvm"
, flagDescription = "Dump LLVM intermediate code. "++
"Implies :ghc-flag:`-fllvm`."
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-occur-anal"
, flagDescription = "Dump occurrence analysis output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-opt-cmm"
, flagDescription = "Dump the results of C-- to C-- optimising passes"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-parsed"
, flagDescription = "Dump parse tree"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-prep"
, flagDescription = "Dump prepared core"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-rn"
, flagDescription = "Dump renamer output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-rule-firings"
, flagDescription = "Dump rule firing info"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-rule-rewrites"
, flagDescription = "Dump detailed rule firing info"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-rules"
, flagDescription = "Dump rules"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-vect"
, flagDescription = "Dump vectoriser input and output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-simpl"
, flagDescription = "Dump final simplifier output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-simpl-iterations"
, flagDescription = "Dump output from each simplifier iteration"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-spec"
, flagDescription = "Dump specialiser output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-splices"
, flagDescription =
"Dump TH spliced expressions, and what they evaluate to"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-stg"
, flagDescription = "Dump final STG"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-stranal"
, flagDescription = "Dump strictness analyser output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-str-signatures"
, flagDescription = "Dump strictness signatures"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-tc"
, flagDescription = "Dump typechecker output"
, flagType = DynamicFlag
}
, flag { flagName = "-dth-dec-file"
, flagDescription =
"Show evaluated TH declarations in a .th.hs file"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-types"
, flagDescription = "Dump type signatures"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-worker-wrapper"
, flagDescription = "Dump worker-wrapper output"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-if-trace"
, flagDescription = "Trace interface files"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-tc-trace"
, flagDescription = "Trace typechecker"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-vt-trace"
, flagDescription = "Trace vectoriser"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-rn-trace"
, flagDescription = "Trace renamer"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-rn-stats"
, flagDescription = "Renamer stats"
, flagType = DynamicFlag
}
, flag { flagName = "-ddump-simpl-stats"
, flagDescription = "Dump simplifier stats"
, flagType = DynamicFlag
}
, flag { flagName = "-dno-debug-output"
, flagDescription = "Suppress unsolicited debugging output"
, flagType = StaticFlag
}
, flag { flagName = "-dppr-debug"
, flagDescription = "Turn on debug printing (more verbose)"
, flagType = StaticFlag
}
, flag { flagName = "-dppr-user-length"
, flagDescription =
"Set the depth for printing expressions in error msgs"
, flagType = DynamicFlag
}
, flag { flagName = "-dppr-cols⟨N⟩"
, flagDescription =
"Set the width of debugging output. For example ``-dppr-cols200``"
, flagType = DynamicFlag
}
, flag { flagName = "-dppr-case-as-let"
, flagDescription =
"Print single alternative case expressions as strict lets."
, flagType = DynamicFlag
}
, flag { flagName = "-dsuppress-all"
, flagDescription =
"In core dumps, suppress everything (except for uniques) that is "++
"suppressible."
, flagType = DynamicFlag
}
, flag { flagName = "-dsuppress-uniques"
, flagDescription =
"Suppress the printing of uniques in debug output (easier to use "++
"``diff``)"
, flagType = DynamicFlag
}
, flag { flagName = "-dsuppress-idinfo"
, flagDescription =
"Suppress extended information about identifiers where they "++
"are bound"
, flagType = DynamicFlag
}
, flag { flagName = "-dsuppress-unfoldings"
, flagDescription =
"Suppress the printing of the stable unfolding of a variable at "++
"its binding site"
, flagType = DynamicFlag
}
, flag { flagName = "-dsuppress-module-prefixes"
, flagDescription =
"Suppress the printing of module qualification prefixes"
, flagType = DynamicFlag
}
, flag { flagName = "-dsuppress-type-signatures"
, flagDescription = "Suppress type signatures"
, flagType = DynamicFlag
}
, flag { flagName = "-dsuppress-type-applications"
, flagDescription = "Suppress type applications"
, flagType = DynamicFlag
}
, flag { flagName = "-dsuppress-coercions"
, flagDescription =
"Suppress the printing of coercions in Core dumps to make them "++
"shorter"
, flagType = DynamicFlag
}
, flag { flagName = "-dsource-stats"
, flagDescription = "Dump haskell source stats"
, flagType = DynamicFlag
}
, flag { flagName = "-dcmm-lint"
, flagDescription = "C-- pass sanity checking"
, flagType = DynamicFlag
}
, flag { flagName = "-dstg-lint"
, flagDescription = "STG pass sanity checking"
, flagType = DynamicFlag
}
, flag { flagName = "-dstg-stats"
, flagDescription = "Dump STG stats"
, flagType = DynamicFlag
}
, flag { flagName = "-dverbose-core2core"
, flagDescription = "Show output from each core-to-core pass"
, flagType = DynamicFlag
}
, flag { flagName = "-dverbose-stg2stg"
, flagDescription = "Show output from each STG-to-STG pass"
, flagType = DynamicFlag
}
, flag { flagName = "-dshow-passes"
, flagDescription = "Print out each pass name as it happens"
, flagType = DynamicFlag
}
, flag { flagName = "-dfaststring-stats"
, flagDescription =
"Show statistics for fast string usage when finished"
, flagType = DynamicFlag
}
, flag { flagName = "-frule-check"
, flagDescription =
"Report sites with rules that could have fired but didn't. "++
"Takes a string argument."
, flagType = DynamicFlag
}
]
|