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

* Fix one character being eaten at end of input string

Browse Source 
git-svn-id: trunk@40926 -
This commit is contained in:
michael 2019-01-20 11:11:58 +00:00
parent 1895b3ce37
commit fd6fbed094
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pparser.pp
View File

@ -628,7 +628,8 @@ var
l := CurPos - Start; l := CurPos - Start;
if l <= 0 then if l <= 0 then
exit; exit;
s:=copy(FPCCommandLine,Start,l); s:=Trim(copy(FPCCommandLine,Start,l));
Writeln('Examining >>',S,'<<');
if (s[1] = '-') and (length(s)>1) then if (s[1] = '-') and (length(s)>1) then
begin begin
case s[2] of case s[2] of
@ -747,6 +748,7 @@ begin
end; end;
Inc(CurPos); Inc(CurPos);
end; end;
Inc(CurPos);
ProcessCmdLinePart; ProcessCmdLinePart;
end; end;