Mercurial > octave

comparison liboctave/numeric/randmtzig.c @ 21332:db574711df78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate deprecated register storage class specifier * colamd.cc, randmtzig.c: Don't declare variables with register storage class specifier. * libinterp/parse-tree/module.mk (libinterp/parse-tree/oct-gperf.h): Filter out register storage class specifier from generated code. * oct-tex-lexer.in.ll, lex.ll: Define away register storage class specifier.
author John W. Eaton <jwe@octave.org>
date Wed, 24 Feb 2016 09:52:27 -0500
parents c53bfd6d8e08
children 1b9a36a66b01
comparison
equal deleted inserted replaced
21331:ca084a8b64c3 21332:db574711df78
337 337
338 /* generates a random number on [0,0xffffffff]-interval */ 338 /* generates a random number on [0,0xffffffff]-interval */
339 static uint32_t 339 static uint32_t
340 randmt (void) 340 randmt (void)
341 { 341 {
342 register uint32_t y; 342 uint32_t y;
343 343
344 if (--left == 0) 344 if (--left == 0)
345 next_state (); 345 next_state ();
346 y = *next++; 346 y = *next++;
347 347
579 */ 579 */
580 # ifdef HAVE_X86_32 580 # ifdef HAVE_X86_32
581 /* 53-bit mantissa, 1-bit sign, x86 32-bit architecture */ 581 /* 53-bit mantissa, 1-bit sign, x86 32-bit architecture */
582 double x; 582 double x;
583 int si,idx; 583 int si,idx;
584 register uint32_t lo, hi; 584 uint32_t lo, hi;
585 int64_t rabs; 585 int64_t rabs;
586 uint32_t *p = (uint32_t *)&rabs; 586 uint32_t *p = (uint32_t *)&rabs;
587 lo = randi32 (); 587 lo = randi32 ();
588 idx = lo&0xFF; 588 idx = lo&0xFF;
589 hi = randi32 (); 589 hi = randi32 ();