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

fix highlighter, property for int litterals

This commit is contained in:
Basile Burg 2016-03-29 04:30:25 +02:00
parent 66cfe2be3c
commit 1c33a5bb4a
1 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_d2syn.pas
View File

@ -851,7 +851,14 @@ begin
if reader^ <> '.' then
while isNumber(readerNext^) or (reader^ = '_') do (*!*);
if reader^ = '.' then
while isNumber(readerNext^) or (reader^ = '_') do (*!*);
begin
if isNumber(readerNext^) then
begin
while isNumber(reader^) or (reader^ = '_') do
readerNext;
end else
readerPrev;
end;
if reader^= '.' then
begin
readerNext;
@ -889,18 +896,6 @@ begin
end;
_notDotFloat:
// generic number literals
//if (isNumber(reader^)) then
//begin
// while isHex(readerNext^) or (reader^ = '_') or (reader^ = '.')
// or (reader^ in ['x', 'X', 'u', 'U', 'L', 'i']) do (*!*);
// if isWhite(reader^) or isSymbol(reader^) or isOperator1(reader^) then
// fTokKind := tkNumbr
// else
// fTokKind := tkError;
// exit;
//end;
// symbols
if isSymbol(reader^) then
begin