← Back to branch summary

~ubuntu-branches/ubuntu/utopic/glib2.0/utopic

« back to all changes in this revision

Viewing changes to glib/gatomic.c

Tags: upstream-2.12.12
Import upstream version 2.12.12

Show diffs side-by-side

added added

removed removed

Lines of Context:
glib/gatomic.c
 
1
/* GLIB - Library of useful routines for C programming
 
2
 * Copyright (C) 1995-1997  Peter Mattis, Spencer Kimball and Josh MacDonald
 
3
 *
 
4
 * g_atomic_*: atomic operations.
 
5
 * Copyright (C) 2003 Sebastian Wilhelmi
 
6
 *
 
7
 * This library is free software; you can redistribute it and/or
 
8
 * modify it under the terms of the GNU Lesser General Public
 
9
 * License as published by the Free Software Foundation; either
 
10
 * version 2 of the License, or (at your option) any later version.
 
11
 *
 
12
 * This library is distributed in the hope that it will be useful,
 
13
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 
14
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
15
 * Lesser General Public License for more details.
 
16
 *
 
17
 * You should have received a copy of the GNU Lesser General Public
 
18
 * License along with this library; if not, write to the
 
19
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 
20
 * Boston, MA 02111-1307, USA.
 
21
 */
 
22
 
 
23
#include "config.h"
 
24
 
 
25
#include "glib.h"
 
26
#include "gthreadprivate.h"
 
27
#include "galias.h"
 
28
 
 
29
#if defined (__GNUC__)
 
30
# if defined (G_ATOMIC_I486)
 
31
/* Adapted from CVS version 1.10 of glibc's sysdeps/i386/i486/bits/atomic.h 
 
32
 */
 
33
gint
 
34
g_atomic_int_exchange_and_add (volatile gint *atomic, 
 
35
                               gint           val)
 
36
{
 
37
  gint result;
 
38
 
 
39
  __asm__ __volatile__ ("lock; xaddl %0,%1"
 
40
                        : "=r" (result), "=m" (*atomic) 
 
41
                        : "0" (val), "m" (*atomic));
 
42
  return result;
 
43
}
 
44
 
 
45
void
 
46
g_atomic_int_add (volatile gint *atomic, 
 
47
                  gint           val)
 
48
{
 
49
  __asm__ __volatile__ ("lock; addl %1,%0"
 
50
                        : "=m" (*atomic) 
 
51
                        : "ir" (val), "m" (*atomic));
 
52
}
 
53
 
 
54
gboolean
 
55
g_atomic_int_compare_and_exchange (volatile gint *atomic, 
 
56
                                   gint           oldval, 
 
57
                                   gint           newval)
 
58
{
 
59
  gint result;
 
60
 
 
61
  __asm__ __volatile__ ("lock; cmpxchgl %2, %1"
 
62
                        : "=a" (result), "=m" (*atomic)
 
63
                        : "r" (newval), "m" (*atomic), "0" (oldval)); 
 
64
 
 
65
  return result == oldval;
 
66
}
 
67
 
 
68
/* The same code as above, as on i386 gpointer is 32 bit as well.
 
69
 * Duplicating the code here seems more natural than casting the
 
70
 * arguments and calling the former function */
 
71
 
 
72
gboolean
 
73
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
74
                                       gpointer           oldval, 
 
75
                                       gpointer           newval)
 
76
{
 
77
  gpointer result;
 
78
 
 
79
  __asm__ __volatile__ ("lock; cmpxchgl %2, %1"
 
80
                        : "=a" (result), "=m" (*atomic)
 
81
                        : "r" (newval), "m" (*atomic), "0" (oldval)); 
 
82
 
 
83
  return result == oldval;
 
84
}
 
85
 
 
86
# elif defined (G_ATOMIC_SPARCV9)
 
87
/* Adapted from CVS version 1.3 of glibc's sysdeps/sparc/sparc64/bits/atomic.h
 
88
 */
 
89
#  define ATOMIC_INT_CMP_XCHG(atomic, oldval, newval)                   \
 
