rev 304 - in trunk: pr src

Author: mark
Date: 2004-04-08 19:04:27 -0400 (Thu, 08 Apr 2004)
New Revision: 304

Modified:
   trunk/pr/chained.pr
   trunk/pr/test.pr
   trunk/src/parser_routines.c
Log:
chained compares (a<b<c) are fixed, 
there is bug in chained.pr though that is unrelated

Modified: trunk/pr/chained.pr
===================================================================
--- trunk/pr/chained.pr	2004-04-08 22:18:02 UTC (rev 303)
+++ trunk/pr/chained.pr	2004-04-08 23:04:27 UTC (rev 304)
@@ -1,9 +1,6 @@
 
-# chained.pr
+#!/usr/bin/env prothon
 
-print 30 <= 30 >= 30 >= 20
-
-/*
 print "these should all be true\n"
 
 print 1 < 2 < 3 < 5 < 199
@@ -34,4 +31,4 @@
 
 c(1,0) < c(2,1) < c(3,2)
 c(1,0) > c(2,1) < c(3,2)
-*/
\ No newline at end of file
+
Modified: trunk/pr/test.pr
===================================================================
--- trunk/pr/test.pr	2004-04-08 22:18:02 UTC (rev 303)
+++ trunk/pr/test.pr	2004-04-08 23:04:27 UTC (rev 304)
@@ -1,11 +1,5 @@
 #!/usr/bin/env prothon
 
-print "hello world"
+def f(a,b): pass
 
-p = Object()
-with p:
-	def .__init__(x=1):
-			print x
-
-y=p()
-y=p(2)
+print f(1,2), f(1,2)

Modified: trunk/src/parser_routines.c
===================================================================
--- trunk/src/parser_routines.c	2004-04-08 22:18:02 UTC (rev 303)
+++ trunk/src/parser_routines.c	2004-04-08 23:04:27 UTC (rev 304)
@@ -583,7 +583,7 @@
 	res->code_data[k++].data            = OBJ(PR_FALSE);
 	res->code_data[k  ].bytecode.opcode = OP_POP;
 	res->code_data[k++].bytecode.param  = 1;
-	add_code_to(rparm, res, &k);
+	add_code_no_free(rparm, res, &k);
 	return debug_retrn(__LINE__, res);
 }
 code_p binary(void* param, code_p lparm, int op, code_p rparm){