procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

valarray_array.h (__valarray_get_storage): New function.

Browse source 
2000-07-15  Gabriel Dos Reis  <gdr@codesourcery.com>

	* bits/valarray_array.h (__valarray_get_storage): New function.
	(_Array<>::Array): Use it.
	* bits/std_valarray.h (valarray<>::valarray): Likewise.
	(valarray<>::resize): Likewise.  Tweak.
	* src/valarray-inst.cc (__valarray_product): Tweak.

From-SVN: r35053
This commit is contained in:
Gabriel Dos Reis 2000-07-15 20:07:45 +00:00 • committed by Gabriel Dos Reis
parent 2c0accc920
commit d4c4ae6f2f
4 changed files with 50 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
libstdc++-v3/ChangeLog
View file

@ -1,3 +1,11 @@
2000-07-15 Gabriel Dos Reis <gdr@codesourcery.com>
* bits/valarray_array.h (__valarray_get_storage): New function.
(_Array<>::Array): Use it.
* bits/std_valarray.h (valarray<>::valarray): Likewise.
(valarray<>::resize): Likewise. Tweak.
* src/valarray-inst.cc (__valarray_product): Tweak.
2000-07-11 Phil Edwards <pme@sourceware.cygnus.com>
* docs: Update sourceware->sources in every HTML file. Minor updates.

78
libstdc++-v3/bits/std_valarray.h
View file

@ -259,78 +259,61 @@ namespace std {
template<typename _Tp>
inline valarray<_Tp>::valarray (size_t __n)
: _M_size(__n),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_get_memory(__n * sizeof (_Tp))))
: _M_size(__n), _M_data(__valarray_get_storage<_Tp>(__n))
{ __valarray_default_construct(_M_data, _M_data + __n); }
template<typename _Tp>
inline valarray<_Tp>::valarray (const _Tp& __t, size_t __n)
: _M_size(__n),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_get_memory(__n * sizeof (_Tp))))
: _M_size(__n), _M_data(__valarray_get_storage<_Tp>(__n))
{ __valarray_fill_construct (_M_data, _M_data + __n, __t); }
template<typename _Tp>
inline valarray<_Tp>::valarray (const _Tp* __restrict__ __p, size_t __n)
: _M_size(__n),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_get_memory(__n * sizeof (_Tp))))
: _M_size(__n), _M_data(__valarray_get_storage<_Tp>(__n))
{ __valarray_copy_construct (__p, __p + __n, _M_data); }
template<typename _Tp>
inline valarray<_Tp>::valarray (const valarray<_Tp>& __v)
: _M_size(__v._M_size),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_get_memory(__v._M_size * sizeof (_Tp))))
: _M_size(__v._M_size), _M_data(__valarray_get_storage<_Tp>(__v._M_size))
{ __valarray_copy_construct (__v._M_data, __v._M_data + _M_size, _M_data); }
template<typename _Tp>
inline valarray<_Tp>::valarray (const slice_array<_Tp>& __sa)
: _M_size(__sa._M_sz),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_get_memory(__sa._M_sz * sizeof (_Tp))))
: _M_size(__sa._M_sz), _M_data(__valarray_get_storage<_Tp>(__sa._M_sz))
{
__valarray_copy_construct
(__sa._M_array, __sa._M_sz, __sa._M_stride, _Array<_Tp>(_M_data));
__valarray_copy_construct
(__sa._M_array, __sa._M_sz, __sa._M_stride, _Array<_Tp>(_M_data));
}
template<typename _Tp>
inline valarray<_Tp>::valarray (const gslice_array<_Tp>& __ga)
: _M_size(__ga._M_index.size()),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_get_memory(_M_size * sizeof (_Tp))))
: _M_size(__ga._M_index.size()),
_M_data(__valarray_get_storage<_Tp>(_M_size))
{
__valarray_copy_construct
(__ga._M_array, _Array<size_t>(__ga._M_index),
_Array<_Tp>(_M_data), _M_size);
__valarray_copy_construct
(__ga._M_array, _Array<size_t>(__ga._M_index),
_Array<_Tp>(_M_data), _M_size);
}
template<typename _Tp>
inline valarray<_Tp>::valarray (const mask_array<_Tp>& __ma)
: _M_size(__ma._M_sz),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_get_memory(__ma._M_sz * sizeof (_Tp))))
: _M_size(__ma._M_sz), _M_data(__valarray_get_storage<_Tp>(__ma._M_sz))
{
__valarray_copy_construct
(__ma._M_array, __ma._M_mask, _Array<_Tp>(_M_data), _M_size);
__valarray_copy_construct
(__ma._M_array, __ma._M_mask, _Array<_Tp>(_M_data), _M_size);
}
template<typename _Tp>
inline valarray<_Tp>::valarray (const indirect_array<_Tp>& __ia)
: _M_size(__ia._M_sz),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_get_memory(__ia._M_sz * sizeof (_Tp))))
: _M_size(__ia._M_sz), _M_data(__valarray_get_storage<_Tp>(__ia._M_sz))
{
__valarray_copy_construct
(__ia._M_array, __ia._M_index, _Array<_Tp>(_M_data), _M_size);
__valarray_copy_construct
(__ia._M_array, __ia._M_index, _Array<_Tp>(_M_data), _M_size);
}
template<typename _Tp> template<class _Dom>
inline valarray<_Tp>::valarray (const _Expr<_Dom, _Tp>& __e)
: _M_size(__e.size ()),
_M_data(static_cast<_Tp*__restrict__>
(__valarray_copy_construct(_M_size * sizeof (_Tp))))
: _M_size(__e.size ()), _M_data(__valarray_get_storage<_Tp>(_M_size))
{ __valarray_copy_construct (__e, _M_size, _Array<_Tp>(_M_data)); }
template<typename _Tp>
@ -536,20 +519,17 @@ namespace std {
inline void
valarray<_Tp>::resize (size_t __n, _Tp __c)
{
if (_M_size != __n) {
__valarray_destroy_elements(_M_data, _M_data + _M_size);
__valarray_release_memory(_M_data);
_M_size = __n;
_M_data = static_cast<_Tp*__restrict__>
(__valarray_get_memory(__n * sizeof (_Tp)));
__valarray_fill_construct(_M_data, _M_data + __n, __c);
}
else {
// this is so to make valarray<valarray<T> > work
// even though it is not required by the standard.
__valarray_destroy_elements(_M_data, _M_data + _M_size);
__valarray_fill_construct(_M_data, _M_data + _M_size, __c);
// This complication is so to make valarray<valarray<T> > work
// even though it is not required by the standard. Nobody should
// be saying valarray<valarray<T> > anyway. See the specs.
__valarray_destroy_elements(_M_data, _M_data + _M_size);
if (_M_size != __n)
{
__valarray_release_memory(_M_data);
_M_size = __n;
_M_data = __valarray_get_storage<_Tp>(__n);
}
__valarray_fill_construct(_M_data, _M_data + __n, __c);
}
template<typename _Tp>

12
libstdc++-v3/bits/valarray_array.h
View file

@ -50,6 +50,14 @@ namespace std
__valarray_get_memory(size_t __n)
{ return operator new(__n); }
template<typename _Tp>
inline _Tp*__restrict__
__valarray_get_storage(size_t __n)
{
return static_cast<_Tp*__restrict__>
(__valarray_get_memory(__n * sizeof(_Tp)));
}
// Return memory to the system
inline void
__valarray_release_memory(void* __p)
@ -352,7 +360,7 @@ namespace std
template<typename _Tp>
inline
_Array<_Tp>::_Array (size_t __n)
: _M_data(__valarray_get_memory(__n * sizeof (_Tp)))
: _M_data(__valarray_get_storage<_Tp>(__n))
{ __valarray_default_construct(_M_data, _M_data + __n); }
template<typename _Tp>
@ -366,7 +374,7 @@ namespace std
template<typename _Tp>
inline
_Array<_Tp>::_Array (const _Tp* __restrict__ __b, size_t __s)
: _M_data(__valarray_get_memory(__s * sizeof (_Tp)))
: _M_data(__valarray_get_storage<_Tp>(__s))
{ __valarray_copy_construct(__b, __s, _M_data); }
template<typename _Tp>

7
libstdc++-v3/src/valarray-inst.cc
View file

@ -22,14 +22,13 @@ namespace std
inline size_t
__valarray_product(const valarray<size_t>& __a)
{
typedef const size_t* __restrict__ _Tp;
const size_t __n = __a.size();
// XXX: This ugly cast is necessary because
// valarray::operator[]() const return a VALUE!
// Try to get the committee to correct that gross error.
typedef const size_t* __restrict__ _Tp;
size_t __n = __a.size() - 1;
valarray<size_t>& __t = const_cast<valarray<size_t>&>(__a);
return __valarray_product(static_cast<_Tp>(&__t[0]),
static_cast<_Tp>(&__t[__n]));
return __valarray_product(&__t[0], &__t[0] + __n);
}
void __gslice_to_index(size_t __o, const valarray<size_t>& __l,