diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-02-15 20:43:34 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-04-11 11:08:43 +0100 |
| commit | 521b792553bacbdb0eec138b150ab0626ea6f36b (patch) | |
| tree | d1e396b14c49bc0755b0c870f2ae183289b4a3ba /includes | |
| parent | 169dadd0e663507a18ad3254fc8e854e6dc7b77e (diff) | |
| download | haskell-521b792553bacbdb0eec138b150ab0626ea6f36b.tar.gz | |
add casMutVar#
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/stg/MiscClosures.h | 1 | ||||
| -rw-r--r-- | includes/stg/SMP.h | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/includes/stg/MiscClosures.h b/includes/stg/MiscClosures.h index e6cfc47bfa..ed0bf655e1 100644 --- a/includes/stg/MiscClosures.h +++ b/includes/stg/MiscClosures.h @@ -383,6 +383,7 @@ RTS_FUN_DECL(stg_newArrayzh); RTS_FUN_DECL(stg_newMutVarzh); RTS_FUN_DECL(stg_atomicModifyMutVarzh); +RTS_FUN_DECL(stg_casMutVarzh); RTS_FUN_DECL(stg_isEmptyMVarzh); RTS_FUN_DECL(stg_newMVarzh); diff --git a/includes/stg/SMP.h b/includes/stg/SMP.h index ad8c0baef9..f1b0422009 100644 --- a/includes/stg/SMP.h +++ b/includes/stg/SMP.h @@ -314,7 +314,8 @@ xchg(StgPtr p, StgWord w) return old; } -STATIC_INLINE StgWord +EXTERN_INLINE StgWord cas(StgVolatilePtr p, StgWord o, StgWord n); +EXTERN_INLINE StgWord cas(StgVolatilePtr p, StgWord o, StgWord n) { StgWord result; |