rev 265 - in trunk: pr src

Author: mark
Date: 2004-04-03 01:03:50 -0500 (Sat, 03 Apr 2004)
New Revision: 265

Modified:
   trunk/pr/test.pr
   trunk/src/prothon.y
Log:
yet anothr indent bug fix

Modified: trunk/pr/test.pr
===================================================================
--- trunk/pr/test.pr	2004-04-03 05:35:04 UTC (rev 264)
+++ trunk/pr/test.pr	2004-04-03 06:03:50 UTC (rev 265)
@@ -1,5 +1,7 @@
 #!/usr/local/bin/prothon
 
 def x():
-	print 2
-		 ,44
+  print 2
+   ,44
+		 
+x()

Modified: trunk/src/prothon.y
===================================================================
--- trunk/src/prothon.y	2004-04-03 05:35:04 UTC (rev 264)
+++ trunk/src/prothon.y	2004-04-03 06:03:50 UTC (rev 265)
@@ -699,9 +699,9 @@
 
 	/* process white space and comments */
 	while(1){
-		while ((c=getch(state)) == ' ' || c == '\t' ) ;
-	
-	check_comment:
+		c=getch(state);
+check_comment:
+		while (c == ' ' || c == '\t') c = getch(state);
 		if (c == '#')
 			while ((c=getch(state)) != '\n' && c != EOF ) ;
 		if (c == '/'){