90
  ({                                                                    \
 
91
     gint __result;                                                     \
 
92
     __asm__ __volatile__ ("cas [%4], %2, %0"                           \
 
93
                           : "=r" (__result), "=m" (*(atomic))          \
 
94
                           : "r" (oldval), "m" (*(atomic)), "r" (atomic),\
 
95
                           "0" (newval));                               \
 
96
     __result == oldval;                                                \
 
97
  })
 
98
 
 
99
#  if GLIB_SIZEOF_VOID_P == 4 /* 32-bit system */
 
100
gboolean
 
101
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
102
                                       gpointer           oldval, 
 
103
                                       gpointer           newval)
 
104
{
 
105
  gpointer result;
 
106
  __asm__ __volatile__ ("cas [%4], %2, %0"
 
107
                        : "=r" (result), "=m" (*atomic)
 
108
                        : "r" (oldval), "m" (*atomic), "r" (atomic),
 
109
                        "0" (newval));
 
110
  return result == oldval;
 
111
}
 
112
#  elif GLIB_SIZEOF_VOID_P == 8 /* 64-bit system */
 
113
gboolean
 
114
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
115
                                       gpointer           oldval, 
 
116
                                       gpointer           newval)
 
117
{
 
118
  gpointer result;
 
119
  gpointer *a = atomic;
 
120
  __asm__ __volatile__ ("casx [%4], %2, %0"
 
121
                        : "=r" (result), "=m" (*a)
 
122
                        : "r" (oldval), "m" (*a), "r" (a),
 
123
                        "0" (newval));
 
124
  return result == oldval;
 
125
}
 
126
#  else /* What's that */
 
127
#    error "Your system has an unsupported pointer size"
 
128
#  endif /* GLIB_SIZEOF_VOID_P */
 
129
#  define G_ATOMIC_MEMORY_BARRIER                                       \
 
130
  __asm__ __volatile__ ("membar #LoadLoad | #LoadStore"                 \
 
131
                        " | #StoreLoad | #StoreStore" : : : "memory")
 
132
 
 
133
# elif defined (G_ATOMIC_ALPHA)
 
134
/* Adapted from CVS version 1.3 of glibc's sysdeps/alpha/bits/atomic.h
 
135
 */
 
136
#  define ATOMIC_INT_CMP_XCHG(atomic, oldval, newval)                   \
 
137
  ({                                                                    \
 
138
     gint __result;                                                     \
 
139
     gint __prev;                                                       \
 
140
     __asm__ __volatile__ (                                             \
 
141
        "       mb\n"                                                   \
 
142
        "1:     ldl_l   %0,%2\n"                                        \
 
143
        "       cmpeq   %0,%3,%1\n"                                     \
 
144
        "       beq     %1,2f\n"                                        \
 
145
        "       mov     %4,%1\n"                                        \
 
146
        "       stl_c   %1,%2\n"                                        \
 
147
        "       beq     %1,1b\n"                                        \
 
148
        "       mb\n"                                                   \
 
149
        "2:"                                                            \
 
150
        : "=&r" (__prev),                                               \
 
151
          "=&r" (__result)                                              \
 
152
        : "m" (*(atomic)),                                              \
 
153
          "Ir" (oldval),                                                \
 
154
          "Ir" (newval)                                                 \
 
155
        : "memory");                                                    \
 
156
     __result != 0;                                                     \
 
157
  })
 
158
#  if GLIB_SIZEOF_VOID_P == 4 /* 32-bit system */
 
159
gboolean
 
160
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
161
                                       gpointer           oldval, 
 
162
                                       gpointer           newval)
 
163
{
 
164
  gint result;
 
165
  gpointer prev;
 
166
  __asm__ __volatile__ (
 
167
        "       mb\n"
 
168
        "1:     ldl_l   %0,%2\n"
 
169
        "       cmpeq   %0,%3,%1\n"
 
170
        "       beq     %1,2f\n"
 
171
        "       mov     %4,%1\n"
 
172
        "       stl_c   %1,%2\n"
 
173
        "       beq     %1,1b\n"
 
174
        "       mb\n"
 
175
        "2:"
 
176
        : "=&r" (prev), 
 
177
          "=&r" (result)
 
178
        : "m" (*atomic),
 
179
          "Ir" (oldval),
 
180
          "Ir" (newval)
 
181
        : "memory");
 
182
  return result != 0;
 
183
}
 
