diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-09-20 09:04:40 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-09-20 09:04:40 +0200 |
commit | a039d22a3cfeebb5bcda0be4244a1d0d507d30e2 (patch) | |
tree | 42754a1816a2f6b9703bb7b9f50ce77fd0a9cc90 /src/ghdldrv/ghdlcomp.adb | |
parent | 84649d6666d13452025ee693d16e752a63846fc1 (diff) | |
download | ghdl-a039d22a3cfeebb5bcda0be4244a1d0d507d30e2.tar.gz ghdl-a039d22a3cfeebb5bcda0be4244a1d0d507d30e2.tar.bz2 ghdl-a039d22a3cfeebb5bcda0be4244a1d0d507d30e2.zip |
ghdldrv: adjust style and some error messages.
Diffstat (limited to 'src/ghdldrv/ghdlcomp.adb')
-rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 45 |
1 files changed, 19 insertions, 26 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index f3a38ca89..3a91136ce 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -116,11 +116,10 @@ package body Ghdlcomp is is pragma Unreferenced (Cmd); begin - return - Name = "elab-run" or else - Name = "--elab-run" or else - Name = "-r" or else - Name = "run"; + return Name = "elab-run" + or else Name = "--elab-run" + or else Name = "-r" + or else Name = "run"; end Decode_Command; function Get_Short_Help (Cmd : Command_Run) return String @@ -177,9 +176,8 @@ package body Ghdlcomp is is pragma Unreferenced (Cmd); begin - return - Name = "compile" or else - Name = "-c"; + return Name = "compile" + or else Name = "-c"; end Decode_Command; function Get_Short_Help (Cmd : Command_Compile) return String @@ -436,10 +434,9 @@ package body Ghdlcomp is is pragma Unreferenced (Cmd); begin - return - Name = "analyze" or else - Name = "-a" or else - Name = "analyse"; + return Name = "analyze" + or else Name = "-a" + or else Name = "analyse"; end Decode_Command; function Get_Short_Help (Cmd : Command_Analyze) return String @@ -578,9 +575,8 @@ package body Ghdlcomp is is pragma Unreferenced (Cmd); begin - return - Name = "elaborate" or else - Name = "-e"; + return Name = "elaborate" + or else Name = "-e"; end Decode_Command; function Get_Short_Help (Cmd : Command_Elab) return String @@ -657,11 +653,10 @@ package body Ghdlcomp is is pragma Unreferenced (Cmd); begin - return - Name = "disp-config" or else - Name = "--disp-config" or else - Name = "dispconfig" or else - Name = "--dispconfig"; + return Name = "disp-config" + or else Name = "--disp-config" + or else Name = "dispconfig" + or else Name = "--dispconfig"; end Decode_Command; function Get_Short_Help (Cmd : Command_Dispconfig) return String @@ -715,9 +710,8 @@ package body Ghdlcomp is is pragma Unreferenced (Cmd); begin - return - Name = "make" or else - Name = "-m"; + return Name = "make" + or else Name = "-m"; end Decode_Command; function Get_Short_Help (Cmd : Command_Make) return String @@ -846,9 +840,8 @@ package body Ghdlcomp is is pragma Unreferenced (Cmd); begin - return - Name = "gen-makefile" or else - Name = "--gen-makefile"; + return Name = "gen-makefile" + or else Name = "--gen-makefile"; end Decode_Command; function Get_Short_Help (Cmd : Command_Gen_Makefile) return String |