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

# revisions: 45676,45683

Browse Source 
git-svn-id: branches/fixes_3_2@45703 -
This commit is contained in:
marco 2020-06-27 16:38:32 +00:00
parent c5c9a86789
commit 7717e2c92e
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/symbolic/src/symbolic.pas
View File

@ -504,7 +504,7 @@ begin
try
Eval:=TEvaluator.Create(Varname,Expr);
try
if high(variablenames)>0 then
if high(variablenames)>=0 then
begin
for i:=low(variablenames) to high(variablenames) do
begin

6
rtl/inc/getopts.pp
View File

@ -220,7 +220,9 @@ begin
Last_nonopt:=1;
OptOpt:='?';
Nextchar:=0;
case opts[1] of
ordering:=permute;
if length(opts)>0 then
case opts[1] of
'-' : begin
ordering:=return_in_order;
delete(opts,1,1);
@ -230,7 +232,7 @@ begin
delete(opts,1,1);
end;
else
ordering:=permute;
ordering:=permute;
end;
end;