Changeset 9965


Ignore:
Timestamp:
Jul 10, 2008, 9:25:16 AM (11 years ago)
Author:
gb
Message:

use "natural" type, not "unsigned long".
Still more early Windows stuff from trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/lisp.h

    r6900 r9965  
    3737extern int page_size, log2_page_size;
    3838
    39 static inline unsigned long
    40 _align_to_power_of_2(unsigned long n, unsigned power)
     39static inline natural
     40_align_to_power_of_2(natural n, unsigned power)
    4141{
    42   unsigned long align = (1<<power) -1;
     42  natural align = (1<<power) -1;
    4343
    4444  return (n+align) & ~align;
    4545}
    4646
    47 #define align_to_power_of_2(n,p) _align_to_power_of_2(((unsigned long)(n)),p)
     47#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);
     
    5959size_t
    6060ensure_stack_limit(size_t);
     61
     62char *
     63print_lisp_object(LispObj);
    6164
    6265#include "kernel-globals.h"
     
    7376#define PLATFORM_OS_DARWIN 3
    7477#define PLATFORM_OS_FREEBSD 4
     78#define PLATFORM_OS_WINDOWS 6
    7579
    7680#ifdef LINUX
     
    8892#ifdef SOLARIS
    8993#define PLATFORM_OS PLATFORM_OS_SOLARIS
     94#endif
     95
     96#ifdef WINDOWS
     97#define PLATFORM_OS PLATFORM_OS_WINDOWS
    9098#endif
    9199
Note: See TracChangeset for help on using the changeset viewer.