Changeset 8470


Ignore:
Timestamp:
Feb 12, 2008, 11:12:57 AM (12 years ago)
Author:
gb
Message:

"long" isn't always the same as "natural", so change truncate_to_power_of_2
prototype.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/lisp.h

    r8387 r8470  
    4747#define align_to_power_of_2(n,p) _align_to_power_of_2(((natural)(n)),p)
    4848
    49 static inline unsigned long
    50 _truncate_to_power_of_2(unsigned long n, unsigned power)
     49static inline natural
     50_truncate_to_power_of_2(natural n, unsigned power)
    5151{
    5252  return n & ~((1<<power) -1);
    5353}
    5454
    55 #define truncate_to_power_of_2(n,p) _truncate_to_power_of_2((unsigned long)(n),p)
     55#define truncate_to_power_of_2(n,p) _truncate_to_power_of_2((natural)(n),p)
    5656
    5757LispObj start_lisp(TCR*, LispObj);
Note: See TracChangeset for help on using the changeset viewer.