M agpl-event_queues-calendar.ads

mosteo · Jul 3, 2006 · 9dfadc1 · 9dfadc1
1 parent 908a7d7
commit 9dfadc1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/agpl-event_queues-calendar.ads b/agpl-event_queues-calendar.ads
@@ -128,7 +128,7 @@ private
    end Worker;
 
    type Object (Stack_size : Natural := 64 * 1024) is
-      record
+      limited record
          List   : Event_list.Sorted_index;
          Seq    : Id_sequence.Object;
          Waiter : Active_object (Object'Access);