bugs fix, 93c improved

2 files changed, 8 insertions, 8 deletions

diff --git a/translate/ghdldrv/ghdllocal.adb b/translate/ghdldrv/ghdllocal.adb
index 4a9f62f5a..9eccdcf5d 100644
--- a/translate/ghdldrv/ghdllocal.adb
+++ b/translate/ghdldrv/ghdllocal.adb
@@ -149,16 +149,15 @@ package body Ghdllocal is
       use Ada.Text_IO;
       procedure P (Str : String) renames Put_Line;
    begin
-      P ("Options:");
+      P ("Main options (try --options-help for details):");
       P (" --std=XX       Use XX as VHDL standard (87,93c,93,00 or 02)");
       P (" --work=NAME    Set the name of the WORK library");
       P (" -PDIR          Add DIR in the library search path");
       P (" --workdir=DIR  Specify the directory of the WORK library");
       P (" --PREFIX=DIR   Specify installation prefix");
-
       P (" --ieee=NAME    Use NAME as ieee library, where name is:");
       P ("    standard: standard version (default)");
-      P ("    synopsys, mentor: vendor version (bad)");
+      P ("    synopsys, mentor: vendor version (not advised)");
       P ("    none: do not use a predefined ieee library");
    end Disp_Long_Help;
 
diff --git a/translate/ghdldrv/ghdlmain.adb b/translate/ghdldrv/ghdlmain.adb
index a2eab9881..88752795c 100644
--- a/translate/ghdldrv/ghdlmain.adb
+++ b/translate/ghdldrv/ghdlmain.adb
@@ -132,9 +132,10 @@ package body Ghdlmain is
             C := C.Next;
          end loop;
          New_Line;
-         Put_Line
-           ("To display the options of a GHDL program, run your program");
-         Put_Line ("  with the --help option.");
+         Put_Line ("To display the options of a GHDL program,");
+         Put_Line ("  run your programm with the --help option.");
+         Put_Line ("Also see --options-help for analyzer options.");
+         New_Line;
          Put_Line ("Please, refer to the GHDL manual for more information.");
          Put_Line ("Report bugs on http://gna.org/projects/ghdl");
       elsif Args'Length = 1 then
@@ -171,7 +172,7 @@ package body Ghdlmain is
    is
       pragma Unreferenced (Cmd);
    begin
-      return "--options-help     Disp help for compiler options";
+      return "--options-help     Disp help for analyzer options";
    end Get_Short_Help;
 
    procedure Perform_Action (Cmd : in out Command_Option_Help;
@@ -352,8 +353,8 @@ package body Ghdlmain is
    procedure Register_Commands is
    begin
       Register_Command (new Command_Help);
-      Register_Command (new Command_Option_Help);
       Register_Command (new Command_Version);
+      Register_Command (new Command_Option_Help);
    end Register_Commands;
 end Ghdlmain;