184
#  elif GLIB_SIZEOF_VOID_P == 8 /* 64-bit system */
 
185
gboolean
 
186
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
187
                                       gpointer           oldval, 
 
188
                                       gpointer           newval)
 
189
{
 
190
  gint result;
 
191
  gpointer prev;
 
192
  __asm__ __volatile__ (
 
193
        "       mb\n"
 
194
        "1:     ldq_l   %0,%2\n"
 
195
        "       cmpeq   %0,%3,%1\n"
 
196
        "       beq     %1,2f\n"
 
197
        "       mov     %4,%1\n"
 
198
        "       stq_c   %1,%2\n"
 
199
        "       beq     %1,1b\n"
 
200
        "       mb\n"
 
201
        "2:"
 
202
        : "=&r" (prev), 
 
203
          "=&r" (result)
 
204
        : "m" (*atomic),
 
205
          "Ir" (oldval),
 
206
          "Ir" (newval)
 
207
        : "memory");
 
208
  return result != 0;
 
209
}
 
210
#  else /* What's that */
 
211
#   error "Your system has an unsupported pointer size"
 
212
#  endif /* GLIB_SIZEOF_VOID_P */
 
213
#  define G_ATOMIC_MEMORY_BARRIER  __asm__ ("mb" : : : "memory")
 
214
# elif defined (G_ATOMIC_X86_64)
 
215
/* Adapted from CVS version 1.9 of glibc's sysdeps/x86_64/bits/atomic.h 
 
216
 */
 
217
gint
 
218
g_atomic_int_exchange_and_add (volatile gint *atomic,
 
219
                               gint           val)
 
220
{
 
221
  gint result;
 
222
 
 
223
  __asm__ __volatile__ ("lock; xaddl %0,%1"
 
224
                        : "=r" (result), "=m" (*atomic) 
 
225
                        : "0" (val), "m" (*atomic));
 
226
  return result;
 
227
}
 
228
 
 
229
void
 
230
g_atomic_int_add (volatile gint *atomic, 
 
231
                  gint           val)
 
232
{
 
233
  __asm__ __volatile__ ("lock; addl %1,%0"
 
234
                        : "=m" (*atomic) 
 
235
                        : "ir" (val), "m" (*atomic));
 
236
}
 
237
 
 
238
gboolean
 
239
g_atomic_int_compare_and_exchange (volatile gint *atomic, 
 
240
                                   gint           oldval, 
 
241
                                   gint           newval)
 
242
{
 
243
  gint result;
 
244
 
 
245
  __asm__ __volatile__ ("lock; cmpxchgl %2, %1"
 
246
                        : "=a" (result), "=m" (*atomic)
 
247
                        : "r" (newval), "m" (*atomic), "0" (oldval)); 
 
248
 
 
249
  return result == oldval;
 
250
}
 
251
 
 
252
gboolean
 
253
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
254
                                       gpointer           oldval, 
 
255
                                       gpointer           newval)
 
256
{
 
257
  gpointer result;
 
258
 
 
259
  __asm__ __volatile__ ("lock; cmpxchgq %q2, %1"
 
260
                        : "=a" (result), "=m" (*atomic)
 
261
                        : "r" (newval), "m" (*atomic), "0" (oldval)); 
 
262
 
 
263
  return result == oldval;
 
264
}
 
265
 
 
266
# elif defined (G_ATOMIC_POWERPC)
 
267
/* Adapted from CVS version 1.16 of glibc's sysdeps/powerpc/bits/atomic.h 
 
268
 * and CVS version 1.4 of glibc's sysdeps/powerpc/powerpc32/bits/atomic.h 
 
269
 * and CVS version 1.7 of glibc's sysdeps/powerpc/powerpc64/bits/atomic.h 
 
270
 */
 
271
#   ifdef __OPTIMIZE__
 
