rev 719 - in trunk: include/prothon src

Author: mark
Date: 2004-07-09 20:38:58 -0400 (Fri, 09 Jul 2004)
New Revision: 719

Modified:
   trunk/include/prothon/prothon.h
   trunk/src/parser_routines.c
Log:
try/except wasn't passing exceptions on

Modified: trunk/include/prothon/prothon.h
===================================================================
--- trunk/include/prothon/prothon.h	2004-07-09 23:24:58 UTC (rev 718)
+++ trunk/include/prothon/prothon.h	2004-07-10 00:38:58 UTC (rev 719)
@@ -81,7 +81,7 @@
 #endif
  
 #define PROTHON_VERSION_NUMBER	"0.1"
-#define PROTHON_VERSION_BUILD   "$Rev: 718$"  
+#define PROTHON_VERSION_BUILD   "$Rev: 719$"  
 #define PROTHON_VERSION_DATE	__DATE__
 
 #ifndef FALSE

Modified: trunk/src/parser_routines.c
===================================================================
--- trunk/src/parser_routines.c	2004-07-09 23:24:58 UTC (rev 718)
+++ trunk/src/parser_routines.c	2004-07-10 00:38:58 UTC (rev 719)
@@ -1596,7 +1596,7 @@
 	else
 		res->code_data[k++].data = OBJ(NONE);
 	res->code_data[k  ].bytecode.opcode = OP_EXCEPT;
-	res->code_data[k++].bytecode.param  = body->len+1;
+	res->code_data[k++].bytecode.param  = body->len+2;
 	pr_assert(res->len == k);
 	return debug_retrn(__LINE__, append_code(param, res, body, 0));
 }