summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMartin Kroeker <martin@ruby.chemie.uni-freiburg.de>2022-07-25 15:41:15 +0200
committerGitHub <noreply@github.com>2022-07-25 15:41:15 +0200
commitcd8e57040cf50da94e87499f6a2241f911a49810 (patch)
treef4810fbd5314ab46caa767c9fed8cd7ed9fb0631
parenta4303ae37817e85eacf459327dea834df6cd23d8 (diff)
parent06ef015234584f57d6743a78df7a7a05f6b39c11 (diff)
downloadopenblas-cd8e57040cf50da94e87499f6a2241f911a49810.tar.gz
openblas-cd8e57040cf50da94e87499f6a2241f911a49810.tar.bz2
openblas-cd8e57040cf50da94e87499f6a2241f911a49810.zip
Merge pull request #3691 from martin-frbg/issue3679-sparc
SPARC: fix DNRM2 returning INF instead of zero due to intermediate overflow
-rw-r--r--kernel/sparc/dnrm2.S8
1 files changed, 8 insertions, 0 deletions
diff --git a/kernel/sparc/dnrm2.S b/kernel/sparc/dnrm2.S
index 04810f652..cf7522953 100644
--- a/kernel/sparc/dnrm2.S
+++ b/kernel/sparc/dnrm2.S
@@ -387,6 +387,14 @@
FMUL fmax, c1, c1
.LL99:
+#ifdef DOUBLE
+ set 0x000010C6F7A0B5ED8, %g1
+
+ st %g1, [%fp-8]
+ ld [%fp-8], a8
+ FCMP %fcc0, a8, fmax
+ fmovdg %fcc0, fzero, c1
+#endif
return %i7 + 8
clr %g0