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

* tscannerfile.readoptionalstate can handle also switches enclosed in (* ... *) comments

Browse Source 
git-svn-id: trunk@33522 -
This commit is contained in:
florian 2016-04-15 19:08:44 +00:00
parent 4afb96a1cb
commit e566fe1938
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/scanner.pas
View File

@ -4231,7 +4231,7 @@ type
if c=' ' then
begin
current_scanner.skipspace;
if c='}' then
if c in ['*','}'] then
state:=fallback
else
begin
@ -4244,7 +4244,7 @@ type
end;
end
else
if c='}' then
if c in ['*','}'] then
state:=fallback
else
state:=c;