Преглед изворни кода

Fixed issue with unterminated #rem hanging parser.

Mark Sibly пре 9 година
родитељ
комит
5d2120c8ad
1 измењених фајлова са 3 додато и 3 уклоњено
  1. 3 3
      src/mx2new/parser.monkey2

+ 3 - 3
src/mx2new/parser.monkey2

@@ -1777,10 +1777,10 @@ Class Parser
 		If Not _fdecl Return _toker.Bump()
 	
 		Local ptoke:=Toke
-		
+
 		Repeat
 		
-			_toker.Bump()
+			If Not _toker.Bump() Exit
 			
 			If _toker.TokeType=TOKE_PREPROC
 			
@@ -1807,7 +1807,7 @@ Class Parser
 			Endif
 			
 			Exit
-		
+			
 		Forever
 		
 		Return _toker.Toke