diff options
| author | Johan Tibell <johan.tibell@gmail.com> | 2014-03-27 18:04:56 +0100 |
|---|---|---|
| committer | Johan Tibell <johan.tibell@gmail.com> | 2014-03-28 09:02:50 +0100 |
| commit | e54828bf25fa99e74588fecb0adc705fb869a8b4 (patch) | |
| tree | dad35e4c9a73d7bca00676cb14831ada961512a8 /rts/PrimOps.cmm | |
| parent | 7ef3f0d6dbd54d9e58fb6ab1f2db322bc8fac37a (diff) | |
| download | haskell-e54828bf25fa99e74588fecb0adc705fb869a8b4.tar.gz | |
Make copy array ops out-of-line by default
This should reduce code size when there's little to gain from inlining
these primops, while still retaining the inlining benefit when the
size of the copy is known statically.
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 5bdccfa9f7..2f697b43ce 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -225,6 +225,26 @@ stg_unsafeThawArrayzh ( gcptr arr ) } } +stg_copyArrayzh ( gcptr src, W_ src_off, gcptr dst, W_ dst_off, W_ n ) +{ + copyArray(src, src_off, dst, dst_off, n) +} + +stg_copyMutableArrayzh ( gcptr src, W_ src_off, gcptr dst, W_ dst_off, W_ n ) +{ + copyMutableArray(src, src_off, dst, dst_off, n) +} + +stg_copyArrayArrayzh ( gcptr src, W_ src_off, gcptr dst, W_ dst_off, W_ n ) +{ + copyArray(src, src_off, dst, dst_off, n) +} + +stg_copyMutableArrayArrayzh ( gcptr src, W_ src_off, gcptr dst, W_ dst_off, W_ n ) +{ + copyMutableArray(src, src_off, dst, dst_off, n) +} + stg_cloneArrayzh ( gcptr src, W_ offset, W_ n ) { cloneArray(stg_MUT_ARR_PTRS_FROZEN_info, src, offset, n) |