272
/* Non-optimizing compile bails on the following two asm statements
 
273
 * for reasons unknown to the author */
 
274
gint
 
275
g_atomic_int_exchange_and_add (volatile gint *atomic, 
 
276
                               gint           val)
 
277
{
 
278
  gint result, temp;
 
279
  __asm__ __volatile__ (".Lieaa%=:       lwarx   %0,0,%3\n"
 
280
                        "         add     %1,%0,%4\n"
 
281
                        "         stwcx.  %1,0,%3\n"
 
282
                        "         bne-    .Lieaa%="
 
283
                        : "=&b" (result), "=&r" (temp), "=m" (*atomic)
 
284
                        : "b" (atomic), "r" (val), "m" (*atomic)
 
285
                        : "cr0", "memory");
 
286
  return result;
 
287
}
 
288
 
 
289
/* The same as above, to save a function call repeated here */
 
290
void
 
291
g_atomic_int_add (volatile gint *atomic, 
 
292
                  gint           val)
 
293
{
 
294
  gint result, temp;  
 
295
  __asm__ __volatile__ (".Lia%=:       lwarx   %0,0,%3\n"
 
296
                        "         add     %1,%0,%4\n"
 
297
                        "         stwcx.  %1,0,%3\n"
 
298
                        "         bne-    .Lia%="
 
299
                        : "=&b" (result), "=&r" (temp), "=m" (*atomic)
 
300
                        : "b" (atomic), "r" (val), "m" (*atomic)
 
301
                        : "cr0", "memory");
 
302
}
 
303
#   else /* !__OPTIMIZE__ */
 
304
gint
 
305
g_atomic_int_exchange_and_add (volatile gint *atomic, 
 
306
                               gint           val)
 
307
{
 
308
  gint result;
 
309
  do
 
310
    result = *atomic;
 
311
  while (!g_atomic_int_compare_and_exchange (atomic, result, result + val));
 
312
 
 
313
  return result;
 
314
}
 
315
 
 
316
void
 
317
g_atomic_int_add (volatile gint *atomic,
 
318
                  gint           val)
 
319
{
 
320
  gint result;
 
321
  do
 
322
    result = *atomic;
 
323
  while (!g_atomic_int_compare_and_exchange (atomic, result, result + val));
 
324
}
 
325
#   endif /* !__OPTIMIZE__ */
 
326
 
 
327
#   if GLIB_SIZEOF_VOID_P == 4 /* 32-bit system */
 
328
gboolean
 
329
g_atomic_int_compare_and_exchange (volatile gint *atomic, 
 
330
                                   gint           oldval, 
 
331
                                   gint           newval)
 
332
{
 
333
  gint result;
 
334
  __asm__ __volatile__ ("sync\n"
 
335
                        ".L1icae%=: lwarx   %0,0,%1\n"
 
336
                        "   subf.   %0,%2,%0\n"
 
337
                        "   bne     .L2icae%=\n"
 
338
                        "   stwcx.  %3,0,%1\n"
 
339
                        "   bne-    .L1icae%=\n"
 
340
                        ".L2icae%=: isync"
 
341
                        : "=&r" (result)
 
342
                        : "b" (atomic), "r" (oldval), "r" (newval)
 
343
                        : "cr0", "memory"); 
 
344
  return result == 0;
 
345
}
 
346
 
 
347
gboolean
 
348
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
349
                                       gpointer           oldval, 
 
350
                                       gpointer           newval)
 
351
{
 
352
  gpointer result;
 
353
  __asm__ __volatile__ ("sync\n"
 
354
                        ".L1pcae%=: lwarx   %0,0,%1\n"
 
355
                        "   subf.   %0,%2,%0\n"
 
356
                        "   bne     .L2pcae%=\n"
 
357
                        "   stwcx.  %3,0,%1\n"
 
358
                        "   bne-    .L1pcae%=\n"
 
359
                        ".L2pcae%=: isync"
 
360
                        : "=&r" (result)
 
361
                        : "b" (atomic), "r" (oldval), "r" (newval)
 
362
                        : "cr0", "memory"); 
 
363
  return result == 0;
 
364
}
 
