diff options
| author | Richard Kistruck | 2009-01-20 18:23:53 +0000 |
|---|---|---|
| committer | Richard Kistruck | 2009-01-20 18:23:53 +0000 |
| commit | cd3c824df36b557889fb1fd903351b60b629afbd (patch) | |
| tree | 880270caeb56a8492f9cf30d0752f3c250d60847 /mps/code/testlib.h | |
| parent | e486078a79edd55a290e4087ee92c114fa301e0d (diff) | |
| download | emacs-cd3c824df36b557889fb1fd903351b60b629afbd.tar.gz emacs-cd3c824df36b557889fb1fd903351b60b629afbd.zip | |
Mps br/timing rnd():
Use a = 48271. Use fast implementation. Much improved verification by rnd_verify().
Copied from Perforce
Change: 167182
ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code/testlib.h')
| -rw-r--r-- | mps/code/testlib.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/mps/code/testlib.h b/mps/code/testlib.h index 94161adb58d..cf40053c2d3 100644 --- a/mps/code/testlib.h +++ b/mps/code/testlib.h | |||
| @@ -138,12 +138,16 @@ extern void verror(const char *format, va_list args); | |||
| 138 | 138 | ||
| 139 | /* rnd -- random number generator | 139 | /* rnd -- random number generator |
| 140 | * | 140 | * |
| 141 | * rnd() generates a sequence of integers in the range [0, 2^31-2]. | 141 | * rnd() generates a sequence of integers in the range [1, 2^31-1]. |
| 142 | */ | 142 | */ |
| 143 | 143 | ||
| 144 | extern unsigned long rnd(void); | 144 | extern unsigned long rnd(void); |
| 145 | 145 | ||
| 146 | 146 | ||
| 147 | /* rnd_verify() -- checks behaviour of rnd() */ | ||
| 148 | extern void rnd_verify(int depth); | ||
| 149 | |||
| 150 | |||
| 147 | /* rnd_addr -- random number generator | 151 | /* rnd_addr -- random number generator |
| 148 | * | 152 | * |
| 149 | * rnd_addr() generates a sequence of addresses all over the address space. | 153 | * rnd_addr() generates a sequence of addresses all over the address space. |
| @@ -167,7 +171,7 @@ extern void randomize(int argc, char **argv); | |||
| 167 | 171 | ||
| 168 | /* C. COPYRIGHT AND LICENSE | 172 | /* C. COPYRIGHT AND LICENSE |
| 169 | * | 173 | * |
| 170 | * Copyright (C) 2001-2002 Ravenbrook Limited <http://www.ravenbrook.com/>. | 174 | * Copyright (C) 2001-2002, 2008 Ravenbrook Limited <http://www.ravenbrook.com/>. |
| 171 | * All rights reserved. This is an open source license. Contact | 175 | * All rights reserved. This is an open source license. Contact |
| 172 | * Ravenbrook for commercial licensing options. | 176 | * Ravenbrook for commercial licensing options. |
| 173 | * | 177 | * |