sinput.ads, [...] (Unlock): New procedure.

[thirdparty/gcc.git] / gcc / ada / elists.adb

diff --git a/gcc/ada/elists.adb b/gcc/ada/elists.adb
index 831f95242ca3929a47d538898e62b84960397948..243b18491bc937e3000a7c6191d4f1615dae9502 100644 (file)
--- a/gcc/ada/elists.adb
+++ b/gcc/ada/elists.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -90,7 +90,7 @@ package body Elists is
 
    package Elists is new Table.Table (
      Table_Component_Type => Elist_Header,
-     Table_Index_Type     => Elist_Id,
+     Table_Index_Type     => Elist_Id'Base,
      Table_Low_Bound      => First_Elist_Id,
      Table_Initial        => Alloc.Elists_Initial,
      Table_Increment      => Alloc.Elists_Increment,
@@ -103,7 +103,7 @@ package body Elists is
 
    package Elmts is new Table.Table (
      Table_Component_Type => Elmt_Item,
-     Table_Index_Type     => Elmt_Id,
+     Table_Index_Type     => Elmt_Id'Base,
      Table_Low_Bound      => First_Elmt_Id,
      Table_Initial        => Alloc.Elmts_Initial,
      Table_Increment      => Alloc.Elmts_Increment,
@@ -482,4 +482,14 @@ package body Elists is
       Elmts.Tree_Write;
    end Tree_Write;
 
+   ------------
+   -- Unlock --
+   ------------
+
+   procedure Unlock is
+   begin
+      Elists.Locked := False;
+      Elmts.Locked := False;
+   end Unlock;
+
 end Elists;