# revisions: 45676,45683

git-svn-id: branches/fixes_3_2@45703 -

packages/symbolic/src/symbolic.pas

@@ -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

rtl/inc/getopts.pp

@@ -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;