summaryrefslogtreecommitdiff
path: root/www/aws/files/patch-src_extended_aws-services-dispatchers-timer.adb
diff options
context:
space:
mode:
Diffstat (limited to 'www/aws/files/patch-src_extended_aws-services-dispatchers-timer.adb')
-rw-r--r--www/aws/files/patch-src_extended_aws-services-dispatchers-timer.adb37
1 files changed, 0 insertions, 37 deletions
diff --git a/www/aws/files/patch-src_extended_aws-services-dispatchers-timer.adb b/www/aws/files/patch-src_extended_aws-services-dispatchers-timer.adb
deleted file mode 100644
index 34373bacb4f5..000000000000
--- a/www/aws/files/patch-src_extended_aws-services-dispatchers-timer.adb
+++ /dev/null
@@ -1,37 +0,0 @@
---- src/extended/aws-services-dispatchers-timer.adb.orig 2014-05-15 19:48:07 UTC
-+++ src/extended/aws-services-dispatchers-timer.adb
-@@ -480,7 +480,11 @@ package body AWS.Services.Dispatchers.Ti
-
- procedure Unregister
- (Dispatcher : in out Handler;
-- Name : String) is
-+ Name : String)
-+ is
-+ use type Period_Table.Cursor;
-+
-+ Pos : Period_table.Cursor := Period_Table.No_Element;
- begin
- for Cursor in Dispatcher.Table.Iterate loop
- declare
-@@ -488,13 +492,18 @@ package body AWS.Services.Dispatchers.Ti
- begin
- if To_String (Item.Name) = Name then
- Unchecked_Free (Item);
-- Period_Table.Delete (Dispatcher.Table, Cursor);
-- return;
-+ Pos := Cursor;
-+ exit;
- end if;
- end;
- end loop;
-
-- raise Constraint_Error with "Timer distpatcher " & Name & " not found";
-+ if Pos = Period_Table.No_Element then
-+ raise Constraint_Error
-+ with "Timer distpatcher " & Name & " not found";
-+ else
-+ Period_Table.Delete (Dispatcher.Table, Pos);
-+ end if;
- end Unregister;
-
- ------------