[Ups-cvs] ups/ups ci_compile_expr.c,1.3,1.4

[Tom H. <th...@us...>]

Update of /cvsroot/ups/ups/ups
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29828

Modified Files:
	ci_compile_expr.c 
Log Message:
Backout bogus change of CALL_B to CALL_L as I had misunderstood what
was going on. There is no opcode that supports more than 255 argument
words.


Index: ci_compile_expr.c
===================================================================
RCS file: /cvsroot/ups/ups/ups/ci_compile_expr.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ci_compile_expr.c	15 Mar 2005 15:43:15 -0000	1.3
--- ci_compile_expr.c	16 Mar 2005 10:01:55 -0000	1.4
***************
*** 963,975 ****
  		ci_panic("args botch in cfc");
  
! 	if (is_direct_call) {
! 		ci_code_generic_opcode(tx, OC_CALL_L, (stackword_t)func_index);
! 		ci_code_long(tx, nargs + excess_slots);
! 	}
  	else {
  		ci_compile_expression(tx, fce->fce_func, EC_VALUE);
  		ci_code_opcode(tx, OC_CALL_INDIRECT);
- 		ci_code_byte(tx, nargs + excess_slots);
  	}
  
  #if WANT_TYPE_PUSHED
--- 963,973 ----
  		ci_panic("args botch in cfc");
  
! 	if (is_direct_call)
! 		ci_code_generic_opcode(tx, OC_CALL_B, (stackword_t)func_index);
  	else {
  		ci_compile_expression(tx, fce->fce_func, EC_VALUE);
  		ci_code_opcode(tx, OC_CALL_INDIRECT);
  	}
+ 	ci_code_byte(tx, nargs + excess_slots);
  
  #if WANT_TYPE_PUSHED