rubbos/app/httpd-2.0.64/srclib/apr/atomic/os390/atomic.c

   1 /* Licensed to the Apache Software Foundation (ASF) under one or more
   2  * contributor license agreements.  See the NOTICE file distributed with
   3  * this work for additional information regarding copyright ownership.
   4  * The ASF licenses this file to You under the Apache License, Version 2.0
   5  * (the "License"); you may not use this file except in compliance with
   6  * the License.  You may obtain a copy of the License at
   7  *
   8  *     http://www.apache.org/licenses/LICENSE-2.0
   9  *
  10  * Unless required by applicable law or agreed to in writing, software
  11  * distributed under the License is distributed on an "AS IS" BASIS,
  12  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  13  * See the License for the specific language governing permissions and
  14  * limitations under the License.
  15  */
  16
  17
  18 #include "apr.h"
  19 #include "apr_atomic.h"
  20
  21 #if APR_HAS_THREADS
  22
  23 apr_int32_t apr_atomic_add(volatile apr_atomic_t *mem, apr_int32_t val)
  24 {
  25     apr_atomic_t old, new_val;
  26
  27     old = *mem;   /* old is automatically updated on cs failure */
  28     do {
  29         new_val = old + val;
  30     } while (__cs(&old, (cs_t *)mem, new_val));
  31
  32     return new_val;
  33 }
  34
  35 apr_uint32_t apr_atomic_cas(volatile apr_atomic_t *mem, apr_uint32_t swap,
  36                             apr_uint32_t cmp)
  37 {
  38     apr_uint32_t old = cmp;
  39
  40     __cs(&old, (cs_t *)mem, swap);
  41     return old; /* old is automatically updated from mem on cs failure */
  42 }
  43
  44 #endif /* APR_HAS_THREADS */