Tweaked to allow _ as a leading character in identifier names (if
use of underscores in identifiers has been turned on).
This commit is contained in:
		
							parent
							
								
									e4292486a3
								
							
						
					
					
						commit
						39689a4de9
					
				
					 1 changed files with 7 additions and 0 deletions
				
			
		| 
						 | 
				
			
			@ -418,7 +418,14 @@ again:
 | 
			
		|||
		if( ch == EOI ) eofseen = 1;
 | 
			
		||||
		else PushBack();
 | 
			
		||||
 | 
			
		||||
		/* dtrg: removed to allow Pascal programs to access system routines
 | 
			
		||||
		 * (necessary to make them do anything useful). What's this for,
 | 
			
		||||
		 * anyway? */
 | 
			
		||||
		 
 | 
			
		||||
#if 0
 | 
			
		||||
		if( buf[0] == '_' ) lexerror("underscore starts identifier");
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
		tk->TOK_IDF = id = str2idf(buf, 1);
 | 
			
		||||
		return tk->tk_symb = id->id_reserved ? id->id_reserved : IDENT;
 | 
			
		||||
	}
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue