w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-23 12:38:53 -04:00
Code Issues Packages Projects Releases Wiki Activity

Don't allow an illegal message to crash routine genft8().

Browse Source
This commit is contained in:
Joe Taylor 2018-11-27 15:26:24 -05:00
parent 56f91cfcbb
commit 9e74125799
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/ft8/genft8.f90
View File

@ -20,7 +20,10 @@ subroutine genft8(msg,i3,n3,msgsent,msgbits,itone)
call unpack77(c77,msgsent,unpk77_success)
read(c77,'(77i1)',err=1) msgbits
go to 2
1 write(81,*) msg,c77 ; flush(81)
1 msgbits=0
itone=0
msgsent='*** bad message *** '
return
entry get_tones_from_77bits(msgbits,itone)