Browse Source

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

git-svn-id: trunk@21682 -
marco 13 years ago
parent
commit
40d26638a7
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-db/src/base/dsparams.inc

+ 2 - 1
packages/fcl-db/src/base/dsparams.inc

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