Parent Directory | Revision Log | Patch
revision 1.19 by rlb, Wed Apr 16 19:43:55 2003 UTC | revision 1.20 by mdj, Thu May 22 10:22:20 2003 UTC | |
---|---|---|
# | Line 59 NUM2INTEGRAL (SCM num, unsigned long int | Line 59 NUM2INTEGRAL (SCM num, unsigned long int |
59 | return (ITYPE) n; | return (ITYPE) n; |
60 | else | else |
61 | { | { |
62 | #if SIZEOF_SCM_T_BITS > SIZEOF_ITYPE | |
63 | /* an inum can be out of range, so check */ | /* an inum can be out of range, so check */ |
64 | if (UNSIGNED) /* n is known to be >= 0 */ | if (UNSIGNED) /* n is known to be >= 0 */ |
65 | { | { |
# | Line 67 NUM2INTEGRAL (SCM num, unsigned long int | Line 68 NUM2INTEGRAL (SCM num, unsigned long int |
68 | } | } |
69 | else if (((ITYPE) n) != n) | else if (((ITYPE) n) != n) |
70 | scm_out_of_range (s_caller, num); | scm_out_of_range (s_caller, num); |
71 | #endif | |
72 | return (ITYPE) n; | return (ITYPE) n; |
73 | } | } |
74 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |