mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2026-09-17 14:49:30 -07:00
media-radio/wsjtx_improved: Fix build with GCC-16
Signed-off-by: Thomas Beierlein <tomjbe@gentoo.org>
This commit is contained in:
28
media-radio/wsjtx_improved/files/wsjtx-3.0.0-gcc16.patch
Normal file
28
media-radio/wsjtx_improved/files/wsjtx-3.0.0-gcc16.patch
Normal file
@@ -0,0 +1,28 @@
|
||||
diff --git a/lib/jplsubs.f b/lib/jplsubs.f
|
||||
index 0920bc3..e1447e5 100755
|
||||
--- a/lib/jplsubs.f
|
||||
+++ b/lib/jplsubs.f
|
||||
@@ -533,7 +533,7 @@ C
|
||||
|
||||
C+++++++++++++++++++++++++
|
||||
C
|
||||
- SUBROUTINE SPLIT(TT,FR)
|
||||
+ SUBROUTINE SSPLIT(TT,FR)
|
||||
C
|
||||
C+++++++++++++++++++++++++
|
||||
C
|
||||
@@ -754,11 +754,11 @@ C ********** MAIN ENTRY POINT **********
|
||||
IF(ET2(1) .EQ. 0.D0) RETURN
|
||||
|
||||
S=ET2(1)-.5D0
|
||||
- CALL SPLIT(S,PJD(1))
|
||||
- CALL SPLIT(ET2(2),PJD(3))
|
||||
+ CALL SSPLIT(S,PJD(1))
|
||||
+ CALL SSPLIT(ET2(2),PJD(3))
|
||||
PJD(1)=PJD(1)+PJD(3)+.5D0
|
||||
PJD(2)=PJD(2)+PJD(4)
|
||||
- CALL SPLIT(PJD(2),PJD(3))
|
||||
+ CALL SSPLIT(PJD(2),PJD(3))
|
||||
PJD(1)=PJD(1)+PJD(3)
|
||||
|
||||
C ERROR RETURN FOR EPOCH OUT OF RANGE
|
||||
@@ -37,6 +37,7 @@ PATCHES=(
|
||||
"${FILESDIR}/wsjtx-2.3.0-drop-docs.patch"
|
||||
"${FILESDIR}/wsjtx-clang.patch"
|
||||
"${FILESDIR}/wsjtx-3.0.0-fix-sound-dir.patch"
|
||||
"${FILESDIR}/wsjtx-3.0.0-gcc16.patch"
|
||||
"${FILESDIR}/wsjtx-2.8.0-qt692-audio.patch"
|
||||
)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user