paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +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 if c=' ' then
begin begin
current_scanner.skipspace; current_scanner.skipspace;
if c='}' then if c in ['*','}'] then
state:=fallback state:=fallback
else else
begin begin
@ -4244,7 +4244,7 @@ type
end; end;
end end
else else
if c='}' then if c in ['*','}'] then
state:=fallback state:=fallback
else else
state:=c; state:=c;