1251875Speter/* Licensed to the Apache Software Foundation (ASF) under one or more 2251875Speter * contributor license agreements. See the NOTICE file distributed with 3251875Speter * this work for additional information regarding copyright ownership. 4251875Speter * The ASF licenses this file to You under the Apache License, Version 2.0 5251875Speter * (the "License"); you may not use this file except in compliance with 6251875Speter * the License. You may obtain a copy of the License at 7251875Speter * 8251875Speter * http://www.apache.org/licenses/LICENSE-2.0 9251875Speter * 10251875Speter * Unless required by applicable law or agreed to in writing, software 11251875Speter * distributed under the License is distributed on an "AS IS" BASIS, 12251875Speter * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 13251875Speter * See the License for the specific language governing permissions and 14251875Speter * limitations under the License. 15251875Speter */ 16251875Speter 17251875Speter#include "apr_arch_atomic.h" 18251875Speter 19251875Speter#ifdef USE_ATOMICS_S390 20251875Speter 21251875SpeterAPR_DECLARE(apr_status_t) apr_atomic_init(apr_pool_t *p) 22251875Speter{ 23251875Speter return APR_SUCCESS; 24251875Speter} 25251875Speter 26251875SpeterAPR_DECLARE(apr_uint32_t) apr_atomic_read32(volatile apr_uint32_t *mem) 27251875Speter{ 28251875Speter return *mem; 29251875Speter} 30251875Speter 31251875SpeterAPR_DECLARE(void) apr_atomic_set32(volatile apr_uint32_t *mem, apr_uint32_t val) 32251875Speter{ 33251875Speter *mem = val; 34251875Speter} 35251875Speter 36251875Speterstatic APR_INLINE apr_uint32_t atomic_add(volatile apr_uint32_t *mem, apr_uint32_t val) 37251875Speter{ 38251875Speter apr_uint32_t prev = *mem, temp; 39251875Speter 40251875Speter asm volatile ("loop_%=:\n" 41253734Speter " lr %1,%0\n" 42253734Speter " alr %1,%3\n" 43253734Speter " cs %0,%1,%2\n" 44253734Speter " jl loop_%=\n" 45251875Speter : "+d" (prev), "+d" (temp), "=Q" (*mem) 46251875Speter : "d" (val), "m" (*mem) 47251875Speter : "cc", "memory"); 48251875Speter 49251875Speter return prev; 50251875Speter} 51251875Speter 52251875SpeterAPR_DECLARE(apr_uint32_t) apr_atomic_add32(volatile apr_uint32_t *mem, apr_uint32_t val) 53251875Speter{ 54251875Speter return atomic_add(mem, val); 55251875Speter} 56251875Speter 57251875SpeterAPR_DECLARE(apr_uint32_t) apr_atomic_inc32(volatile apr_uint32_t *mem) 58251875Speter{ 59251875Speter return atomic_add(mem, 1); 60251875Speter} 61251875Speter 62251875Speterstatic APR_INLINE apr_uint32_t atomic_sub(volatile apr_uint32_t *mem, apr_uint32_t val) 63251875Speter{ 64251875Speter apr_uint32_t prev = *mem, temp; 65251875Speter 66251875Speter asm volatile ("loop_%=:\n" 67253734Speter " lr %1,%0\n" 68253734Speter " slr %1,%3\n" 69253734Speter " cs %0,%1,%2\n" 70253734Speter " jl loop_%=\n" 71251875Speter : "+d" (prev), "+d" (temp), "=Q" (*mem) 72251875Speter : "d" (val), "m" (*mem) 73251875Speter : "cc", "memory"); 74251875Speter 75251875Speter return temp; 76251875Speter} 77251875Speter 78251875SpeterAPR_DECLARE(void) apr_atomic_sub32(volatile apr_uint32_t *mem, apr_uint32_t val) 79251875Speter{ 80251875Speter atomic_sub(mem, val); 81251875Speter} 82251875Speter 83251875SpeterAPR_DECLARE(int) apr_atomic_dec32(volatile apr_uint32_t *mem) 84251875Speter{ 85251875Speter return atomic_sub(mem, 1); 86251875Speter} 87251875Speter 88251875SpeterAPR_DECLARE(apr_uint32_t) apr_atomic_cas32(volatile apr_uint32_t *mem, apr_uint32_t with, 89251875Speter apr_uint32_t cmp) 90251875Speter{ 91253734Speter asm volatile (" cs %0,%2,%1\n" 92251875Speter : "+d" (cmp), "=Q" (*mem) 93251875Speter : "d" (with), "m" (*mem) 94251875Speter : "cc", "memory"); 95251875Speter 96251875Speter return cmp; 97251875Speter} 98251875Speter 99251875SpeterAPR_DECLARE(apr_uint32_t) apr_atomic_xchg32(volatile apr_uint32_t *mem, apr_uint32_t val) 100251875Speter{ 101251875Speter apr_uint32_t prev = *mem; 102251875Speter 103251875Speter asm volatile ("loop_%=:\n" 104253734Speter " cs %0,%2,%1\n" 105253734Speter " jl loop_%=\n" 106251875Speter : "+d" (prev), "=Q" (*mem) 107251875Speter : "d" (val), "m" (*mem) 108251875Speter : "cc", "memory"); 109251875Speter 110251875Speter return prev; 111251875Speter} 112251875Speter 113251875SpeterAPR_DECLARE(void*) apr_atomic_casptr(volatile void **mem, void *with, const void *cmp) 114251875Speter{ 115251875Speter void *prev = (void *) cmp; 116251875Speter#if APR_SIZEOF_VOIDP == 4 117253734Speter asm volatile (" cs %0,%2,%1\n" 118251875Speter : "+d" (prev), "=Q" (*mem) 119251875Speter : "d" (with), "m" (*mem) 120251875Speter : "cc", "memory"); 121251875Speter#elif APR_SIZEOF_VOIDP == 8 122253734Speter asm volatile (" csg %0,%2,%1\n" 123251875Speter : "+d" (prev), "=Q" (*mem) 124251875Speter : "d" (with), "m" (*mem) 125251875Speter : "cc", "memory"); 126251875Speter#else 127251875Speter#error APR_SIZEOF_VOIDP value not supported 128251875Speter#endif 129251875Speter return prev; 130251875Speter} 131251875Speter 132251875SpeterAPR_DECLARE(void*) apr_atomic_xchgptr(volatile void **mem, void *with) 133251875Speter{ 134251875Speter void *prev = (void *) *mem; 135251875Speter#if APR_SIZEOF_VOIDP == 4 136251875Speter asm volatile ("loop_%=:\n" 137253734Speter " cs %0,%2,%1\n" 138253734Speter " jl loop_%=\n" 139251875Speter : "+d" (prev), "=Q" (*mem) 140251875Speter : "d" (with), "m" (*mem) 141251875Speter : "cc", "memory"); 142251875Speter#elif APR_SIZEOF_VOIDP == 8 143251875Speter asm volatile ("loop_%=:\n" 144253734Speter " csg %0,%2,%1\n" 145253734Speter " jl loop_%=\n" 146251875Speter : "+d" (prev), "=Q" (*mem) 147251875Speter : "d" (with), "m" (*mem) 148251875Speter : "cc", "memory"); 149251875Speter#else 150251875Speter#error APR_SIZEOF_VOIDP value not supported 151251875Speter#endif 152251875Speter return prev; 153251875Speter} 154251875Speter 155251875Speter#endif /* USE_ATOMICS_S390 */ 156