elvis/lci
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Better linting

Browse Source
This commit is contained in:
elvis
2025-01-26 21:47:05 +01:00
parent 4a9f62b42d
commit ca39024ee3
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
bin/miniImpInterpreterReg.ml
View File

@ -37,7 +37,8 @@ let () =
in in
let checkundefined = Clap.flag let checkundefined = Clap.flag
~description: "Optional flag for disabling the check for undefined variables." ~description: "Optional flag for disabling the check for undefined \
variables."
~section: values ~section: values
~unset_long: "undefined" ~unset_long: "undefined"
~unset_short: 'u' ~unset_short: 'u'
@ -45,7 +46,8 @@ let () =
in in
let optimizereg = Clap.flag let optimizereg = Clap.flag
~description: "Optional flag for disabling optimizing registers with liveness analysis." ~description: "Optional flag for disabling optimizing registers with \
liveness analysis."
~section: values ~section: values
~unset_long: "liveness" ~unset_long: "liveness"
~unset_short: 'l' ~unset_short: 'l'
@ -128,9 +130,9 @@ let () =
RISC.convert RISC.convert
in in
if not evalb if evalb
then Printf.fprintf outch "%a\n" RISC.RISCAssembly.pp return_value then Printf.fprintf outch "%d\n" (RISCSemantics.reduce return_value)
else Printf.fprintf outch "%d\n" (RISCSemantics.reduce return_value) else Printf.fprintf outch "%a\n" RISC.RISCAssembly.pp return_value
in in
let inx = In_channel.open_text input in let inx = In_channel.open_text input in