diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-09-24 23:47:00 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-09-24 23:47:00 +0200 |
| commit | fb848179c85dca388edd6d92ef5cd7cd0520b4c8 (patch) | |
| tree | d3b042338b730ad28f9ce49d2cbe9242d896c381 /rts/PrimOps.cmm | |
| parent | 805ee118b823f271dfd8036d35b15eb3454a95ad (diff) | |
| download | haskell-fb848179c85dca388edd6d92ef5cd7cd0520b4c8.tar.gz | |
`M-x delete-trailing-whitespace` & `M-x untabify`
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index cb4cd5e9fa..3e8612cea7 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -318,7 +318,7 @@ stg_casArrayzh ( gcptr arr, W_ ind, gcptr old, gcptr new ) p = arr + SIZEOF_StgMutArrPtrs + WDS(ind); (h) = ccall cas(p, old, new); - + if (h != old) { // Failure, return what was there instead of 'old': return (1,h); @@ -791,7 +791,7 @@ stg_decodeDoublezu2Intzh ( D_ arg ) mp_tmp2 = tmp + WDS(2); mp_result1 = tmp + WDS(1); mp_result2 = tmp; - + /* Perform the operation */ ccall __decodeDouble_2Int(mp_tmp1 "ptr", mp_tmp2 "ptr", mp_result1 "ptr", mp_result2 "ptr", |