From c1c643002ab4067c7dae9a37803743eb99c25573 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 5 Jan 2019 08:17:08 +0100 Subject: Fix a typo. --- src/vhdl/translate/ortho_front.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/vhdl/translate/ortho_front.adb') 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 -- cgit v1.2.3