365
#   elif GLIB_SIZEOF_VOID_P == 8 /* 64-bit system */
 
366
gboolean
 
367
g_atomic_int_compare_and_exchange (volatile gint *atomic,
 
368
                                   gint           oldval, 
 
369
                                   gint           newval)
 
370
{
 
371
  gpointer result;
 
372
  __asm__ __volatile__ ("sync\n"
 
373
                        ".L1icae%=: lwarx   %0,0,%1\n"
 
374
                        "   extsw   %0,%0\n"
 
375
                        "   subf.   %0,%2,%0\n"
 
376
                        "   bne     .L2icae%=\n"
 
377
                        "   stwcx.  %3,0,%1\n"
 
378
                        "   bne-    .L1icae%=\n"
 
379
                        ".L2icae%=: isync"
 
380
                        : "=&r" (result)
 
381
                        : "b" (atomic), "r" (oldval), "r" (newval)
 
382
                        : "cr0", "memory"); 
 
383
  return result == 0;
 
384
}
 
385
 
 
386
gboolean
 
387
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
388
                                       gpointer           oldval, 
 
389
                                       gpointer           newval)
 
390
{
 
391
  gpointer result;
 
392
  __asm__ __volatile__ ("sync\n"
 
393
                        ".L1pcae%=: ldarx   %0,0,%1\n"
 
394
                        "   subf.   %0,%2,%0\n"
 
395
                        "   bne     .L2pcae%=\n"
 
396
                        "   stdcx.  %3,0,%1\n"
 
397
                        "   bne-    .L1pcae%=\n"
 
398
                        ".L2pcae%=: isync"
 
399
                        : "=&r" (result)
 
400
                        : "b" (atomic), "r" (oldval), "r" (newval)
 
401
                        : "cr0", "memory"); 
 
402
  return result == 0;
 
403
}
 
404
#  else /* What's that */
 
405
#   error "Your system has an unsupported pointer size"
 
406
#  endif /* GLIB_SIZEOF_VOID_P */
 
407
 
 
408
#  define G_ATOMIC_MEMORY_BARRIER __asm__ ("sync" : : : "memory")
 
409
 
 
410
# elif defined (G_ATOMIC_IA64)
 
411
/* Adapted from CVS version 1.8 of glibc's sysdeps/ia64/bits/atomic.h
 
412
 */
 
413
gint
 
414
g_atomic_int_exchange_and_add (volatile gint *atomic,
 
415
                               gint           val)
 
416
{
 
417
  return __sync_fetch_and_add (atomic, val);
 
418
}
 
419
 
 
420
void
 
421
g_atomic_int_add (volatile gint *atomic, 
 
422
                  gint val)
 
423
{
 
424
  __sync_fetch_and_add (atomic, val);
 
425
}
 
426
 
 
427
gboolean
 
428
g_atomic_int_compare_and_exchange (volatile gint *atomic,
 
429
                                   gint           oldval, 
 
430
                                   gint           newval)
 
431
{
 
432
  return __sync_bool_compare_and_swap (atomic, oldval, newval);
 
433
}
 
434
 
 
435
gboolean
 
436
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic,
 
437
                                       gpointer           oldval, 
 
438
                                       gpointer           newval)
 
439
{
 
440
  return __sync_bool_compare_and_swap ((long *)atomic, 
 
441
                                       (long)oldval, (long)newval);
 
442
}
 
443
 
 
444
#  define G_ATOMIC_MEMORY_BARRIER __sync_synchronize ()
 
445
# elif defined (G_ATOMIC_S390)
 
446
/* Adapted from glibc's sysdeps/s390/bits/atomic.h
 
447
 */
 
448
#  define ATOMIC_INT_CMP_XCHG(atomic, oldval, newval)                   \
 
449
  ({                                                                    \
 
450
     gint __result = oldval;                                    \
 
451
     __asm__ __volatile__ ("cs %0, %2, %1"                              \
 
452
                           : "+d" (__result), "=Q" (*(atomic))          \
 
453
                           : "d" (newval), "m" (*(atomic)) : "cc" );    \
 
454
     __result == oldval;                                                \
 
455
  })
 
