paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 15:09:36 +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 try
Eval:=TEvaluator.Create(Varname,Expr); Eval:=TEvaluator.Create(Varname,Expr);
try try
if high(variablenames)>0 then if high(variablenames)>=0 then
begin begin
for i:=low(variablenames) to high(variablenames) do for i:=low(variablenames) to high(variablenames) do
begin begin

6
rtl/inc/getopts.pp
View File

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