OSDN Git Service

2006-09-20 Paolo Carlini <pcarlini@suse.de>
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / include / bits / stl_list.h
index a9513f1..e37e5ee 100644 (file)
@@ -1,6 +1,7 @@
 // List implementation -*- C++ -*-
 
-// Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
+// Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
+// Free Software Foundation, Inc.
 //
 // This file is part of the GNU ISO C++ Library.  This library is free
 // software; you can redistribute it and/or modify it under the
@@ -15,7 +16,7 @@
 
 // You should have received a copy of the GNU General Public License along
 // with this library; see the file COPYING.  If not, write to the Free
-// Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
+// Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
 // USA.
 
 // As a special exception, you may use this file as part of a free software
 
 #include <bits/concept_check.h>
 
-namespace __gnu_norm
-{
+_GLIBCXX_BEGIN_NESTED_NAMESPACE(std, _GLIBCXX_STD)
+
   // Supporting structures are split into common and templated types; the
   // latter publicly inherits from the former in an effort to reduce code
   // duplication.  This results in some "needless" static_cast'ing later on,
   // but it's all safe downcasting.
-  
+
   /// @if maint Common part of a node in the %list.  @endif
   struct _List_node_base
   {
     _List_node_base* _M_next;   ///< Self-explanatory
     _List_node_base* _M_prev;   ///< Self-explanatory
+
+    static void
+    swap(_List_node_base& __x, _List_node_base& __y);
+
+    void
+    transfer(_List_node_base * const __first,
+            _List_node_base * const __last);
+
+    void
+    reverse();
+
+    void
+    hook(_List_node_base * const __position);
+
+    void
+    unhook();
   };
-  
+
   /// @if maint An actual node in the %list.  @endif
   template<typename _Tp>
     struct _List_node : public _List_node_base
     {
       _Tp _M_data;                ///< User's data.
     };
-  
-  
+
   /**
-   *  @if maint
-   *  @brief Common part of a list::iterator.
+   *  @brief A list::iterator.
    *
-   *  A simple type to walk a doubly-linked list.  All operations here
-   *  should be self-explanatory after taking any decent introductory
-   *  data structures course.
+   *  @if maint
+   *  All the functions are op overloads.
    *  @endif
   */
-  struct _List_iterator_base
-  {
-    typedef size_t                        size_type;
-    typedef ptrdiff_t                     difference_type;
-    typedef bidirectional_iterator_tag    iterator_category;
-  
-    /// The only member points to the %list element.
-    _List_node_base* _M_node;
-  
-    _List_iterator_base(_List_node_base* __x)
-    : _M_node(__x) { }
-  
-    _List_iterator_base() { }
-  
-    /// Walk the %list forward.
-    void
-    _M_incr()
-    { _M_node = _M_node->_M_next; }
-  
-    /// Walk the %list backward.
-    void
-    _M_decr()
-    { _M_node = _M_node->_M_prev; }
-  
-    bool
-    operator==(const _List_iterator_base& __x) const
-    { return _M_node == __x._M_node; }
-  
-    bool
-    operator!=(const _List_iterator_base& __x) const
-    { return _M_node != __x._M_node; }
-  };
-  
+  template<typename _Tp>
+    struct _List_iterator
+    {
+      typedef _List_iterator<_Tp>                _Self;
+      typedef _List_node<_Tp>                    _Node;
+
+      typedef ptrdiff_t                          difference_type;
+      typedef std::bidirectional_iterator_tag    iterator_category;
+      typedef _Tp                                value_type;
+      typedef _Tp*                               pointer;
+      typedef _Tp&                               reference;
+
+      _List_iterator()
+      : _M_node() { }
+
+      explicit
+      _List_iterator(_List_node_base* __x)
+      : _M_node(__x) { }
+
+      // Must downcast from List_node_base to _List_node to get to _M_data.
+      reference
+      operator*() const
+      { return static_cast<_Node*>(_M_node)->_M_data; }
+
+      pointer
+      operator->() const
+      { return &static_cast<_Node*>(_M_node)->_M_data; }
+
+      _Self&
+      operator++()
+      {
+       _M_node = _M_node->_M_next;
+       return *this;
+      }
+
+      _Self
+      operator++(int)
+      {
+       _Self __tmp = *this;
+       _M_node = _M_node->_M_next;
+       return __tmp;
+      }
+
+      _Self&
+      operator--()
+      {
+       _M_node = _M_node->_M_prev;
+       return *this;
+      }
+
+      _Self
+      operator--(int)
+      {
+       _Self __tmp = *this;
+       _M_node = _M_node->_M_prev;
+       return __tmp;
+      }
+
+      bool
+      operator==(const _Self& __x) const
+      { return _M_node == __x._M_node; }
+
+      bool
+      operator!=(const _Self& __x) const
+      { return _M_node != __x._M_node; }
+
+      // The only member points to the %list element.
+      _List_node_base* _M_node;
+    };
+
   /**
-   *  @brief A list::iterator.
-   *
-   *  In addition to being used externally, a list holds one of these
-   *  internally, pointing to the sequence of data.
+   *  @brief A list::const_iterator.
    *
    *  @if maint
    *  All the functions are op overloads.
    *  @endif
   */
-  template<typename _Tp, typename _Ref, typename _Ptr>
-    struct _List_iterator : public _List_iterator_base
+  template<typename _Tp>
+    struct _List_const_iterator
     {
-      typedef _List_iterator<_Tp,_Tp&,_Tp*>             iterator;
-      typedef _List_iterator<_Tp,const _Tp&,const _Tp*> const_iterator;
-      typedef _List_iterator<_Tp,_Ref,_Ptr>             _Self;
-      
-      typedef _Tp                                       value_type;
-      typedef _Ptr                                      pointer;
-      typedef _Ref                                      reference;
-      typedef _List_node<_Tp>                           _Node;
-      
-      _List_iterator(_Node* __x)
-      : _List_iterator_base(__x) { }
-  
-      _List_iterator() { }
-      
-      _List_iterator(const iterator& __x)
-      : _List_iterator_base(__x._M_node) { }
-  
-      // Must downcast from List_node_base to _List_node to get to _M_data.
+      typedef _List_const_iterator<_Tp>          _Self;
+      typedef const _List_node<_Tp>              _Node;
+      typedef _List_iterator<_Tp>                iterator;
+
+      typedef ptrdiff_t                          difference_type;
+      typedef std::bidirectional_iterator_tag    iterator_category;
+      typedef _Tp                                value_type;
+      typedef const _Tp*                         pointer;
+      typedef const _Tp&                         reference;
+
+      _List_const_iterator()
+      : _M_node() { }
+
+      explicit
+      _List_const_iterator(const _List_node_base* __x)
+      : _M_node(__x) { }
+
+      _List_const_iterator(const iterator& __x)
+      : _M_node(__x._M_node) { }
+
+      // Must downcast from List_node_base to _List_node to get to
+      // _M_data.
       reference
       operator*() const
       { return static_cast<_Node*>(_M_node)->_M_data; }
 
       pointer
       operator->() const
-      { return &(operator*()); }
-      
+      { return &static_cast<_Node*>(_M_node)->_M_data; }
+
       _Self&
       operator++()
       {
-       this->_M_incr();
+       _M_node = _M_node->_M_next;
        return *this;
       }
-      
+
       _Self
       operator++(int)
       {
        _Self __tmp = *this;
-       this->_M_incr();
+       _M_node = _M_node->_M_next;
        return __tmp;
       }
-      
+
       _Self&
       operator--()
       {
-       this->_M_decr();
+       _M_node = _M_node->_M_prev;
        return *this;
       }
-      
+
       _Self
       operator--(int)
       {
        _Self __tmp = *this;
-       this->_M_decr();
-      return __tmp;
+       _M_node = _M_node->_M_prev;
+       return __tmp;
       }
+
+      bool
+      operator==(const _Self& __x) const
+      { return _M_node == __x._M_node; }
+
+      bool
+      operator!=(const _Self& __x) const
+      { return _M_node != __x._M_node; }
+
+      // The only member points to the %list element.
+      const _List_node_base* _M_node;
     };
-  
+
+  template<typename _Val>
+    inline bool
+    operator==(const _List_iterator<_Val>& __x,
+              const _List_const_iterator<_Val>& __y)
+    { return __x._M_node == __y._M_node; }
+
+  template<typename _Val>
+    inline bool
+    operator!=(const _List_iterator<_Val>& __x,
+               const _List_const_iterator<_Val>& __y)
+    { return __x._M_node != __y._M_node; }
+
+
   /**
    *  @if maint
    *  See bits/stl_deque.h's _Deque_base for an explanation.
@@ -204,7 +280,6 @@ namespace __gnu_norm
   */
   template<typename _Tp, typename _Alloc>
     class _List_base
-    : public _Alloc::template rebind<_List_node<_Tp> >::other
     {
     protected:
       // NOTA BENE
@@ -218,44 +293,71 @@ namespace __gnu_norm
       //
       // We put this to the test in the constructors and in
       // get_allocator, where we use conversions between
-      // allocator_type and _Node_Alloc_type. The conversion is
+      // allocator_type and _Node_alloc_type. The conversion is
       // required by table 32 in [20.1.5].
       typedef typename _Alloc::template rebind<_List_node<_Tp> >::other
-      _Node_Alloc_type;
+        _Node_alloc_type;
+
+      typedef typename _Alloc::template rebind<_Tp>::other _Tp_alloc_type;
 
-      _List_node_base _M_node;
+      struct _List_impl 
+      : public _Node_alloc_type
+      {
+       _List_node_base _M_node;
+
+       _List_impl(const _Node_alloc_type& __a)
+       : _Node_alloc_type(__a), _M_node()
+       { }
+      };
+
+      _List_impl _M_impl;
 
       _List_node<_Tp>*
       _M_get_node()
-      { return _Node_Alloc_type::allocate(1); }
+      { return _M_impl._Node_alloc_type::allocate(1); }
       
       void
       _M_put_node(_List_node<_Tp>* __p)
-      { _Node_Alloc_type::deallocate(__p, 1); }
-
+      { _M_impl._Node_alloc_type::deallocate(__p, 1); }
+      
   public:
       typedef _Alloc allocator_type;
 
-      allocator_type 
+      _Node_alloc_type&
+      _M_get_Node_allocator()
+      { return *static_cast<_Node_alloc_type*>(&this->_M_impl); }
+
+      const _Node_alloc_type&
+      _M_get_Node_allocator() const
+      { return *static_cast<const _Node_alloc_type*>(&this->_M_impl); }
+
+      _Tp_alloc_type
+      _M_get_Tp_allocator() const
+      { return _Tp_alloc_type(_M_get_Node_allocator()); }
+
+      allocator_type
       get_allocator() const
-      { return allocator_type(*static_cast<const _Node_Alloc_type*>(this)); }
+      { return allocator_type(_M_get_Node_allocator()); }
 
       _List_base(const allocator_type& __a)
-      : _Node_Alloc_type(__a)
-      {
-       this->_M_node._M_next = &this->_M_node;
-       this->_M_node._M_prev = &this->_M_node;
-      }
-  
+      : _M_impl(__a)
+      { _M_init(); }
+
       // This is what actually destroys the list.
       ~_List_base()
       { _M_clear(); }
-      
+
       void
       _M_clear();
+
+      void
+      _M_init()
+      {
+        this->_M_impl._M_node._M_next = &this->_M_impl._M_node;
+        this->_M_impl._M_node._M_prev = &this->_M_impl._M_node;
+      }
     };
-  
-  
+
   /**
    *  @brief A standard container with linear time access to elements,
    *  and fixed time insertion/deletion at any point in the sequence.
@@ -301,43 +403,42 @@ namespace __gnu_norm
    *  iterator's next/previous pointers refer to itself, the %list is
    *  %empty.  @endif
   */
-  template<typename _Tp, typename _Alloc = allocator<_Tp> >
+  template<typename _Tp, typename _Alloc = std::allocator<_Tp> >
     class list : protected _List_base<_Tp, _Alloc>
     {
       // concept requirements
+      typedef typename _Alloc::value_type                _Alloc_value_type;
       __glibcxx_class_requires(_Tp, _SGIAssignableConcept)
-  
-      typedef _List_base<_Tp, _Alloc>                   _Base;
-  
+      __glibcxx_class_requires2(_Tp, _Alloc_value_type, _SameTypeConcept)
+
+      typedef _List_base<_Tp, _Alloc>                    _Base;
+      typedef typename _Base::_Tp_alloc_type            _Tp_alloc_type;
+
     public:
-      typedef _Tp                                       value_type;
-      typedef value_type*                               pointer;
-      typedef const value_type*                         const_pointer;
-      typedef _List_iterator<_Tp,_Tp&,_Tp*>             iterator;
-      typedef _List_iterator<_Tp,const _Tp&,const _Tp*> const_iterator;
-      typedef std::reverse_iterator<const_iterator>     const_reverse_iterator;
-      typedef std::reverse_iterator<iterator>           reverse_iterator;
-      typedef value_type&                               reference;
-      typedef const value_type&                         const_reference;
-      typedef size_t                                    size_type;
-      typedef ptrdiff_t                                 difference_type;
-      typedef typename _Base::allocator_type            allocator_type;
-  
+      typedef _Tp                                        value_type;
+      typedef typename _Tp_alloc_type::pointer           pointer;
+      typedef typename _Tp_alloc_type::const_pointer     const_pointer;
+      typedef typename _Tp_alloc_type::reference         reference;
+      typedef typename _Tp_alloc_type::const_reference   const_reference;
+      typedef _List_iterator<_Tp>                        iterator;
+      typedef _List_const_iterator<_Tp>                  const_iterator;
+      typedef std::reverse_iterator<const_iterator>      const_reverse_iterator;
+      typedef std::reverse_iterator<iterator>            reverse_iterator;
+      typedef size_t                                     size_type;
+      typedef ptrdiff_t                                  difference_type;
+      typedef _Alloc                                     allocator_type;
+
     protected:
       // Note that pointers-to-_Node's can be ctor-converted to
       // iterator types.
-      typedef _List_node<_Tp>                          _Node;
-  
-      /** @if maint
-       *  One data member plus two memory-handling functions.  If the
-       *  _Alloc type requires separate instances, then one of those
-       *  will also be included, accumulated from the topmost parent.
-       *  @endif
-       */
-      using _Base::_M_node;
+      typedef _List_node<_Tp>                           _Node;
+
+      using _Base::_M_impl;
       using _Base::_M_put_node;
       using _Base::_M_get_node;
-      
+      using _Base::_M_get_Tp_allocator;
+      using _Base::_M_get_Node_allocator;
+
       /**
        *  @if maint
        *  @param  x  An instance of user data.
@@ -349,9 +450,9 @@ namespace __gnu_norm
       _M_create_node(const value_type& __x)
       {
        _Node* __p = this->_M_get_node();
-       try 
+       try
          {
-           std::_Construct(&__p->_M_data, __x);
+           _M_get_Tp_allocator().construct(&__p->_M_data, __x);
          }
        catch(...)
          {
@@ -360,29 +461,7 @@ namespace __gnu_norm
          }
        return __p;
       }
-  
-      /**
-       *  @if maint
-       *  Allocates space for a new node and default-constructs a new
-       *  instance of @c value_type in it.
-       *  @endif
-       */
-      _Node*
-      _M_create_node()
-      {
-       _Node* __p = this->_M_get_node();
-       try 
-         {
-           std::_Construct(&__p->_M_data);
-         }
-       catch(...)
-         {
-           _M_put_node(__p);
-           __throw_exception_again;
-         }
-       return __p;
-      }
-      
+
     public:
       // [23.2.2.1] construct/copy/destroy
       // (assign() and get_allocator() are also listed in this section)
@@ -392,62 +471,50 @@ namespace __gnu_norm
       explicit
       list(const allocator_type& __a = allocator_type())
       : _Base(__a) { }
-  
+
       /**
        *  @brief  Create a %list with copies of an exemplar element.
        *  @param  n  The number of elements to initially create.
        *  @param  value  An element to copy.
-       * 
+       *
        *  This constructor fills the %list with @a n copies of @a value.
        */
-      list(size_type __n, const value_type& __value,
+      explicit
+      list(size_type __n, const value_type& __value = value_type(),
           const allocator_type& __a = allocator_type())
       : _Base(__a)
-      { this->insert(begin(), __n, __value); }
-  
-      /**
-       *  @brief  Create a %list with default elements.
-       *  @param  n  The number of elements to initially create.
-       * 
-       *  This constructor fills the %list with @a n copies of a
-       *  default-constructed element.
-       */
-      explicit
-      list(size_type __n)
-      : _Base(allocator_type())
-      { this->insert(begin(), __n, value_type()); }
-  
+      { _M_fill_initialize(__n, __value); }
+
       /**
        *  @brief  %List copy constructor.
        *  @param  x  A %list of identical element and allocator types.
-       * 
+       *
        *  The newly-created %list uses a copy of the allocation object used
        *  by @a x.
        */
       list(const list& __x)
-      : _Base(__x.get_allocator())
-      { this->insert(begin(), __x.begin(), __x.end()); }
-      
+      : _Base(__x._M_get_Node_allocator())
+      { _M_initialize_dispatch(__x.begin(), __x.end(), __false_type()); }
+
       /**
        *  @brief  Builds a %list from a range.
        *  @param  first  An input iterator.
        *  @param  last  An input iterator.
-       * 
+       *
        *  Create a %list consisting of copies of the elements from
        *  [@a first,@a last).  This is linear in N (where N is
        *  distance(@a first,@a last)).
-       *
-       *  @if maint
-       *  We don't need any dispatching tricks here, because insert does all of
-       *  that anyway.
-       *  @endif
        */
       template<typename _InputIterator>
         list(_InputIterator __first, _InputIterator __last,
             const allocator_type& __a = allocator_type())
         : _Base(__a)
-        { this->insert(begin(), __first, __last); }
-  
+        { 
+         // Check whether it's an integral type.  If so, it's not an iterator.
+         typedef typename std::__is_integer<_InputIterator>::__type _Integral;
+         _M_initialize_dispatch(__first, __last, _Integral());
+       }
+
       /**
        *  No explicit dtor needed as the _Base dtor takes care of
        *  things.  The _Base dtor only erases the elements, and note
@@ -455,17 +522,17 @@ namespace __gnu_norm
        *  memory is not touched in any way.  Managing the pointer is
        *  the user's responsibilty.
        */
-  
+
       /**
        *  @brief  %List assignment operator.
        *  @param  x  A %list of identical element and allocator types.
-       * 
+       *
        *  All the elements of @a x are copied, but unlike the copy
        *  constructor, the allocator object is not copied.
        */
       list&
       operator=(const list& __x);
-      
+
       /**
        *  @brief  Assigns a given value to a %list.
        *  @param  n  Number of elements to be assigned.
@@ -477,9 +544,9 @@ namespace __gnu_norm
        *  of elements assigned.  Old data may be lost.
        */
       void
-      assign(size_type __n, const value_type& __val) 
+      assign(size_type __n, const value_type& __val)
       { _M_fill_assign(__n, __val); }
-      
+
       /**
        *  @brief  Assigns a range to a %list.
        *  @param  first  An input iterator.
@@ -495,73 +562,80 @@ namespace __gnu_norm
       template<typename _InputIterator>
         void
         assign(_InputIterator __first, _InputIterator __last)
-        { 
+        {
          // Check whether it's an integral type.  If so, it's not an iterator.
-         typedef typename _Is_integer<_InputIterator>::_Integral _Integral;
+         typedef typename std::__is_integer<_InputIterator>::__type _Integral;
          _M_assign_dispatch(__first, __last, _Integral());
        }
-  
+
       /// Get a copy of the memory allocation object.
       allocator_type
-      get_allocator() const { return _Base::get_allocator(); }
-      
+      get_allocator() const
+      { return _Base::get_allocator(); }
+
       // iterators
       /**
        *  Returns a read/write iterator that points to the first element in the
        *  %list.  Iteration is done in ordinary element order.
        */
       iterator
-      begin() { return static_cast<_Node*>(this->_M_node._M_next); }
-      
+      begin()
+      { return iterator(this->_M_impl._M_node._M_next); }
+
       /**
        *  Returns a read-only (constant) iterator that points to the
        *  first element in the %list.  Iteration is done in ordinary
        *  element order.
        */
       const_iterator
-      begin() const { return static_cast<_Node*>(this->_M_node._M_next); }
-      
+      begin() const
+      { return const_iterator(this->_M_impl._M_node._M_next); }
+
       /**
        *  Returns a read/write iterator that points one past the last
        *  element in the %list.  Iteration is done in ordinary element
        *  order.
        */
       iterator
-      end() { return static_cast<_Node*>(&this->_M_node); }
-      
+      end()
+      { return iterator(&this->_M_impl._M_node); }
+
       /**
        *  Returns a read-only (constant) iterator that points one past
        *  the last element in the %list.  Iteration is done in ordinary
        *  element order.
        */
       const_iterator
-      end() const 
-      { return const_cast<_Node*>(static_cast<const _Node*>(&this->_M_node)); }
-      
+      end() const
+      { return const_iterator(&this->_M_impl._M_node); }
+
       /**
        *  Returns a read/write reverse iterator that points to the last
        *  element in the %list.  Iteration is done in reverse element
        *  order.
        */
       reverse_iterator
-      rbegin() { return reverse_iterator(end()); }
-      
+      rbegin()
+      { return reverse_iterator(end()); }
+
       /**
        *  Returns a read-only (constant) reverse iterator that points to
        *  the last element in the %list.  Iteration is done in reverse
        *  element order.
        */
       const_reverse_iterator
-      rbegin() const { return const_reverse_iterator(end()); }
-      
+      rbegin() const
+      { return const_reverse_iterator(end()); }
+
       /**
        *  Returns a read/write reverse iterator that points to one
        *  before the first element in the %list.  Iteration is done in
        *  reverse element order.
        */
       reverse_iterator
-      rend() { return reverse_iterator(begin()); }
-      
+      rend()
+      { return reverse_iterator(begin()); }
+
       /**
        *  Returns a read-only (constant) reverse iterator that points to one
        *  before the first element in the %list.  Iteration is done in reverse
@@ -570,23 +644,26 @@ namespace __gnu_norm
       const_reverse_iterator
       rend() const
       { return const_reverse_iterator(begin()); }
-      
+
       // [23.2.2.2] capacity
       /**
        *  Returns true if the %list is empty.  (Thus begin() would equal
        *  end().)
        */
       bool
-      empty() const { return this->_M_node._M_next == &this->_M_node; }
-      
+      empty() const
+      { return this->_M_impl._M_node._M_next == &this->_M_impl._M_node; }
+
       /**  Returns the number of elements in the %list.  */
       size_type
-      size() const { return std::distance(begin(), end()); }
-      
+      size() const
+      { return std::distance(begin(), end()); }
+
       /**  Returns the size() of the largest possible %list.  */
       size_type
-      max_size() const { return size_type(-1); }
-      
+      max_size() const
+      { return _M_get_Tp_allocator().max_size(); }
+
       /**
        *  @brief Resizes the %list to the specified number of elements.
        *  @param new_size Number of elements the %list should contain.
@@ -598,49 +675,49 @@ namespace __gnu_norm
        *  extended and new elements are populated with given data.
        */
       void
-      resize(size_type __new_size, const value_type& __x);
-      
-      /**
-       *  @brief  Resizes the %list to the specified number of elements.
-       *  @param  new_size  Number of elements the %list should contain.
-       *
-       *  This function will resize the %list to the specified number of
-       *  elements.  If the number is smaller than the %list's current
-       *  size the %list is truncated, otherwise the %list is extended
-       *  and new elements are default-constructed.
-       */
-      void
-      resize(size_type __new_size) { this->resize(__new_size, value_type()); }
-      
+      resize(size_type __new_size, value_type __x = value_type());
+
       // element access
       /**
        *  Returns a read/write reference to the data at the first
        *  element of the %list.
        */
       reference
-      front() { return *begin(); }
-      
+      front()
+      { return *begin(); }
+
       /**
        *  Returns a read-only (constant) reference to the data at the first
        *  element of the %list.
        */
       const_reference
-      front() const { return *begin(); }
-      
+      front() const
+      { return *begin(); }
+
       /**
        *  Returns a read/write reference to the data at the last element
        *  of the %list.
        */
       reference
-      back() { return *(--end()); }
-      
+      back()
+      { 
+       iterator __tmp = end();
+       --__tmp;
+       return *__tmp;
+      }
+
       /**
        *  Returns a read-only (constant) reference to the data at the last
        *  element of the %list.
        */
       const_reference
-      back() const { return *(--end()); }
-      
+      back() const
+      { 
+       const_iterator __tmp = end();
+       --__tmp;
+       return *__tmp;
+      }
+
       // [23.2.2.3] modifiers
       /**
        *  @brief  Add data to the front of the %list.
@@ -653,8 +730,9 @@ namespace __gnu_norm
        *  references.
        */
       void
-      push_front(const value_type& __x) { this->insert(begin(), __x); }
-  
+      push_front(const value_type& __x)
+      { this->_M_insert(begin(), __x); }
+
       /**
        *  @brief  Removes first element.
        *
@@ -668,8 +746,9 @@ namespace __gnu_norm
        *  called.
        */
       void
-      pop_front() { this->erase(begin()); }
-      
+      pop_front()
+      { this->_M_erase(begin()); }
+
       /**
        *  @brief  Add data to the end of the %list.
        *  @param  x  Data to be added.
@@ -681,8 +760,9 @@ namespace __gnu_norm
        *  references.
        */
       void
-      push_back(const value_type& __x) { this->insert(end(), __x); }
-      
+      push_back(const value_type& __x)
+      { this->_M_insert(end(), __x); }
+
       /**
        *  @brief  Removes last element.
        *
@@ -696,11 +776,8 @@ namespace __gnu_norm
        */
       void
       pop_back()
-      {
-       iterator __tmp = end();
-       this->erase(--__tmp);
-      }
-      
+      { this->_M_erase(iterator(this->_M_impl._M_node._M_prev)); }
+
       /**
        *  @brief  Inserts given value into %list before specified iterator.
        *  @param  position  An iterator into the %list.
@@ -714,7 +791,7 @@ namespace __gnu_norm
        */
       iterator
       insert(iterator __position, const value_type& __x);
-      
+
       /**
        *  @brief  Inserts a number of copies of given data into the %list.
        *  @param  position  An iterator into the %list.
@@ -724,14 +801,16 @@ namespace __gnu_norm
        *  This function will insert a specified number of copies of the
        *  given data before the location specified by @a position.
        *
-       *  Due to the nature of a %list this operation can be done in
-       *  constant time, and does not invalidate iterators and
-       *  references.
+       *  This operation is linear in the number of elements inserted and
+       *  does not invalidate iterators and references.
        */
       void
       insert(iterator __position, size_type __n, const value_type& __x)
-      { _M_fill_insert(__position, __n, __x); }
-      
+      {  
+       list __tmp(__n, __x, _M_get_Node_allocator());
+       splice(__position, __tmp);
+      }
+
       /**
        *  @brief  Inserts a range into the %list.
        *  @param  position  An iterator into the %list.
@@ -742,20 +821,18 @@ namespace __gnu_norm
        *  first,@a last) into the %list before the location specified by
        *  @a position.
        *
-       *  Due to the nature of a %list this operation can be done in
-       *  constant time, and does not invalidate iterators and
-       *  references.
+       *  This operation is linear in the number of elements inserted and
+       *  does not invalidate iterators and references.
        */
       template<typename _InputIterator>
         void
-        insert(iterator __position, _InputIterator __first, 
+        insert(iterator __position, _InputIterator __first,
               _InputIterator __last)
         {
-         // Check whether it's an integral type.  If so, it's not an iterator.
-         typedef typename _Is_integer<_InputIterator>::_Integral _Integral;
-         _M_insert_dispatch(__position, __first, __last, _Integral());
+         list __tmp(__first, __last, _M_get_Node_allocator());
+         splice(__position, __tmp);
        }
-      
+
       /**
        *  @brief  Remove element at given position.
        *  @param  position  Iterator pointing to element to be erased.
@@ -773,7 +850,7 @@ namespace __gnu_norm
        */
       iterator
       erase(iterator __position);
-  
+
       /**
        *  @brief  Remove a range of elements.
        *  @param  first  Iterator pointing to the first element to be erased.
@@ -785,22 +862,21 @@ namespace __gnu_norm
        *  This function will erase the elements in the range @a
        *  [first,last) and shorten the %list accordingly.
        *
-       *  Due to the nature of a %list this operation can be done in
-       *  constant time, and only invalidates iterators/references to
-       *  the element being removed.  The user is also cautioned that
-       *  this function only erases the elements, and that if the
-       *  elements themselves are pointers, the pointed-to memory is not
-       *  touched in any way.  Managing the pointer is the user's
-       *  responsibilty.
+       *  This operation is linear time in the size of the range and only
+       *  invalidates iterators/references to the element being removed.
+       *  The user is also cautioned that this function only erases the
+       *  elements, and that if the elements themselves are pointers, the
+       *  pointed-to memory is not touched in any way.  Managing the pointer
+       *  is the user's responsibilty.
        */
       iterator
       erase(iterator __first, iterator __last)
       {
        while (__first != __last)
-         erase(__first++);
+         __first = erase(__first);
        return __last;
       }
-  
+
       /**
        *  @brief  Swaps data with another %list.
        *  @param  x  A %list of the same element and allocator types.
@@ -811,8 +887,16 @@ namespace __gnu_norm
        *  function.
        */
       void
-      swap(list& __x);
-  
+      swap(list& __x)
+      {
+       _List_node_base::swap(this->_M_impl._M_node, __x._M_impl._M_node);
+
+       // _GLIBCXX_RESOLVE_LIB_DEFECTS
+       // 431. Swapping containers with unequal allocators.
+       std::__alloc_swap<typename _Base::_Node_alloc_type>::
+         _S_do_it(_M_get_Node_allocator(), __x._M_get_Node_allocator());
+      }
+
       /**
        *  Erases all the elements.  Note that this function only erases
        *  the elements, and that if the elements themselves are
@@ -820,8 +904,12 @@ namespace __gnu_norm
        *  Managing the pointer is the user's responsibilty.
        */
       void
-      clear() { _Base::_M_clear(); }
-  
+      clear()
+      {
+        _Base::_M_clear();
+        _Base::_M_init();
+      }
+
       // [23.2.2.4] list operations
       /**
        *  @brief  Insert contents of another %list.
@@ -831,14 +919,20 @@ namespace __gnu_norm
        *  The elements of @a x are inserted in constant time in front of
        *  the element referenced by @a position.  @a x becomes an empty
        *  list.
+       *
+       *  Requires this != @a x.
        */
       void
       splice(iterator __position, list& __x)
       {
        if (!__x.empty())
-         this->_M_transfer(__position, __x.begin(), __x.end());
+         {
+           _M_check_equal_allocators(__x);
+
+           this->_M_transfer(__position, __x.begin(), __x.end());
+         }
       }
-  
+
       /**
        *  @brief  Insert element from another %list.
        *  @param  position  Iterator referencing the element to insert before.
@@ -849,14 +943,19 @@ namespace __gnu_norm
        *  inserts it into the current list before @a position.
        */
       void
-      splice(iterator __position, list&, iterator __i)
+      splice(iterator __position, list& __x, iterator __i)
       {
        iterator __j = __i;
        ++__j;
-       if (__position == __i || __position == __j) return;
+       if (__position == __i || __position == __j)
+         return;
+
+       if (this != &__x)
+         _M_check_equal_allocators(__x);
+
        this->_M_transfer(__position, __i, __j);
       }
-  
+
       /**
        *  @brief  Insert range from another %list.
        *  @param  position  Iterator referencing the element to insert before.
@@ -870,12 +969,17 @@ namespace __gnu_norm
        *  Undefined if @a position is in [first,last).
        */
       void
-      splice(iterator __position, list&, iterator __first, iterator __last)
+      splice(iterator __position, list& __x, iterator __first, iterator __last)
       {
        if (__first != __last)
-         this->_M_transfer(__position, __first, __last);
+         {
+           if (this != &__x)
+             _M_check_equal_allocators(__x);
+
+           this->_M_transfer(__position, __first, __last);
+         }
       }
-  
+
       /**
        *  @brief  Remove all elements equal to value.
        *  @param  value  The value to remove.
@@ -889,7 +993,7 @@ namespace __gnu_norm
        */
       void
       remove(const _Tp& __value);
-  
+
       /**
        *  @brief  Remove all elements satisfying a predicate.
        *  @param  Predicate  Unary predicate function or object.
@@ -902,9 +1006,9 @@ namespace __gnu_norm
        *  responsibilty.
        */
       template<typename _Predicate>
-      void
-      remove_if(_Predicate);
-  
+        void
+        remove_if(_Predicate);
+
       /**
        *  @brief  Remove consecutive duplicate elements.
        *
@@ -917,7 +1021,7 @@ namespace __gnu_norm
        */
       void
       unique();
-  
+
       /**
        *  @brief  Remove consecutive elements satisfying a predicate.
        *  @param  BinaryPredicate  Binary predicate function or object.
@@ -933,7 +1037,7 @@ namespace __gnu_norm
       template<typename _BinaryPredicate>
         void
         unique(_BinaryPredicate);
-  
+
       /**
        *  @brief  Merge sorted lists.
        *  @param  x  Sorted list to merge.
@@ -945,7 +1049,7 @@ namespace __gnu_norm
        */
       void
       merge(list& __x);
-  
+
       /**
        *  @brief  Merge sorted lists according to comparison function.
        *  @param  x  Sorted list to merge.
@@ -961,15 +1065,16 @@ namespace __gnu_norm
       template<typename _StrictWeakOrdering>
         void
         merge(list&, _StrictWeakOrdering);
-  
+
       /**
        *  @brief  Reverse the elements in list.
        *
        *  Reverse the order of elements in the list in linear time.
        */
       void
-      reverse() { __List_base_reverse(&this->_M_node); }
-  
+      reverse()
+      { this->_M_impl._M_node.reverse(); }
+
       /**
        *  @brief  Sort the elements.
        *
@@ -978,7 +1083,7 @@ namespace __gnu_norm
        */
       void
       sort();
-  
+
       /**
        *  @brief  Sort the elements according to comparison function.
        *
@@ -988,10 +1093,41 @@ namespace __gnu_norm
       template<typename _StrictWeakOrdering>
         void
         sort(_StrictWeakOrdering);
-  
+
     protected:
+      // Internal constructor functions follow.
+
+      // Called by the range constructor to implement [23.1.1]/9
+      template<typename _Integer>
+        void
+        _M_initialize_dispatch(_Integer __n, _Integer __x, __true_type)
+        {
+         _M_fill_initialize(static_cast<size_type>(__n),
+                            static_cast<value_type>(__x));
+       }
+
+      // Called by the range constructor to implement [23.1.1]/9
+      template<typename _InputIterator>
+        void
+        _M_initialize_dispatch(_InputIterator __first, _InputIterator __last,
+                              __false_type)
+        {
+         for (; __first != __last; ++__first)
+           push_back(*__first);
+       }
+
+      // Called by list(n,v,a), and the range constructor when it turns out
+      // to be the same thing.
+      void
+      _M_fill_initialize(size_type __n, const value_type& __x)
+      {
+       for (; __n > 0; --__n)
+         push_back(__x);
+      }
+
+
       // Internal assign functions follow.
-      
+
       // Called by the range assign to implement [23.1.1]/9
       template<typename _Integer>
         void
@@ -1000,73 +1136,51 @@ namespace __gnu_norm
          _M_fill_assign(static_cast<size_type>(__n),
                         static_cast<value_type>(__val));
        }
-  
+
       // Called by the range assign to implement [23.1.1]/9
       template<typename _InputIterator>
         void
-        _M_assign_dispatch(_InputIterator __first, _InputIterator __last, 
+        _M_assign_dispatch(_InputIterator __first, _InputIterator __last,
                           __false_type);
-  
+
       // Called by assign(n,t), and the range assign when it turns out
       // to be the same thing.
       void
       _M_fill_assign(size_type __n, const value_type& __val);
-      
-      
-      // Internal insert functions follow.
-      
-      // Called by the range insert to implement [23.1.1]/9
-      template<typename _Integer>
-        void
-        _M_insert_dispatch(iterator __pos, _Integer __n, _Integer __x,
-                          __true_type)
-        {
-         _M_fill_insert(__pos, static_cast<size_type>(__n),
-                        static_cast<value_type>(__x));
-       }
-      
-      // Called by the range insert to implement [23.1.1]/9
-      template<typename _InputIterator>
-        void
-        _M_insert_dispatch(iterator __pos,
-                          _InputIterator __first, _InputIterator __last,
-                          __false_type)
-        {
-         for ( ; __first != __last; ++__first)
-           insert(__pos, *__first);
-       }
-      
-      // Called by insert(p,n,x), and the range insert when it turns out
-      // to be the same thing.
+
+
+      // Moves the elements from [first,last) before position.
+      void
+      _M_transfer(iterator __position, iterator __first, iterator __last)
+      { __position._M_node->transfer(__first._M_node, __last._M_node); }
+
+      // Inserts new element at position given and with value given.
       void
-      _M_fill_insert(iterator __pos, size_type __n, const value_type& __x)
+      _M_insert(iterator __position, const value_type& __x)
       {
-       for ( ; __n > 0; --__n)
-         insert(__pos, __x);
+        _Node* __tmp = _M_create_node(__x);
+        __tmp->hook(__position._M_node);
       }
-      
-      
-      // Moves the elements from [first,last) before position.
+
+      // Erases element at position given.
       void
-      _M_transfer(iterator __position, iterator __first, iterator __last)
+      _M_erase(iterator __position)
       {
-       if (__position != __last) 
-         {
-           // Remove [first, last) from its old position.
-           __last._M_node->_M_prev->_M_next     = __position._M_node;
-           __first._M_node->_M_prev->_M_next    = __last._M_node;
-           __position._M_node->_M_prev->_M_next = __first._M_node;
-           
-           // Splice [first, last) into its new position.
-           _List_node_base* __tmp      = __position._M_node->_M_prev;
-           __position._M_node->_M_prev = __last._M_node->_M_prev;
-           __last._M_node->_M_prev     = __first._M_node->_M_prev;
-           __first._M_node->_M_prev    = __tmp;
-         }
+        __position._M_node->unhook();
+        _Node* __n = static_cast<_Node*>(__position._M_node);
+        _M_get_Tp_allocator().destroy(&__n->_M_data);
+        _M_put_node(__n);
+      }
+
+      // To implement the splice (and merge) bits of N1599.
+      void
+      _M_check_equal_allocators(list& __x)
+      {
+       if (_M_get_Node_allocator() != __x._M_get_Node_allocator())
+         __throw_runtime_error(__N("list::_M_check_equal_allocators"));
       }
     };
-  
-  
+
   /**
    *  @brief  List equality comparison.
    *  @param  x  A %list.
@@ -1079,22 +1193,22 @@ namespace __gnu_norm
   */
   template<typename _Tp, typename _Alloc>
     inline bool
-    operator==(const list<_Tp,_Alloc>& __x, const list<_Tp,_Alloc>& __y)
+    operator==(const list<_Tp, _Alloc>& __x, const list<_Tp, _Alloc>& __y)
     {
-      typedef typename list<_Tp,_Alloc>::const_iterator const_iterator;
+      typedef typename list<_Tp, _Alloc>::const_iterator const_iterator;
       const_iterator __end1 = __x.end();
       const_iterator __end2 = __y.end();
-  
+
       const_iterator __i1 = __x.begin();
       const_iterator __i2 = __y.begin();
-      while (__i1 != __end1 && __i2 != __end2 && *__i1 == *__i2) 
+      while (__i1 != __end1 && __i2 != __end2 && *__i1 == *__i2)
        {
          ++__i1;
          ++__i2;
-      }
+       }
       return __i1 == __end1 && __i2 == __end2;
     }
-  
+
   /**
    *  @brief  List ordering relation.
    *  @param  x  A %list.
@@ -1108,41 +1222,41 @@ namespace __gnu_norm
   */
   template<typename _Tp, typename _Alloc>
     inline bool
-    operator<(const list<_Tp,_Alloc>& __x, const list<_Tp,_Alloc>& __y)
-    {
-      return std::lexicographical_compare(__x.begin(), __x.end(),
-                                         __y.begin(), __y.end());
-    }
-  
+    operator<(const list<_Tp, _Alloc>& __x, const list<_Tp, _Alloc>& __y)
+    { return std::lexicographical_compare(__x.begin(), __x.end(),
+                                         __y.begin(), __y.end()); }
+
   /// Based on operator==
   template<typename _Tp, typename _Alloc>
     inline bool
-    operator!=(const list<_Tp,_Alloc>& __x, const list<_Tp,_Alloc>& __y)
+    operator!=(const list<_Tp, _Alloc>& __x, const list<_Tp, _Alloc>& __y)
     { return !(__x == __y); }
-  
+
   /// Based on operator<
   template<typename _Tp, typename _Alloc>
     inline bool
-    operator>(const list<_Tp,_Alloc>& __x, const list<_Tp,_Alloc>& __y)
+    operator>(const list<_Tp, _Alloc>& __x, const list<_Tp, _Alloc>& __y)
     { return __y < __x; }
-  
+
   /// Based on operator<
   template<typename _Tp, typename _Alloc>
     inline bool
-    operator<=(const list<_Tp,_Alloc>& __x, const list<_Tp,_Alloc>& __y)
+    operator<=(const list<_Tp, _Alloc>& __x, const list<_Tp, _Alloc>& __y)
     { return !(__y < __x); }
-  
+
   /// Based on operator<
   template<typename _Tp, typename _Alloc>
     inline bool
-    operator>=(const list<_Tp,_Alloc>& __x, const list<_Tp,_Alloc>& __y)
+    operator>=(const list<_Tp, _Alloc>& __x, const list<_Tp, _Alloc>& __y)
     { return !(__x < __y); }
-  
+
   /// See std::list::swap().
   template<typename _Tp, typename _Alloc>
     inline void
     swap(list<_Tp, _Alloc>& __x, list<_Tp, _Alloc>& __y)
     { __x.swap(__y); }
-} // namespace __gnu_norm
+
+_GLIBCXX_END_NESTED_NAMESPACE
 
 #endif /* _LIST_H */
+