Changeset 3890 in Sophya for trunk/SophyaLib

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

Location:

trunk/SophyaLib/BaseTools

Files:

• randr48.cc (modified) (3 diffs)
• randr48.h (modified) (1 diff)

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;
 }

trunk/SophyaLib/BaseTools/randr48.h

@@ -70 +70 @@
   virtual r_8 Next();
 
-  virtual void GetSeed_P(uint_2 seed[3]);  // Pour utilisation par PPF handler 
-
+//! For PPF handler use 
+  inline void GetSeed_P(uint_2 seed[3])  
+    { return DR48RandGen::GetSeed(seed); }
+//! For PPF handler use 
+  inline void SetSeed_P(uint_2 seed[3])   
+    { return DR48RandGen::SetSeed(seed); }
 };