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

pasotjs: fixed parsing cfg

Browse Source 
git-svn-id: trunk@40076 -
This commit is contained in:
Mattias Gaertner 2018-10-29 15:46:50 +00:00
parent 60eb591844
commit b5d1f1026f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/pastojs/src/pas2jscompiler.pp
View File

@ -3006,13 +3006,13 @@ begin
l:=length(Line);
p:=1;
while (p<=l) and (Line[p] in [' ',#9]) do inc(p);
if l>p then continue; // empty line
if p>l then continue; // empty line
if (p<=l) and (Line[p]='#') then
begin
// cfg directive
inc(p);
if (p<=l) and (Line[p] in [#0,#9,' ','-']) then continue; // comment
if (p>l) or (Line[p] in [#0,#9,' ','-']) then continue; // comment
Directive:=lowercase(GetWord);
case Directive of
'ifdef','ifndef':