forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

sxsyn, BinLiteral and HexLiteral underscore cant be directly after prefix

This commit is contained in:
Basile Burg 2021-10-31 17:41:09 +01:00
parent e4fad338e0
commit 959e20d137
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/u_sxsyn.pas
View File

@ -525,6 +525,8 @@ begin
end; end;
procedure TSynSxSyn.lexHexLiteral(); procedure TSynSxSyn.lexHexLiteral();
var
firstChar: Boolean = false;
begin begin
fTokStop += 2; fTokStop += 2;
fTokKind:=TTokenKind.tkNumbr; fTokKind:=TTokenKind.tkNumbr;
@ -533,7 +535,10 @@ begin
case fLineBuf[fTokStop] of case fLineBuf[fTokStop] of
'0'..'9', 'a'..'f', 'A'..'F', '_': '0'..'9', 'a'..'f', 'A'..'F', '_':
begin begin
if not firstChar and (fLineBuf[fTokStop] = '_') then
fTokKind:=TTokenKind.tkError;
fTokStop += 1; fTokStop += 1;
firstChar := true;
continue; continue;
end end
else while (fTokStop <= fLineBuf.length) and else while (fTokStop <= fLineBuf.length) and
@ -548,6 +553,8 @@ begin
end; end;
procedure TSynSxSyn.lexBinLiteral(); procedure TSynSxSyn.lexBinLiteral();
var
firstChar: Boolean = false;
begin begin
fTokStop += 2; fTokStop += 2;
fTokKind:=TTokenKind.tkNumbr; fTokKind:=TTokenKind.tkNumbr;
@ -556,7 +563,10 @@ begin
case fLineBuf[fTokStop] of case fLineBuf[fTokStop] of
'0', '1', '_': '0', '1', '_':
begin begin
if not firstChar and (fLineBuf[fTokStop] = '_') then
fTokKind:=TTokenKind.tkError;
fTokStop += 1; fTokStop += 1;
firstChar := true;
continue; continue;
end; end;
else while (fTokStop <= fLineBuf.length) and else while (fTokStop <= fLineBuf.length) and