[Nsclspectcl-cvscommits] SpecTcl/Xamine XamineGates.cpp,4.1,4.1.6.1

[Ron F. <ro...@us...>]

Update of /cvsroot/nsclspectcl/SpecTcl/Xamine
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24979

Modified Files:
      Tag: SpecTcl-2-2_development
	XamineGates.cpp 
Log Message:
Added some defensive programming so that failure to get a good gates list
from Xamine will not kill SpecTcl. 


Index: XamineGates.cpp
===================================================================
RCS file: /cvsroot/nsclspectcl/SpecTcl/Xamine/XamineGates.cpp,v
retrieving revision 4.1
retrieving revision 4.1.6.1
diff -C2 -d -r4.1 -r4.1.6.1
*** XamineGates.cpp	2 Jan 2003 16:16:22 -0000	4.1
--- XamineGates.cpp	4 Oct 2004 16:00:20 -0000	4.1.6.1
***************
*** 326,332 ****
  {
    int status;
    long context = Xamine_StartSearch(spec, &status);
!   if((status == NoSuchObject) || (status == NoProcess)) return;
!   assert(status == 0);
  
    msg_object gate;
--- 326,333 ----
  {
    int status;
+ 
    long context = Xamine_StartSearch(spec, &status);
!   if(status != Success) return;	// All errors lead to an empty gate list.
! 
  
    msg_object gate;