* Fix one character being eaten at end of input string

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@40926 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 1 deletions

diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp
index f851e68b9d..69ee18f82e 100644
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@@ -628,7 +628,8 @@ var
     l := CurPos - Start;
     if l <= 0 then
       exit;
-    s:=copy(FPCCommandLine,Start,l);
+    s:=Trim(copy(FPCCommandLine,Start,l));
+    Writeln('Examining >>',S,'<<');
     if (s[1] = '-') and (length(s)>1) then
     begin
       case s[2] of
@@ -747,6 +748,7 @@ begin
           end;
         Inc(CurPos);
         end;
+      Inc(CurPos);
       ProcessCmdLinePart;
       end;