rev 497 - in trunk: docs/tutorial pr/test src

Author: mark
Date: 2004-05-17 21:51:43 -0400 (Mon, 17 May 2004)
New Revision: 497

Modified:
   trunk/docs/tutorial/index.htm
   trunk/pr/test/test.pr
   trunk/src/interp.c
Log:
changed pre-call lock only lock values, not labels

Modified: trunk/docs/tutorial/index.htm
===================================================================
--- trunk/docs/tutorial/index.htm	2004-05-18 01:15:17 UTC (rev 496)
+++ trunk/docs/tutorial/index.htm	2004-05-18 01:51:43 UTC (rev 497)
@@ -219,7 +219,8 @@
     <tr> 
       <td width="114" height="25" valign="top">&nbsp;<a href="http://prothon.org">Prothon 
         Home</a></td>
-      <td width="194" valign="middle" align="center" height="25">&nbsp;</td>
+      <td width="194" valign="middle" align="center" height="25"><a href="index2.htm">Outline 
+        continued</a></td>
       <td width="183" valign="middle" align="center" height="25">&nbsp;</td>
       <td width="139" valign="middle" align="center" height="25"><a href="index2.htm">Next 
         Page</a></td>
Modified: trunk/pr/test/test.pr
===================================================================
--- trunk/pr/test/test.pr	2004-05-18 01:15:17 UTC (rev 496)
+++ trunk/pr/test/test.pr	2004-05-18 01:51:43 UTC (rev 497)
@@ -6,5 +6,5 @@
     height = 10
     def area():
         return self.width * self.height
-        
 rect2 = Rectangle()
+

Modified: trunk/src/interp.c
===================================================================
--- trunk/src/interp.c	2004-05-18 01:15:17 UTC (rev 496)
+++ trunk/src/interp.c	2004-05-18 01:51:43 UTC (rev 497)
@@ -675,13 +675,13 @@
 	int i;
 	read_lock(ist, slf);							
 	if (!intrp_exobj && plist) {					
-		for(i=0; i < clist_len(plist); i++) {		
+		for(i=1; i < clist_len(plist); i+=2) {		
 			obj_p p = clist_item(plist, i);			
 			if (p > MIN_OBJ && p != (slf))			
 				rdlock_brk(p);						
 		}											
 		if (intrp_exobj) {							
-			for (i--; i >= 0; i--) {				
+			for (i -= 2; i > 0; i -= 2) {				
 				obj_p p = clist_item(plist, i);		
 				if (p > MIN_OBJ && p != (slf))		
 					read_unlock(ist, p);			
@@ -695,7 +695,7 @@
 	int i;
 	read_unlock(ist, slf);							
 	if (plist)										
-		for(i=0; i < clist_len(plist); i++) {		
+		for(i=1; i < clist_len(plist); i += 2) {		
 			obj_p p = clist_item(plist, i);			
 			if (p > MIN_OBJ && p != (slf))			
 				read_unlock(ist, p);