456
 
 
457
#  if GLIB_SIZEOF_VOID_P == 4 /* 32-bit system */
 
458
gboolean
 
459
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic,
 
460
                                       gpointer           oldval,
 
461
                                       gpointer           newval)
 
462
{
 
463
  gpointer result = oldval;
 
464
  __asm__ __volatile__ ("cs %0, %2, %1"
 
465
                        : "+d" (result), "=Q" (*(atomic))
 
466
                        : "d" (newval), "m" (*(atomic)) : "cc" );
 
467
  return result == oldval;
 
468
}
 
469
#  elif GLIB_SIZEOF_VOID_P == 8 /* 64-bit system */
 
470
gboolean
 
471
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic,
 
472
                                       gpointer           oldval,
 
473
                                       gpointer           newval)
 
474
{
 
475
  gpointer result = oldval;
 
476
  gpointer *a = atomic;
 
477
  __asm__ __volatile__ ("csg %0, %2, %1"
 
478
                        : "+d" (result), "=Q" (*a)
 
479
                        : "d" ((long)(newval)), "m" (*a) : "cc" );
 
480
  return result == oldval;
 
481
}
 
482
#  else /* What's that */
 
483
#    error "Your system has an unsupported pointer size"
 
484
#  endif /* GLIB_SIZEOF_VOID_P */
 
485
# else /* !G_ATOMIC_IA64 */
 
486
#  define DEFINE_WITH_MUTEXES
 
487
# endif /* G_ATOMIC_IA64 */
 
488
#else /* !__GNUC__ */
 
489
# ifdef G_PLATFORM_WIN32
 
490
#  define DEFINE_WITH_WIN32_INTERLOCKED
 
491
# else
 
492
#  define DEFINE_WITH_MUTEXES
 
493
# endif
 
494
#endif /* __GNUC__ */
 
495
 
 
496
#ifdef DEFINE_WITH_WIN32_INTERLOCKED
 
497
# include <windows.h>
 
498
/* Following indicates that InterlockedCompareExchangePointer is
 
499
 * declared in winbase.h (included by windows.h) and needs to be
 
500
 * commented out if not true. It is defined iff WINVER > 0x0400,
 
501
 * which is usually correct but can be wrong if WINVER is set before
 
502
 * windows.h is included.
 
503
 */
 
504
# if WINVER > 0x0400
 
505
#  define HAVE_INTERLOCKED_COMPARE_EXCHANGE_POINTER
 
506
# endif
 
507
 
 
508
gint32
 
509
g_atomic_int_exchange_and_add (volatile gint32 *atomic,
 
510
                               gint32           val)
 
511
{
 
512
  return InterlockedExchangeAdd (atomic, val);
 
513
}
 
514
 
 
515
void     
 
516
g_atomic_int_add (volatile gint32 *atomic, 
 
517
                  gint32           val)
 
518
{
 
519
  InterlockedExchangeAdd (atomic, val);
 
520
}
 
521
 
 
522
gboolean 
 
523
g_atomic_int_compare_and_exchange (volatile gint32 *atomic,
 
524
                                   gint32           oldval,
 
525
                                   gint32           newval)
 
526
{
 
527
#ifndef HAVE_INTERLOCKED_COMPARE_EXCHANGE_POINTER
 
528
  return (guint32) InterlockedCompareExchange ((PVOID*)atomic, 
 
529
                                               (PVOID)newval, 
 
530
                                               (PVOID)oldval) == oldval;
 
531
#else
 
532
  return InterlockedCompareExchange (atomic, 
 
533
                                     newval, 
 
534
                                     oldval) == oldval;
 
535
#endif
 
536
}
 
537
 
 
538
gboolean 
 
539
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic,
 
540
                                       gpointer           oldval,
 
541
                                       gpointer           newval)
 
