summaryrefslogtreecommitdiff
path: root/src/directed_graphs.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/directed_graphs.adb')
-rw-r--r--src/directed_graphs.adb8
1 files changed, 3 insertions, 5 deletions
diff --git a/src/directed_graphs.adb b/src/directed_graphs.adb
index 8b59051..4b9e823 100644
--- a/src/directed_graphs.adb
+++ b/src/directed_graphs.adb
@@ -974,10 +974,8 @@ package body Directed_Graphs is
is
use type Node_Maps.Cursor;
begin
- if Impl.Checks and then Position.Container = null then
- raise Constraint_Error with "Graph does not exist";
- end if;
- if Position.Place = Node_Maps.No_Element or else
+ if Position.Container = null or else
+ Position.Place = Node_Maps.No_Element or else
not Position.Container.Contains (Node_Maps.Key (Position.Place))
then
return No_Node;
@@ -2568,7 +2566,7 @@ package body Directed_Graphs is
end if;
end loop;
raise Constraint_Error with "No unused nodes available";
- return Extended_Node_ID_Type'First;
+ return Node_ID_Type'First;
end Unused;
function Unused