w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-04 07:02:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

Guard against callsigns longer that the CW id buffer

Browse Source
This commit is contained in:
Bill Somerville 2021-03-23 15:07:32 +00:00
parent b03c644f10
commit 004df18732
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/morse.f90
View File

@ -64,6 +64,7 @@ subroutine morse(msg,idat,n)
! Insert this character ! Insert this character
nmax=ic(21,j) nmax=ic(21,j)
if (n + nmax + 4 .gt. size (idat)) exit
do i=1,nmax do i=1,nmax
n=n+1 n=n+1
idat(n)=ic(i,j) idat(n)=ic(i,j)