Tcl Source Code: Artifact [eb287d122b]

Artifact eb287d122b4ca1ca7eac6384067024a743c49ef5:

Attachment "rand_patch.txt" to ticket [416643ffff] added by davygrvy 2001-04-20 10:20:40.

*** tclExecute.c	2001/04/07 03:15:38	1.21
--- tclExecute.c	2001/04/20 01:32:03
***************
*** 4083,4089 ****
  
      if (!(iPtr->flags & RAND_SEED_INITIALIZED)) {
  	iPtr->flags |= RAND_SEED_INITIALIZED;
! 	iPtr->randSeed = TclpGetClicks();
  
  	/*
  	 * Make sure 1 <= randSeed <= (2^31) - 2.  See below.
--- 4083,4094 ----
  
      if (!(iPtr->flags & RAND_SEED_INITIALIZED)) {
  	iPtr->flags |= RAND_SEED_INITIALIZED;
! 
! 	/*
! 	 * take into consideration the thread this interp is running in.
! 	 */
! 
! 	iPtr->randSeed = TclpGetClicks() + ((long) Tcl_GetCurrentThread() << 12);
  
  	/*
  	 * Make sure 1 <= randSeed <= (2^31) - 2.  See below.