542
{
 
543
# ifdef HAVE_INTERLOCKED_COMPARE_EXCHANGE_POINTER
 
544
  return InterlockedCompareExchangePointer (atomic, newval, oldval) == oldval;
 
545
# else
 
546
#  if GLIB_SIZEOF_VOID_P != 4 /* no 32-bit system */
 
547
#   error "InterlockedCompareExchangePointer needed"
 
548
#  else
 
549
   return InterlockedCompareExchange (atomic, newval, oldval) == oldval;
 
550
#  endif
 
551
# endif
 
552
}
 
553
#endif /* DEFINE_WITH_WIN32_INTERLOCKED */
 
554
 
 
555
#ifdef DEFINE_WITH_MUTEXES
 
556
/* We have to use the slow, but safe locking method */
 
557
static GMutex *g_atomic_mutex; 
 
558
 
 
559
gint
 
560
g_atomic_int_exchange_and_add (volatile gint *atomic, 
 
561
                               gint           val)
 
562
{
 
563
  gint result;
 
564
    
 
565
  g_mutex_lock (g_atomic_mutex);
 
566
  result = *atomic;
 
567
  *atomic += val;
 
568
  g_mutex_unlock (g_atomic_mutex);
 
569
 
 
570
  return result;
 
571
}
 
572
 
 
573
 
 
574
void
 
575
g_atomic_int_add (volatile gint *atomic,
 
576
                  gint           val)
 
577
{
 
578
  g_mutex_lock (g_atomic_mutex);
 
579
  *atomic += val;
 
580
  g_mutex_unlock (g_atomic_mutex);
 
581
}
 
582
 
 
583
gboolean
 
584
g_atomic_int_compare_and_exchange (volatile gint *atomic, 
 
585
                                   gint           oldval, 
 
586
                                   gint           newval)
 
587
{
 
588
  gboolean result;
 
589
    
 
590
  g_mutex_lock (g_atomic_mutex);
 
591
  if (*atomic == oldval)
 
592
    {
 
593
      result = TRUE;
 
594
      *atomic = newval;
 
595
    }
 
596
  else
 
597
    result = FALSE;
 
598
  g_mutex_unlock (g_atomic_mutex);
 
599
 
 
600
  return result;
 
601
}
 
602
 
 
603
gboolean
 
604
g_atomic_pointer_compare_and_exchange (volatile gpointer *atomic, 
 
605
                                       gpointer           oldval, 
 
606
                                       gpointer           newval)
 
607
{
 
608
  gboolean result;
 
609
    
 
610
  g_mutex_lock (g_atomic_mutex);
 
611
  if (*atomic == oldval)
 
612
    {
 
613
      result = TRUE;
 
614
      *atomic = newval;
 
615
    }
 
616
  else
 
617
    result = FALSE;
 
618
  g_mutex_unlock (g_atomic_mutex);
 
619
 
 
620
  return result;
 
621
}
 
622
 
 
623
#ifdef G_ATOMIC_OP_MEMORY_BARRIER_NEEDED
 
624
gint
 
625
g_atomic_int_get (volatile gint *atomic)
 
626
{
 
627
  gint result;
 
628
 
 
629
  g_mutex_lock (g_atomic_mutex);
 
630
  result = *atomic;
 
631
  g_mutex_unlock (g_atomic_mutex);
 
632
 
 
633
  return result;
 
634
}
 
635
 
 
636
void
 
637
g_atomic_int_set (volatile gint *atomic,
 
638
                  gint           newval)
 
639
{
 
640
  g_mutex_lock (g_atomic_mutex);
 
641
  *atomic = newval;
 
642
  g_mutex_unlock (g_atomic_mutex);
 
643
}
 
644
 
 
645
gpointer
 
646
g_atomic_pointer_get (volatile gpointer *atomic)
 
647
{
 
648
  gpointer result;
 
649
 
 
650
  g_mutex_lock (g_atomic_mutex);
 
651
  result = *atomic;
 
652
  g_mutex_unlock (g_atomic_mutex);
 
653
 
 
654
  return result;
 
655
}
 
656
 
 
657
void
 
658
g_atomic_pointer_set (volatile gpointer *atomic,
 
659
                      gpointer           newval)
 
660
{
 
661
  g_mutex_lock (g_atomic_mutex);
 
662
  *atomic = newval;
 
663
  g_mutex_unlock (g_atomic_mutex);
 
664
}
 
665
#endif /* G_ATOMIC_OP_MEMORY_BARRIER_NEEDED */   
 
666
#elif defined (G_ATOMIC_OP_MEMORY_BARRIER_NEEDED)
 
667
gint
 
668
g_atomic_int_get (volatile gint *atomic)
 
669
{
 
670
  G_ATOMIC_MEMORY_BARRIER;
 
671
  return *atomic;
 
672
}
 
673
 
 
674
void
 
675
g_atomic_int_set (volatile gint *atomic,
 
676
                  gint           newval)
 
677
{
 
678
  *atomic = newval;
 
679
  G_ATOMIC_MEMORY_BARRIER; 
 
680
}
 
681
 
 
682
gpointer
 
683
g_atomic_pointer_get (volatile gpointer *atomic)
 
684
{
 
685
  G_ATOMIC_MEMORY_BARRIER;
 
686
  return *atomic;
 
687
}   
 
688
 
 
689
void
 
690
g_atomic_pointer_set (volatile gpointer *atomic,
 
691
                      gpointer           newval)
 
692
{
 
693
  *atomic = newval;
 
694
  G_ATOMIC_MEMORY_BARRIER; 
 
695
}
 
696
#endif /* DEFINE_WITH_MUTEXES || G_ATOMIC_OP_MEMORY_BARRIER_NEEDED */
 
697
 
 
698
#ifdef ATOMIC_INT_CMP_XCHG
 
699
gboolean
 
700
g_atomic_int_compare_and_exchange (volatile gint *atomic,
 
701
                                   gint           oldval,
 
702
                                   gint           newval)
 
703
{
 
704
  return ATOMIC_INT_CMP_XCHG (atomic, oldval, newval);
 
705
}
 
706
 
 
707
gint
 
708
g_atomic_int_exchange_and_add (volatile gint *atomic,
 
709
                               gint           val)
 
710
{
 
711
  gint result;
 
712
  do
 
713
    result = *atomic;
 
714
  while (!ATOMIC_INT_CMP_XCHG (atomic, result, result + val));
 
715
 
 
716
  return result;
 
717
}
 
718
 
 
719
void
 
720
g_atomic_int_add (volatile gint *atomic,
 
721
                  gint           val)
 
722
{
 
723
  gint result;
 
724
  do
 
725
    result = *atomic;
 
726
  while (!ATOMIC_INT_CMP_XCHG (atomic, result, result + val));
 
727
}
 
728
#endif /* ATOMIC_INT_CMP_XCHG */
 
729
 
 
730
void 
 
731
_g_atomic_thread_init (void)
 
732
{
 
733
#ifdef DEFINE_WITH_MUTEXES
 
734
  g_atomic_mutex = g_mutex_new ();
 
735
#endif /* DEFINE_WITH_MUTEXES */
 
736
}
 
737
 
 
738
#ifndef G_ATOMIC_OP_MEMORY_BARRIER_NEEDED
 
739
gint
 
740
(g_atomic_int_get) (volatile gint *atomic)
 
741
{
 
742
  return g_atomic_int_get (atomic);
 
743
}
 
744
 
 
745
void
 
746
(g_atomic_int_set) (volatile gint *atomic,
 
747
                    gint           newval)
 
748
{
 
749
  g_atomic_int_set (atomic, newval);
 
750
}
 
751
 
 
752
gpointer
 
753
(g_atomic_pointer_get) (volatile gpointer *atomic)
 
754
{
 
755
  return g_atomic_pointer_get (atomic);
 
756
}
 
757
 
 
758
void
 
759
(g_atomic_pointer_set) (volatile gpointer *atomic,
 
760
                        gpointer           newval)
 
761
{
 
762
  g_atomic_pointer_set (atomic, newval);
 
763
}
 
764
#endif /* G_ATOMIC_OP_MEMORY_BARRIER_NEEDED */
 
765
 
 
766
#define __G_ATOMIC_C__
 
767
#include "galiasdef.c"