Changeset 13699 in project


Ignore:
Timestamp:
03/12/09 10:29:35 (11 years ago)
Author:
Kon Lovett
Message:

*define fix.

Location:
release/4/number-limits
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/number-limits/tags/2.0.0/int-limits.scm

    r13658 r13699  
    1313#if defined(HAVE_LONG_LONG) && HAVE_LONG_LONG
    1414# define LONG_LONG_SIZE           sizeof( long long )
     15# define UNSIGNED_LONG_LONG_SIZE  sizeof( unsigned long long )
    1516#else
    1617# define LONG_LONG_SIZE           -1
    17 #endif
    18 #if defined(UNSIGNED_LONG_LONG_SIZE) && UNSIGNED_LONG_LONG_SIZE
    19 # define UNSIGNED_LONG_LONG_SIZE  sizeof( unsigned long long )
    20 #else
    2118# define UNSIGNED_LONG_LONG_SIZE  -1
    2219#endif
    2320
    24 *define MOST_POSITIVE_INT32 ((int32_t)(0x7fffffffUL))
    25 *define MOST_POSITIVE_INT64 ((int64_t)(0x7fffffffffffffffLL))
     21#define MOST_POSITIVE_INT32 ((int32_t) 0x7fffffffL)
     22#if 0
     23#define MOST_POSITIVE_INT64 ((int64_t) 0x7fffffffffffffffLL)
     24#endif
    2625<#
    2726
     
    3938  most-negative-integer32 most-positive-integer32
    4039  ;
    41   unsigned-integer64-size
    42   maximum-unsigned-integer64
    43   most-negative-integer64 most-positive-integer64
     40  ;;unsigned-integer64-size
     41  ;;maximum-unsigned-integer64
     42  ;;most-negative-integer64 most-positive-integer64
    4443  ;
    4544  char-size       unsigned-char-size
     
    6867;; integer64
    6968
    70 (define unsigned-integer64-size (foreign-value "sizeof( uint64_t )" int))
    71 (define maximum-unsigned-integer64 (foreign-value "((uint64_t)(~0ULL))" unsigned-integer64))
    72 (define most-negative-integer64 (foreign-value "(-MOST_POSITIVE_INT64 - 1)" integer64))
    73 (define most-positive-integer64 (foreign-value "MOST_POSITIVE_INT64" integer64))
     69;;(define unsigned-integer64-size (foreign-value "sizeof( uint64_t )" int))
     70;;(define maximum-unsigned-integer64 (foreign-value "((uint64_t)(~0ULL))" unsigned-integer64))
     71;;(define most-negative-integer64 (foreign-value "(-MOST_POSITIVE_INT64 - 1)" integer64))
     72;;(define most-positive-integer64 (foreign-value "MOST_POSITIVE_INT64" integer64))
    7473
    7574;; char
  • release/4/number-limits/trunk/int-limits.scm

    r13653 r13699  
    1313#if defined(HAVE_LONG_LONG) && HAVE_LONG_LONG
    1414# define LONG_LONG_SIZE           sizeof( long long )
     15# define UNSIGNED_LONG_LONG_SIZE  sizeof( unsigned long long )
    1516#else
    1617# define LONG_LONG_SIZE           -1
    17 #endif
    18 #if defined(UNSIGNED_LONG_LONG_SIZE) && UNSIGNED_LONG_LONG_SIZE
    19 # define UNSIGNED_LONG_LONG_SIZE  sizeof( unsigned long long )
    20 #else
    2118# define UNSIGNED_LONG_LONG_SIZE  -1
    2219#endif
    2320
    24 *define MOST_POSITIVE_INT32 ((int32_t)(0x7fffffffUL))
    25 *define MOST_POSITIVE_INT64 ((int64_t)(0x7fffffffffffffffLL))
     21#define MOST_POSITIVE_INT32 ((int32_t) 0x7fffffffL)
     22#if 0
     23#define MOST_POSITIVE_INT64 ((int64_t) 0x7fffffffffffffffLL)
     24#endif
    2625<#
    2726
     
    3938  most-negative-integer32 most-positive-integer32
    4039  ;
    41   unsigned-integer64-size
    42   maximum-unsigned-integer64
    43   most-negative-integer64 most-positive-integer64
     40  ;;unsigned-integer64-size
     41  ;;maximum-unsigned-integer64
     42  ;;most-negative-integer64 most-positive-integer64
    4443  ;
    4544  char-size       unsigned-char-size
     
    6867;; integer64
    6968
    70 (define unsigned-integer64-size (foreign-value "sizeof( uint64_t )" int))
    71 (define maximum-unsigned-integer64 (foreign-value "((uint64_t)(~0ULL))" unsigned-integer64))
    72 (define most-negative-integer64 (foreign-value "(-MOST_POSITIVE_INT64 - 1)" integer64))
    73 (define most-positive-integer64 (foreign-value "MOST_POSITIVE_INT64" integer64))
     69;;(define unsigned-integer64-size (foreign-value "sizeof( uint64_t )" int))
     70;;(define maximum-unsigned-integer64 (foreign-value "((uint64_t)(~0ULL))" unsigned-integer64))
     71;;(define most-negative-integer64 (foreign-value "(-MOST_POSITIVE_INT64 - 1)" integer64))
     72;;(define most-positive-integer64 (foreign-value "MOST_POSITIVE_INT64" integer64))
    7473
    7574;; char
Note: See TracChangeset for help on using the changeset viewer.