#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Tue, 19 Mar 2019 11:31:44 +0100
changeset 4887 8c49f1189e7c
parent 4886 15c1464ddc04
child 4888 1b19c584754c
#BUGFIX by cg class: RandomRDRand changed: #nextInteger
RandomRDRand.st
--- a/RandomRDRand.st	Mon Mar 18 16:48:57 2019 +0100
+++ b/RandomRDRand.st	Tue Mar 19 11:31:44 2019 +0100
@@ -132,41 +132,41 @@
 
     do {
 #ifdef USE_DRAND64
-	cf = _rdrand64_step(&r);
+        cf = _rdrand64_step(&r);
 #else
 # ifdef USE_DRAND32
-	cf = _rdrand32_step(&r);
+        cf = _rdrand32_step(&r);
 # else
 #  if defined(__x86__) && defined(__GNUC__) && (__GNUC__ >= 2)
-	// Encoding of rdrand %eax
-	asm(".byte 0x0F, 0xC7, 0xF0; adcl $0,%1"
-	    : "=a" (r), "=r" (cf)
-	    : "0" (r), "1" (cf)
-	    : "cc");
+        // Encoding of rdrand %eax
+        asm(".byte 0x0F, 0xC7, 0xF0; adcl $0,%1"
+            : "=a" (r), "=r" (cf)
+            : "0" (r), "1" (cf)
+            : "cc");
 
 #  else
 #   if defined(__x86_64__) && defined(__GNUC__) && (__GNUC__ >= 2)
-	// Encoding of rdrand %rax
-	asm(".byte 0x48, 0x0F, 0xC7, 0xF0; adcl $0,%1"
-	    : "=a" (r), "=r" (cf)
-	    : "0" (r), "1" (cf)
-	    : "cc");
+        // Encoding of rdrand %rax
+        asm(".byte 0x48, 0x0F, 0xC7, 0xF0; adcl $0,%1"
+            : "=a" (r), "=r" (cf)
+            : "0" (r), "1" (cf)
+            : "cc");
 
 #   else
-	goto unsupported;
+        goto unsupported;
 #   endif
 #  endif
 # endif
 #endif
     } while ((cf != 0) && (--count > 0));
     if (cf == 0) {
-	RETURN (__MKUINT(r));
+        RETURN (__MKUINT(r));
     }
     cfStillSet = true;
 unsupported: ;
 %}.
-    cfStillSet ifTrue:[
-	self primitiveFailed:'carry flag not clear after 50 tries'
+    cfStillSet == true ifTrue:[
+        self primitiveFailed:'carry flag not clear after 50 tries'
     ].
     self primitiveFailed:'unsupported on this architecture'
 
@@ -184,3 +184,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+