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

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

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

git-svn-id: trunk@17839 -
This commit is contained in:
marco 2011-06-26 20:20:01 +00:00
parent a59fa38434
commit 93049cead0
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/numlib/src/mdt.pas
View File

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

2
packages/numlib/src/sle.pas
View File

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

10
packages/numlib/src/spe.pas
View File

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