mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 02:26:20 +02:00
* Numeric chars allowed in identifier, no need to escape
This commit is contained in:
parent
56108f4799
commit
2b99abdd4d
@ -445,7 +445,7 @@ begin
|
||||
While iIn<=Length(S) do
|
||||
begin
|
||||
C:=S[iIn];
|
||||
If Not (C in ['a'..'z','A'..'Z','_','-']) then
|
||||
If Not (C in ['a'..'z','A'..'Z','_','-','0'..'9']) then
|
||||
begin
|
||||
inc(iOut);
|
||||
Result[iOut]:='\';
|
||||
|
Loading…
Reference in New Issue
Block a user