From 06ef015234584f57d6743a78df7a7a05f6b39c11 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Tue, 19 Jul 2022 10:19:27 +0200
Subject: [PATCH] fix DNRM2 returning INF instead of zero due to intermediate
 overflow

---
 kernel/sparc/dnrm2.S | 8 ++++++++
 1 file changed, 8 insertions(+)

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