paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 23:40:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* octal constant support

Browse Source 
git-svn-id: trunk@772 -
This commit is contained in:
florian 2005-07-30 20:58:02 +00:00
parent c39efba41b
commit 614b06c3d4
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/passrc/pscanner.pp
View File

@ -553,6 +553,18 @@ begin
Move(TokenStart^, FCurTokenString[1], SectionLength);
Result := tkChar;
end;
'&':
begin
TokenStart := TokenStr;
repeat
Inc(TokenStr);
until not (TokenStr[0] in ['0'..'7']);
SectionLength := TokenStr - TokenStart;
SetLength(FCurTokenString, SectionLength);
if SectionLength > 0 then
Move(TokenStart^, FCurTokenString[1], SectionLength);
Result := tkNumber;
end;
'$':
begin
TokenStart := TokenStr;