diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-01-05 08:17:08 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-01-05 08:17:08 +0100 |
| commit | c1c643002ab4067c7dae9a37803743eb99c25573 (patch) | |
| tree | 559dc372fb345bfff9cc2ee5657b86876c6a4bdf /src/vhdl/translate/ortho_front.adb | |
| parent | 01055202d93c7d3c50475a231638dd01045922a9 (diff) | |
| download | ghdl-c1c643002ab4067c7dae9a37803743eb99c25573.tar.gz ghdl-c1c643002ab4067c7dae9a37803743eb99c25573.tar.bz2 ghdl-c1c643002ab4067c7dae9a37803743eb99c25573.zip | |
Fix a typo.
Diffstat (limited to 'src/vhdl/translate/ortho_front.adb')
| -rw-r--r-- | src/vhdl/translate/ortho_front.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb index 09c44c7aa..041eae45e 100644 --- a/src/vhdl/translate/ortho_front.adb +++ b/src/vhdl/translate/ortho_front.adb @@ -152,6 +152,7 @@ package body Ortho_Front is function Decode_Option (Opt : String_Acc; Arg: String_Acc) return Natural is + pragma Assert (Opt'First = 1); begin if Opt.all = "--compile-standard" then Action := Action_Compile_Std_Package; @@ -224,7 +225,7 @@ package body Ortho_Front is declare subtype Str_Type is String (1 .. Opt'Last - 6); begin - -- The option paraeter must be normalized (starts at index 1). + -- The option parameter must be normalized (starts at index 1). if Options.Parse_Option (Str_Type (Opt (7 .. Opt'Last))) then return 1; else |