--- 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$'
! !
+