paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +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;
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;