paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 04:13:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ FPC also accepts binary numbers starting with %

Browse Source
This commit is contained in:
michael 2003-10-25 16:24:29 +00:00
parent 2660c358f3
commit 027cbe6a64
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fcl/passrc/pscanner.pp
View File

@ -563,6 +563,18 @@ begin
Move(TokenStart^, FCurTokenString[1], SectionLength); Move(TokenStart^, FCurTokenString[1], SectionLength);
Result := tkNumber; Result := tkNumber;
end; end;
'%':
begin
TokenStart := TokenStr;
repeat
Inc(TokenStr);
until not (TokenStr[0] in ['0','1']);
SectionLength := TokenStr - TokenStart;
SetLength(FCurTokenString, SectionLength);
if SectionLength > 0 then
Move(TokenStart^, FCurTokenString[1], SectionLength);
Result := tkNumber;
end;
'''': '''':
begin begin
Inc(TokenStr); Inc(TokenStr);
@ -1014,7 +1026,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 2003-09-02 13:26:06 mattias Revision 1.5 2003-10-25 16:24:29 michael
+ FPC also accepts binary numbers starting with %
Revision 1.4 2003/09/02 13:26:06 mattias
MG: added IF directive skipping MG: added IF directive skipping
Revision 1.3 2003/04/04 08:01:55 michael Revision 1.3 2003/04/04 08:01:55 michael