paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:06:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

- Removed so-called better random function

Browse Source
This commit is contained in:
michael 1998-04-10 15:25:23 +00:00
parent 2132851581
commit c297ae8bfa
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/i386/i386.inc
View File

@ -782,7 +782,7 @@ begin
end ['EAX']; end ['EAX'];
end; end;
Function Random(L: LongInt): LongInt; assembler; Function Random(L: LongInt): LongInt;{assembler;
asm asm
movl $134775813,%eax movl $134775813,%eax
mull U_SYSTEM_RANDSEED mull U_SYSTEM_RANDSEED
@ -790,11 +790,19 @@ asm
movl %eax,U_SYSTEM_RANDSEED movl %eax,U_SYSTEM_RANDSEED
mull 4(%esp) mull 4(%esp)
movl %edx,%eax movl %edx,%eax
end;}
begin
Randseed:=Randseed*134775813+1;
Random:=abs(Randseed mod l);
end; end;
{ {
$Log$ $Log$
Revision 1.2 1998-04-08 07:53:31 michael Revision 1.3 1998-04-10 15:25:23 michael
- Removed so-called better random function
Revision 1.2 1998/04/08 07:53:31 michael
+ Changed Random() function. Moved from system to processor dependent files (from Pedro Gimeno) + Changed Random() function. Moved from system to processor dependent files (from Pedro Gimeno)
Revision 1.1.1.1 1998/03/25 11:18:43 root Revision 1.1.1.1 1998/03/25 11:18:43 root