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

* skip newline after comment. Patch by Lacak2, #22031

Browse Source 
git-svn-id: trunk@21682 -
This commit is contained in:
marco 2012-06-22 19:14:26 +00:00
parent f2e83b0d7e
commit 40d26638a7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/base/dsparams.inc
View File

@ -213,7 +213,8 @@ begin
repeat // skip until at end of line
Inc(p);
until p^ in [#10, #0];
end
end;
if p^<>#0 then Inc(p); // newline is part of comment
end;
'/': // possible start of /* */ comment
begin