[gambit-list] Gambit-C 4.0 beta 18
Bradley Lucier
lucier at math.purdue.edu
Sat Sep 23 12:32:15 EDT 2006
Thanks, Marc, you are definitely faster than I am. I'm working on
testing this.
The R6RS definition of fxfirst-bit-set says that (fxfirst-bit-set 0)
=> -1, so do you want
[brad:~/programs/gambc-4.0b18/include] lucier% rcsdiff -u gambit.h
===================================================================
RCS file: RCS/gambit.h,v
retrieving revision 1.2
diff -u -r1.2 gambit.h
--- gambit.h 2006/09/23 16:28:13 1.2
+++ gambit.h 2006/09/23 16:28:44
@@ -2567,7 +2567,7 @@
___BITCOUNT_TEMP())
#define ___FIXFIRSTBITSET(x) \
(((___temp=(x))==0) \
-?___FAL \
+ ?___FIX(-1) \
:(___temp=(___temp&-___temp), \
___FIX((((___temp&~___SCMOBJ_MASK(0x55555555,0x55555555))!=0)| \
(((___temp&~___SCMOBJ_MASK(0x33333333,0x33333333))!=0)
<<1)| \
@@ -2598,7 +2598,7 @@
___BITCOUNT_TEMP())
#define ___FIXFIRSTBITSET(x) \
(((___temp=(x))==0) \
-?___FAL \
+ ?___FIX(-1) \
:(___temp=(___temp&-___temp), \
___FIX((((___temp&~___SCMOBJ_MASK(0x55555555,0x55555555))!=0)| \
(((___temp&~___SCMOBJ_MASK(0x33333333,0x33333333))!=0)
<<1)| \
More information about the Gambit-list
mailing list