diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-03-20 07:37:03 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-03-20 18:53:04 +0100 |
| commit | 0c79f9cfade3b5a8fc8bb24cad944e70109b86e5 (patch) | |
| tree | 8c0fc1ae4bcb20a2ec2d665b9d6bd4d246419e36 /src/vhdl | |
| parent | 0ed24515f1d273ebe494e51dd7fdfb70ca13cc73 (diff) | |
| download | ghdl-0c79f9cfade3b5a8fc8bb24cad944e70109b86e5.tar.gz ghdl-0c79f9cfade3b5a8fc8bb24cad944e70109b86e5.tar.bz2 ghdl-0c79f9cfade3b5a8fc8bb24cad944e70109b86e5.zip | |
move algos to grt.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/sem_expr.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index dabcce490..1aeaf0e2d 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Algos; +with Grt.Algos; with Std_Package; use Std_Package; with Errorout; use Errorout; with Flags; use Flags; @@ -2189,7 +2189,7 @@ package body Sem_Expr is end Swap; procedure Str_Heap_Sort is - new Algos.Heap_Sort (Lt => Lt, Swap => Swap); + new Grt.Algos.Heap_Sort (Lt => Lt, Swap => Swap); begin Str_Heap_Sort (Info.Nbr_Choices); end Sort_String_Choices; @@ -2433,7 +2433,8 @@ package body Sem_Expr is Swap_Choice_Info (Info, From, To); end Swap; - procedure Disc_Heap_Sort is new Algos.Heap_Sort (Lt => Lt, Swap => Swap); + procedure Disc_Heap_Sort is + new Grt.Algos.Heap_Sort (Lt => Lt, Swap => Swap); begin Disc_Heap_Sort (Info.Nbr_Choices); end Sort_Discrete_Choices; |