paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:49:09 +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} End; {mdtdtr}
Begin Begin
{$ifdef fixate_random}
randseed := 12345 randseed := 12345
{$endif}
End. End.

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

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

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

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