paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-29 08:10:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow identifiers to start with _

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-11-26 12:00:33 +01:00
parent 571ad193dc
commit 9641700974
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/fpexprpars.pas
View File

@ -1460,7 +1460,7 @@ begin
Result := DoNumber(nkBinary) Result := DoNumber(nkBinary)
else if IsDigit(C, nkDecimal) then else if IsDigit(C, nkDecimal) then
Result:=DoNumber(nkDecimal) Result:=DoNumber(nkDecimal)
else if IsAlpha(C) or (C='"') then else if IsAlpha(C) or (C='"') or (C='_') then
Result:=DoIdentifier Result:=DoIdentifier
else else
ScanError(Format(SErrUnknownCharacter,[FPos,C])) ; ScanError(Format(SErrUnknownCharacter,[FPos,C])) ;