Initial import from the monolithic Qt.

This is the beginning of revision history for this module. If you
want to look at revision history older than this, please refer to the
Qt Git wiki for how to use Git history grafting. At the time of
writing, this wiki is located here:

http://qt.gitorious.org/qt/pages/GitIntroductionWithQt

If you have already performed the grafting and you don't see any
history beyond this commit, try running "git log" with the "--follow"
argument.

Branched from the monolithic repo, Qt master branch, at commit
896db169ea224deb96c59ce8af800d019de63f12

1 files changed, 426 insertions, 0 deletions

diff --git a/src/corelib/arch/qatomic_s390.h b/src/corelib/arch/qatomic_s390.h
new file mode 100644
index 0000000000..552ebe43fe
--- /dev/null
+++ b/src/corelib/arch/qatomic_s390.h
@@ -0,0 +1,426 @@
+/****************************************************************************
+**
+** Copyright (C) 2011 Nokia Corporation and/or its subsidiary(-ies).
+** All rights reserved.
+** Contact: Nokia Corporation (qt-info@nokia.com)
+**
+** This file is part of the QtCore module of the Qt Toolkit.
+**
+** $QT_BEGIN_LICENSE:LGPL$
+** No Commercial Usage
+** This file contains pre-release code and may not be distributed.
+** You may use this file in accordance with the terms and conditions
+** contained in the Technology Preview License Agreement accompanying
+** this package.
+**
+** GNU Lesser General Public License Usage
+** Alternatively, this file may be used under the terms of the GNU Lesser
+** General Public License version 2.1 as published by the Free Software
+** Foundation and appearing in the file LICENSE.LGPL included in the
+** packaging of this file.  Please review the following information to
+** ensure the GNU Lesser General Public License version 2.1 requirements
+** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
+**
+** In addition, as a special exception, Nokia gives you certain additional
+** rights.  These rights are described in the Nokia Qt LGPL Exception
+** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
+**
+** If you have questions regarding the use of this file, please contact
+** Nokia at qt-info@nokia.com.
+**
+**
+**
+**
+**
+**
+**
+**
+** $QT_END_LICENSE$
+**
+****************************************************************************/
+
+#ifndef QATOMIC_S390_H
+#define QATOMIC_S390_H
+
+QT_BEGIN_HEADER
+
+QT_BEGIN_NAMESPACE
+
+#define Q_ATOMIC_INT_REFERENCE_COUNTING_IS_ALWAYS_NATIVE
+
+inline bool QBasicAtomicInt::isReferenceCountingNative()
+{ return true; }
+inline bool QBasicAtomicInt::isReferenceCountingWaitFree()
+{ return false; }
+
+#define Q_ATOMIC_INT_TEST_AND_SET_IS_ALWAYS_NATIVE
+
+inline bool QBasicAtomicInt::isTestAndSetNative()
+{ return true; }
+inline bool QBasicAtomicInt::isTestAndSetWaitFree()
+{ return false; }
+
+#define Q_ATOMIC_INT_FETCH_AND_STORE_IS_ALWAYS_NATIVE
+
+inline bool QBasicAtomicInt::isFetchAndStoreNative()
+{ return true; }
+inline bool QBasicAtomicInt::isFetchAndStoreWaitFree()
+{ return false; }
+
+#define Q_ATOMIC_INT_FETCH_AND_ADD_IS_ALWAYS_NATIVE
+
+inline bool QBasicAtomicInt::isFetchAndAddNative()
+{ return true; }
+inline bool QBasicAtomicInt::isFetchAndAddWaitFree()
+{ return false; }
+
+#define Q_ATOMIC_POINTER_TEST_AND_SET_IS_ALWAYS_NATIVE
+
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::isTestAndSetNative()
+{ return true; }
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::isTestAndSetWaitFree()
+{ return false; }
+
+#define Q_ATOMIC_POINTER_FETCH_AND_STORE_IS_ALWAYS_NATIVE
+
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::isFetchAndStoreNative()
+{ return true; }
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::isFetchAndStoreWaitFree()
+{ return false; }
+
+#define Q_ATOMIC_POINTER_FETCH_AND_ADD_IS_ALWAYS_NATIVE
+
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::isFetchAndAddNative()
+{ return true; }
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::isFetchAndAddWaitFree()
+{ return false; }
+
+#ifdef __GNUC__
+#define __GNU_EXTENSION __extension__
+#else
+#define __GNU_EXTENSION
+#endif
+
+#define __CS_LOOP(ptr, op_val, op_string, pre, post) __GNU_EXTENSION ({   \
+	volatile int old_val, new_val;					\
+        __asm__ __volatile__(pre                                        \
+                             "   l     %0,0(%3)\n"                      \
+                             "0: lr    %1,%0\n"				\
+                             op_string "  %1,%4\n"			\
+                             "   cs    %0,%1,0(%3)\n"			\
+                             "   jl    0b\n"				\
+                             post                                       \
+                             : "=&d" (old_val), "=&d" (new_val),	\
+			       "=m" (*ptr)	\
+			     : "a" (ptr), "d" (op_val),			\
+			       "m" (*ptr)	\
+			     : "cc", "memory" );			\
+	new_val;							\
+})
+
+#define __CS_OLD_LOOP(ptr, op_val, op_string, pre, post ) __GNU_EXTENSION ({ \
+	volatile int old_val, new_val;					\
+        __asm__ __volatile__(pre                                        \
+                             "   l     %0,0(%3)\n"			\
+                             "0: lr    %1,%0\n"				\
+                             op_string "  %1,%4\n"			\
+                             "   cs    %0,%1,0(%3)\n"			\
+                             "   jl    0b\n"				\
+                             post                                       \
+                             : "=&d" (old_val), "=&d" (new_val),	\
+			       "=m" (*ptr)	\
+			     : "a" (ptr), "d" (op_val),			\
+			       "m" (*ptr)	\
+			     : "cc", "memory" );			\
+	old_val;							\
+})
+
+#ifdef __s390x__
+#define __CSG_OLD_LOOP(ptr, op_val, op_string, pre, post) __GNU_EXTENSION ({ \
+	long old_val, new_val;						\
+        __asm__ __volatile__(pre                                        \
+                             "   lg    %0,0(%3)\n"                      \
+                             "0: lgr   %1,%0\n"				\
+                             op_string "  %1,%4\n"			\
+                             "   csg   %0,%1,0(%3)\n"			\
+                             "   jl    0b\n"				\
+                             post                                       \
+                             : "=&d" (old_val), "=&d" (new_val),	\
+			       "=m" (*ptr)	\
+			     : "a" (ptr), "d" (op_val),			\
+			       "m" (*ptr)	\
+			     : "cc", "memory" );			\
+	old_val;							\
+})
+#endif
+
+inline bool QBasicAtomicInt::ref()
+{
+    return __CS_LOOP(&_q_value, 1, "ar", "", "") != 0;
+}
+
+inline bool QBasicAtomicInt::deref()
+{
+    return __CS_LOOP(&_q_value, 1, "sr", "", "") != 0;
+}
+
+inline bool QBasicAtomicInt::testAndSetRelaxed(int expectedValue, int newValue)
+{
+    int retval;
+    __asm__ __volatile__(
+                         "  lr   %0,%3\n"
+                         "  cs   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+    return retval == 0;
+}
+
+inline bool QBasicAtomicInt::testAndSetAcquire(int expectedValue, int newValue)
+{
+    int retval;
+    __asm__ __volatile__(
+                         "  lr   %0,%3\n"
+                         "  cs   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:\n"
+                         "  bcr 15,0\n"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+    return retval == 0;
+}
+
+inline bool QBasicAtomicInt::testAndSetRelease(int expectedValue, int newValue)
+{
+    int retval;
+    __asm__ __volatile__(
+                         "  bcr 15,0\n"
+                         "  lr   %0,%3\n"
+                         "  cs   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+    return retval == 0;
+}
+
+inline bool QBasicAtomicInt::testAndSetOrdered(int expectedValue, int newValue)
+{
+    return testAndSetAcquire(expectedValue, newValue);
+}
+
+inline int QBasicAtomicInt::fetchAndStoreRelaxed(int newValue)
+{
+    return __CS_OLD_LOOP(&_q_value, newValue, "lr", "", "");
+}
+
+inline int QBasicAtomicInt::fetchAndStoreAcquire(int newValue)
+{
+    return __CS_OLD_LOOP(&_q_value, newValue, "lr", "", "bcr 15,0\n");
+}
+
+inline int QBasicAtomicInt::fetchAndStoreRelease(int newValue)
+{
+    return __CS_OLD_LOOP(&_q_value, newValue, "lr", "bcr 15,0\n", "");
+}
+
+inline int QBasicAtomicInt::fetchAndStoreOrdered(int newValue)
+{
+    return fetchAndStoreAcquire(newValue);
+}
+
+inline int QBasicAtomicInt::fetchAndAddRelaxed(int valueToAdd)
+{
+    return fetchAndAddOrdered(valueToAdd);
+}
+
+inline int QBasicAtomicInt::fetchAndAddAcquire(int valueToAdd)
+{
+    return fetchAndAddOrdered(valueToAdd);
+}
+
+inline int QBasicAtomicInt::fetchAndAddRelease(int valueToAdd)
+{
+    return fetchAndAddOrdered(valueToAdd);
+}
+
+inline int QBasicAtomicInt::fetchAndAddOrdered(int valueToAdd)
+{
+    return __CS_OLD_LOOP(&_q_value, valueToAdd, "ar", "", "bcr 15,0\n");
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::testAndSetRelaxed(T *expectedValue, T *newValue)
+{
+    int retval;
+
+#ifndef __s390x__
+    __asm__ __volatile__(
+                         "  lr   %0,%3\n"
+                         "  cs   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+#else
+    __asm__ __volatile__(
+                         "  lgr   %0,%3\n"
+                         "  csg   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+#endif
+
+    return retval == 0;
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::testAndSetAcquire(T *expectedValue, T *newValue)
+{
+    int retval;
+
+#ifndef __s390x__
+    __asm__ __volatile__(
+                         "  lr   %0,%3\n"
+                         "  cs   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:\n"
+                         "  bcr 15,0\n"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+#else
+    __asm__ __volatile__(
+                         "  lgr   %0,%3\n"
+                         "  csg   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:\n"
+                         "  bcr 15,0\n"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+#endif
+
+    return retval == 0;
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::testAndSetRelease(T *expectedValue, T *newValue)
+{
+    int retval;
+
+#ifndef __s390x__
+    __asm__ __volatile__(
+                         "  bcr 15,0\n"
+                         "  lr   %0,%3\n"
+                         "  cs   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+#else
+    __asm__ __volatile__(
+                         "  bcr 15,0\n"
+                         "  lgr   %0,%3\n"
+                         "  csg   %0,%4,0(%2)\n"
+                         "  ipm  %0\n"
+                         "  srl  %0,28\n"
+                         "0:"
+                         : "=&d" (retval), "=m" (_q_value)
+                         : "a" (&_q_value), "d" (expectedValue) , "d" (newValue),
+                           "m" (_q_value) : "cc", "memory" );
+#endif
+
+    return retval == 0;
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE bool QBasicAtomicPointer<T>::testAndSetOrdered(T *expectedValue, T *newValue)
+{
+    return testAndSetAcquire(expectedValue, newValue);
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE T* QBasicAtomicPointer<T>::fetchAndStoreRelaxed(T *newValue)
+{
+#ifndef __s390x__
+    return (T*)__CS_OLD_LOOP(&_q_value, (int)newValue, "lr", "", "");
+#else
+    return (T*)__CSG_OLD_LOOP(&_q_value, (long)newValue, "lgr", "", "");
+#endif
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE T* QBasicAtomicPointer<T>::fetchAndStoreAcquire(T *newValue)
+{
+#ifndef __s390x__
+    return (T*)__CS_OLD_LOOP(&_q_value, (int)newValue, "lr", "", "bcr 15,0 \n");
+#else
+    return (T*)__CSG_OLD_LOOP(&_q_value, (long)newValue, "lgr", "", "bcr 15,0 \n");
+#endif
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE T* QBasicAtomicPointer<T>::fetchAndStoreRelease(T *newValue)
+{
+#ifndef __s390x__
+    return (T*)__CS_OLD_LOOP(&_q_value, (int)newValue, "lr", "bcr 15,0 \n", "");
+#else
+    return (T*)__CSG_OLD_LOOP(&_q_value, (long)newValue, "lgr", "bcr 15,0\n", "");
+#endif
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE T* QBasicAtomicPointer<T>::fetchAndStoreOrdered(T *newValue)
+{
+    return fetchAndStoreAcquire(newValue);
+}
+
+
+template <typename T>
+Q_INLINE_TEMPLATE T *QBasicAtomicPointer<T>::fetchAndAddRelaxed(qptrdiff valueToAdd)
+{
+    return fetchAndAddOrdered(valueToAdd);
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE T *QBasicAtomicPointer<T>::fetchAndAddAcquire(qptrdiff valueToAdd)
+{
+    return fetchAndAddOrdered(valueToAdd);
+}
+
+template <typename T>
+Q_INLINE_TEMPLATE T *QBasicAtomicPointer<T>::fetchAndAddRelease(qptrdiff valueToAdd)
+{
+    return fetchAndAddOrdered(valueToAdd);
+}
+
+#undef __GNU_EXTENSION
+
+QT_END_NAMESPACE
+
+QT_END_HEADER
+
+#endif // QATOMIC_S390_H