For data read from disk, ndecoding is set to 4 only after spec completes.

This seems to fix program crashes on CPUs with hyperthreading enabled.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@129 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-03-21 15:08:20 +00:00
parent f0ac43b43d
commit c9823d1ffb
4 changed files with 4 additions and 5 deletions

View File

@ -58,12 +58,12 @@ subroutine audio_init(ndin,ndout)
m0=SetPriorityClass(GetCurrentProcess(),NORMAL_PRIORITY_CLASS)
! Start a thread for doing A/D and D/A with sound card.
Thread1=CreateThread(0,0,a2d,0,CREATE_SUSPENDED,id)
Thread1=CreateThread(0,0,a2d,0,CREATE_SUSPENDED,id1)
m1=SetThreadPriority(Thread1,THREAD_PRIORITY_ABOVE_NORMAL)
m2=ResumeThread(Thread1)
! Start a thread for background decoding.
Thread2=CreateThread(0,0,decode1,0,CREATE_SUSPENDED,id)
Thread2=CreateThread(0,0,decode1,0,CREATE_SUSPENDED,id2)
m3=SetThreadPriority(Thread2,THREAD_PRIORITY_BELOW_NORMAL)
m4=ResumeThread(Thread2)
#else

View File

@ -83,8 +83,6 @@ subroutine getfile(fname,len)
endif
mousebutton=0
ndecoding=4
go to 999
998 ierr=1001

View File

@ -205,5 +205,6 @@ subroutine spec(brightness,contrast,logmap,ngain,nspeed,a)
enddo
900 continue
if(ndiskdat.eq.1) ndecoding=4
return
end subroutine spec

View File

@ -15,7 +15,7 @@ from types import *
import array
root = Tk()
Version="5.9.3 r" + "$Rev$"[6:-1]
Version="5.9.4 r" + "$Rev$"[6:-1]
print "******************************************************************"
print "WSJT Version " + Version + ", by K1JT"
print "Revision date: " + \