Fix pack/unpack bugs reported by VE5VA.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3121 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2026-07-26 20:14:24 -04:00 · 2013-04-02 16:37:10 +00:00
parent a36155e316
commit e956a01e95
4 changed files with 7 additions and 7 deletions
@@ -16,7 +16,7 @@ subroutine unpackmsg(dat,msg)

  ng=ishft(iand(dat(10),15),12) + ishft(dat(11),6) + dat(12)

-  if(ng.gt.32768) then
+  if(ng.ge.32768) then
     call unpacktext(nc1,nc2,ng,msg)
     go to 100
  endif