/[gcl]/gcl/o/num_log.c
ViewVC logotype

Diff of /gcl/o/num_log.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by camm, Sat Nov 27 22:19:35 2004 UTC revision 1.16 by camm, Sun Nov 28 04:10:53 2004 UTC
# Line 159  int (*intLogOps)()[16]= { Line 159  int (*intLogOps)()[16]= {
159  static int  static int
160  fix_bitp(object x, int p)  fix_bitp(object x, int p)
161  {  {
162          if (p > 30) {           /* fix = sign + bit0-30 */          if (p > LOG_WORD_SIZE-2) {              /* fix = sign + bit0-30 */
163                  if (fix(x) < 0)                  if (fix(x) < 0)
164                          return(1);                          return(1);
165                  else                  else

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26