From 0c79f9cfade3b5a8fc8bb24cad944e70109b86e5 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 20 Mar 2019 07:37:03 +0100 Subject: move algos to grt. --- src/synth/synth-stmts.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/synth') 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; -- cgit v1.2.3