diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2026-02-06 21:32:44 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2026-02-06 21:32:44 +1300 |
| commit | 0b9e8a567265584f8ad5f321a38cf1f183875693 (patch) | |
| tree | 970c4e4e66b6a8e5e668dc1c12f1d68a8a7a67be /src/kompsos-pretty_print.ads | |
| parent | 6bced91bd28f860d830dfda921ee5056ec93f48c (diff) | |
Changed the map for DOT in Pretty_Print to a Hashed_Map
Diffstat (limited to 'src/kompsos-pretty_print.ads')
| -rw-r--r-- | src/kompsos-pretty_print.ads | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/kompsos-pretty_print.ads b/src/kompsos-pretty_print.ads index 5b443f9..5e6b9ca 100644 --- a/src/kompsos-pretty_print.ads +++ b/src/kompsos-pretty_print.ads @@ -8,7 +8,7 @@ private with - Ada.Containers.Ordered_Maps; + Ada.Containers.Hashed_Maps; generic @@ -64,13 +64,11 @@ private - function "<" - (Left, Right : in Graph_Component_Access) - return Boolean; - - package DOT_Node_Maps is new Ada.Containers.Ordered_Maps - (Key_Type => Graph_Component_Access, - Element_Type => Long_Natural); + package DOT_Node_Maps is new Ada.Containers.Hashed_Maps + (Key_Type => Graph_Component_Access, + Element_Type => Long_Natural, + Hash => Graph_Component_Access_Hash, + Equivalent_Keys => "="); end Kompsos.Pretty_Print; |