mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-11-03 21:40:52 -05:00 
			
		
		
		
	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:
		
							parent
							
								
									2afb8ca514
								
							
						
					
					
						commit
						b124626138
					
				@ -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
 | 
			
		||||
 | 
			
		||||
@ -83,8 +83,6 @@ subroutine getfile(fname,len)
 | 
			
		||||
  endif
 | 
			
		||||
 | 
			
		||||
  mousebutton=0
 | 
			
		||||
  ndecoding=4
 | 
			
		||||
 | 
			
		||||
  go to 999
 | 
			
		||||
 | 
			
		||||
998 ierr=1001
 | 
			
		||||
 | 
			
		||||
							
								
								
									
										1
									
								
								spec.f90
									
									
									
									
									
								
							
							
						
						
									
										1
									
								
								spec.f90
									
									
									
									
									
								
							@ -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
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user