* Fixes Mantis #19635, various small issues reported by A. Klenin.

    Slightly different than the patch though (commenting/ifdefing instead of removal)

git-svn-id: trunk@17839 -

packages/numlib/src/mdt.pas

@@ -946,5 +946,7 @@ Begin
 End; {mdtdtr}
 
 Begin
+ {$ifdef fixate_random}
   randseed := 12345
+ {$endif}
 End.

packages/numlib/src/sle.pas

@@ -2272,5 +2272,7 @@ Begin
 End; {slegtr}
 
 Begin
+  {$ifdef fixate_random}
   randseed := 12345
+  {$endif}
 End.

packages/numlib/src/spe.pas

@@ -1279,18 +1279,18 @@ const ErrorS : array[400..408,1..6] of char =
       'spegam',
       'spelga');
 
-var ErrFil : text;
+//var ErrFil : text;
 
 begin
      ExitProc := ExitSave;
-     Assign(ErrFil, 'CON');
-     ReWrite(ErrFil);
+//     Assign(ErrFil, 'CON');
+//    ReWrite(ErrFil);
      if (ExitCode>=400) AND (ExitCode<=408) then
        begin
-         write(ErrFil, 'critical error in ', ErrorS[ExitCode]);
+//         write(ErrFil, 'critical error in ', ErrorS[ExitCode]);
          ExitCode := 201
        end;
-     Close(ErrFil)
+//     Close(ErrFil)
 end;
 
 begin