summaryrefslogtreecommitdiff
path: root/gcc/ada/a-cidlli.ads
diff options
context:
space:
mode:
authorBob Duff <duff@adacore.com>2007-08-14 10:45:48 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2007-08-14 10:45:48 +0200
commitf97ccb3a84b27374661fd1f9540efb360d976019 (patch)
tree0e788af9e046a8d5e85a5e51d6780340ded575ef /gcc/ada/a-cidlli.ads
parentb11e8d6fc0722f739630bfabff7d778faae9f1d3 (diff)
downloadgcc-f97ccb3a84b27374661fd1f9540efb360d976019.tar.gz
a-cihama.ads, [...] (Next): Applied pragma Inline.
2007-08-14 Bob Duff <duff@adacore.com> * a-cihama.ads, a-cidlli.ads, a-chtgop.ads, a-chtgop.adb, a-cdlili.ads, a-cihase.adb, a-cihase.ads, a-cohase.adb, a-cohase.ads, a-ciorma.ads, a-coorma.ads, a-ciormu.ads, a-coormu.ads, a-ciorse.ads, a-cohama.ads, a-cohata.ads, a-convec.adb, a-coinve.ads, a-coinve.adb, a-convec.ads, a-coorse.ads (Next): Applied pragma Inline. Make all Containers packages Remote_Types (unless they are already Pure). (Previous): applied pragma Inline (Elements_Type): is now a record instead of an array From-SVN: r127441
Diffstat (limited to 'gcc/ada/a-cidlli.ads')
-rw-r--r--gcc/ada/a-cidlli.ads7
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/a-cidlli.ads b/gcc/ada/a-cidlli.ads
index 178709e2931..4cde43dd860 100644
--- a/gcc/ada/a-cidlli.ads
+++ b/gcc/ada/a-cidlli.ads
@@ -7,7 +7,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
+-- Copyright (C) 2004-2007, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@@ -45,6 +45,7 @@ generic
package Ada.Containers.Indefinite_Doubly_Linked_Lists is
pragma Preelaborate;
+ pragma Remote_Types;
type List is tagged private;
pragma Preelaborable_Initialization (List);
@@ -195,6 +196,10 @@ package Ada.Containers.Indefinite_Doubly_Linked_Lists is
end Generic_Sorting;
private
+
+ pragma Inline (Next);
+ pragma Inline (Previous);
+
type Node_Type;
type Node_Access is access Node_Type;