diff options
| author | Artem Pelenitsyn <a.pelenitsyn@gmail.com> | 2018-08-21 16:07:24 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-08-21 18:56:12 -0400 |
| commit | c6f4eb4f8bc5e00024c74198ab9126bf1750db40 (patch) | |
| tree | 25f32efe0e0e9b14c1d028d88a4e9aa3f1cb3c5a /compiler/prelude | |
| parent | c331592130ef592b92084e7417581a4039bfa7d2 (diff) | |
| download | haskell-c6f4eb4f8bc5e00024c74198ab9126bf1750db40.tar.gz | |
Fix precision of asinh/acosh/atanh by making them primops
Reviewers: hvr, bgamari, simonmar, jrtc27
Reviewed By: bgamari
Subscribers: alpmestan, rwbarton, thomie, carter
Differential Revision: https://phabricator.haskell.org/D5034
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index df92bfaa2f..d4a9d7bd45 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -618,6 +618,21 @@ primop DoubleTanhOp "tanhDouble#" Monadic with code_size = { primOpCodeSizeForeignCall } +primop DoubleAsinhOp "asinhDouble#" Monadic + Double# -> Double# + with + code_size = { primOpCodeSizeForeignCall } + +primop DoubleAcoshOp "acoshDouble#" Monadic + Double# -> Double# + with + code_size = { primOpCodeSizeForeignCall } + +primop DoubleAtanhOp "atanhDouble#" Monadic + Double# -> Double# + with + code_size = { primOpCodeSizeForeignCall } + primop DoublePowerOp "**##" Dyadic Double# -> Double# -> Double# {Exponentiation.} @@ -744,6 +759,21 @@ primop FloatTanhOp "tanhFloat#" Monadic with code_size = { primOpCodeSizeForeignCall } +primop FloatAsinhOp "asinhFloat#" Monadic + Float# -> Float# + with + code_size = { primOpCodeSizeForeignCall } + +primop FloatAcoshOp "acoshFloat#" Monadic + Float# -> Float# + with + code_size = { primOpCodeSizeForeignCall } + +primop FloatAtanhOp "atanhFloat#" Monadic + Float# -> Float# + with + code_size = { primOpCodeSizeForeignCall } + primop FloatPowerOp "powerFloat#" Dyadic Float# -> Float# -> Float# with |