[frontierkernel-commits] Frontier/Common/source langevaluate.c,1.2,1.3

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23670

Modified Files:
	langevaluate.c 
Log Message:
Fix GCC compiler warnings.

Index: langevaluate.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langevaluate.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** langevaluate.c	23 Oct 2004 22:24:51 -0000	1.2
--- langevaluate.c	30 Oct 2004 23:11:36 -0000	1.3
***************
*** 769,773 ****
  static boolean addmodulecontext (hdlhashtable htable, hdlhashnode hnode, bigstring bsname, hdltreenode htree) {
  	
! 	/*
  	add all of the top-level locals and modules to the current context
  	%/
--- 769,773 ----
  static boolean addmodulecontext (hdlhashtable htable, hdlhashnode hnode, bigstring bsname, hdltreenode htree) {
  	
! 	/%
  	add all of the top-level locals and modules to the current context
  	%/
***************
*** 800,804 ****
  	
  	return (fl);
! 	} /*addmodulecontext*/
  
  
--- 800,805 ----
  	
  	return (fl);
! 	} /%addmodulecontext%/
! */
  
  
***************
*** 905,909 ****
  			
  			/*
! 			if (langexternalvaltocode (valtable, &hcode)) { /*5/14/93 dmb%/
  				
  				if (!hashtablelookupnode (htable, bs, &hnode))
--- 906,910 ----
  			
  			/*
! 			if (langexternalvaltocode (valtable, &hcode)) { /%5/14/93 dmb%/
  				
  				if (!hashtablelookupnode (htable, bs, &hnode))
***************
*** 1348,1352 ****
  	*/
  	
! 	register hdlerrorstack hs = langcallbacks.scripterrorstack;
  	
  	if ((**hp).link != nil)
--- 1349,1353 ----
  	*/
  	
! 	//register hdlerrorstack hs = langcallbacks.scripterrorstack;
  	
  	if ((**hp).link != nil)
***************
*** 1744,1748 ****
  		case breakop:
  			/*
! 			if (!langdebuggercall (h)) /*user killed the script%/
  				return (false);
  			*/
--- 1745,1749 ----
  		case breakop:
  			/*
! 			if (!langdebuggercall (h)) /%user killed the script%/
  				return (false);
  			*/
***************
*** 1762,1766 ****
  		case returnop:
  			/*
! 			if (!langdebuggercall (h)) /*user killed the script%/
  				return (false);
  			*/
--- 1763,1767 ----
  		case returnop:
  			/*
! 			if (!langdebuggercall (h)) /%user killed the script%/
  				return (false);
  			*/
***************
*** 1879,1882 ****
--- 1880,1886 ----
  		#endif
  		
+ 		default:
+ 			/* do nothing for procop, assignlocalop, caseitemop, casebodyop, kernelop, globalop */
+ 			break;
  		} /*switch*/
  	
***************
*** 1903,1907 ****
  
  
! static int ctdeferredthis = 0;
  
  boolean evaluatelist (hdltreenode hfirst, tyvaluerecord *val) {
--- 1907,1913 ----
  
  
! #if lazythis_optimization
! 	static int ctdeferredthis = 0;
! #endif
  
  boolean evaluatelist (hdltreenode hfirst, tyvaluerecord *val) {