diff options
| -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 |