4 files changed, 11 insertions, 9 deletions
diff --git a/src/algos.adb b/src/grt/grt-algos.adb
index e40971495..9482e8208 100644
--- a/src/algos.adb
+++ b/src/grt/grt-algos.adb
@@ -16,7 +16,7 @@
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
 
-package body Algos is
+package body Grt.Algos is
    procedure Heap_Sort (N : Natural) is
       --  An heap is an almost complete binary tree whose each edge is less
       --  than or equal as its decendent.
@@ -52,4 +52,4 @@ package body Algos is
          Bubble_Down (1, I - 1);
       end loop;
    end Heap_Sort;
-end Algos;
+end Grt.Algos;
diff --git a/src/algos.ads b/src/grt/grt-algos.ads
index 39004d3ac..85fe93ac3 100644
--- a/src/algos.ads
+++ b/src/grt/grt-algos.ads
@@ -16,7 +16,7 @@
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
 
-package Algos is
+package Grt.Algos is
    --  Heap sort the N elements.
    generic
       --  Compare two elements, return true iff OP1 < OP2.
@@ -25,4 +25,4 @@ package Algos is
       --  Swap two elements.
       with procedure Swap (From : Natural; To : Natural);
    procedure Heap_Sort (N : Natural);
-end Algos;
+end Grt.Algos;
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 3d8ee03f6..df49a624c 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -21,7 +21,7 @@
 with Ada.Unchecked_Deallocation;
 
 with Types; use Types;
-with Algos;
+with Grt.Algos;
 with Areapools;
 with Errorout; use Errorout;
 
@@ -278,7 +278,8 @@ package body Synth.Stmts is
          Arr (To) := T;
       end Swap;
 
-      procedure Wid_Heap_Sort is new Algos.Heap_Sort (Lt => Lt, Swap => Swap);
+      procedure Wid_Heap_Sort is
+         new Grt.Algos.Heap_Sort (Lt => Lt, Swap => Swap);
    begin
       Wid_Heap_Sort (Arr'Length);
    end Sort_Wire_Id_Array;
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;