diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-06-25 05:58:27 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-06-28 05:47:52 +0200 |
| commit | 7a5d99241f2aabe633728348dabc4cd4d075a1f5 (patch) | |
| tree | 54a7396aa005846b5b0aca2cb87efdea3ea98ea2 /src/vhdl/simulate | |
| parent | 2ea6a59083a16e3093116101bc574fce623ff344 (diff) | |
| download | ghdl-7a5d99241f2aabe633728348dabc4cd4d075a1f5.tar.gz ghdl-7a5d99241f2aabe633728348dabc4cd4d075a1f5.tar.bz2 ghdl-7a5d99241f2aabe633728348dabc4cd4d075a1f5.zip | |
simulate/execution: uses grt.strings
Diffstat (limited to 'src/vhdl/simulate')
| -rw-r--r-- | src/vhdl/simulate/execution.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/vhdl/simulate/execution.adb b/src/vhdl/simulate/execution.adb index b391ee575..a788255d8 100644 --- a/src/vhdl/simulate/execution.adb +++ b/src/vhdl/simulate/execution.adb @@ -43,6 +43,7 @@ with Grt.Values; with Grt.Errors; with Grt.Std_Logic_1164; with Grt.Lib; +with Grt.Strings; with Sem_Inst; package body Execution is @@ -2762,9 +2763,9 @@ package body Execution is Unit_Len := 0; Unit_Pos := Unit_Pos + 1; -- From 0 based to 1 based for I in Unit_Pos .. Str_Bnd.Dim_1.Length loop - exit when Grt.Values.Is_Whitespace (Str_Str (I)); + exit when Grt.Strings.Is_Whitespace (Str_Str (I)); Unit_Len := Unit_Len + 1; - Str_Str (I) := Grt.Values.To_LC (Str_Str (I)); + Str_Str (I) := Grt.Strings.To_Lower (Str_Str (I)); end loop; Unit := Get_Primary_Unit (Expr_Type); @@ -2806,13 +2807,13 @@ package body Execution is begin -- Remove leading and trailing blanks for I in Str_Str'Range loop - if not Grt.Values.Is_Whitespace (Str_Str (I)) then + if not Grt.Strings.Is_Whitespace (Str_Str (I)) then Lit_Start := I; exit; end if; end loop; for I in reverse Lit_Start .. Str_Str'Last loop - if not Grt.Values.Is_Whitespace (Str_Str (I)) then + if not Grt.Strings.Is_Whitespace (Str_Str (I)) then Lit_End := I; exit; end if; @@ -2834,7 +2835,7 @@ package body Execution is -- Literal identifier. -- Convert to lower case. for I in Lit_Start .. Lit_End loop - Str_Str (I) := Grt.Values.To_LC (Str_Str (I)); + Str_Str (I) := Grt.Strings.To_Lower (Str_Str (I)); end loop; for I in Natural loop |