Home Explore Help
Register Sign In
oberon
/
A2OS
mirror of https://github.com/yarrom/A2OS.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Fixed newline detection

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8182 8c9fc860-2736-0410-a75d-ab315db34111
negelef 7 years ago
parent
7b211a7d9f
commit
1d0db95a7b
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      source/FoxScanner.Mod

+ 1 - 0
source/FoxScanner.Mod
View File 

@@ -840,6 +840,7 @@ TYPE
 
 				symbol.position := position;
 
 				symbol.position := position;
 
 				endPos := position.start;
 
 				endPos := position.start;
 
 				IF (ch >= 'A') & (ch <= 'Z') OR (ch >= 'a') & (ch <= 'z') THEN
 
 				IF (ch >= 'A') & (ch <= 'Z') OR (ch >= 'a') & (ch <= 'z') THEN
 
+					newline := FALSE;
 
 					GetIdentifier(symbol);
 
 					GetIdentifier(symbol);
 
 					IF (case=Uppercase) & (symbol.identifierString = "END") OR (case=Lowercase) & (symbol.identifierString = "end") THEN
 
 					IF (case=Uppercase) & (symbol.identifierString = "END") OR (case=Lowercase) & (symbol.identifierString = "end") THEN
 
 						s := End
 
 						s := End