Changeset 3890 in Sophya for trunk/SophyaLib/BaseTools/randr48.cc

Timestamp:

Sep 28, 2010, 9:30:18 AM (15 years ago)

Author:

ansari

Message:

suite correction bug SetSeed() ds ThSDR48RandGen (gestion PPF) + retag en V2_2, Reza 28/09/2010

File:

• trunk/SophyaLib/BaseTools/randr48.cc (modified) (3 diffs)

trunk/SophyaLib/BaseTools/randr48.cc

@@ -273 +273 @@
 }
 
-void ThSDR48RandGen::GetSeed_P(uint_2 seed[3])
-{
-  return DR48RandGen::GetSeed(seed);
-}
 
 //----------------------------------------------------------
@@ -346 +342 @@
   uint_8 sz,ix;
   s.Get(sz);  // Taille du tableau intermediaire
-  s.Get(ix);  // Taille du tableau intermediaire
+  s.Get(ix);  // valeur de l'index ds le tableau intermediaire
 
   if (dobj == NULL) dobj = new ThSDR48RandGen(sz, (sz>0)?true:false);
@@ -362 +358 @@
   //NON ? pourquoi faire GetSeed ? : dobj->GetSeed_P(seed_16v);
   for(int i=0; i<3; i++)  seed_16v[i] = itab[i+1];
-  dobj->SetSeed(seed_16v);
+  ths_rand->lock();  // thread-safety
+  dobj->SetSeed_P(seed_16v);
+  ths_rand->unlock(); // thread-safety
   return;
 }