mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo ulong_Long -> ulong_long

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-08-15 20:10:18 +02:00
parent d7a072b4ad
commit c5789e152c
4 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/ffi.d
View file

@ -595,7 +595,7 @@ ecl_foreign_data_set_elt(void *p, enum ecl_ffi_tag tag, cl_object value)
*(ecl_long_long_t *)p = ecl_to_long_long(value);
break;
case ECL_FFI_UNSIGNED_LONG_LONG:
*(ecl_ulong_long_t *)p = ecl_to_ulong_Long(value);
*(ecl_ulong_long_t *)p = ecl_to_ulong_long(value);
break;
#endif
case ECL_FFI_POINTER_VOID:

6
src/c/number.d
View file

@ -296,7 +296,7 @@ ecl_make_int64_t(ecl_int64_t i)
#if defined(ecl_ulong_long_t)
# if defined(ecl_uint32_t) && ECL_LONG_LONG_BITS == 32
ecl_ulong_long_t
ecl_to_ulong_Long(cl_object x) {
ecl_to_ulong_long(cl_object x) {
return (ecl_ulong_long_t)ecl_to_uint32_t(x);
}
@ -315,7 +315,7 @@ ecl_make_long_long(ecl_long_long_t i) {
# else
# if defined(ecl_uint64_t) && ECL_LONG_LONG_BITS == 64
ecl_ulong_long_t
ecl_to_ulong_Long(cl_object x) {
ecl_to_ulong_long(cl_object x) {
return (ecl_ulong_long_t)ecl_to_uint64_t(x);
}
ecl_long_long_t
@ -332,7 +332,7 @@ ecl_make_long_long(ecl_long_long_t i) {
}
# else
ecl_ulong_long_t
ecl_to_ulong_Long(cl_object x) {
ecl_to_ulong_long(cl_object x) {
if (!ecl_minusp(x)) {
if (ECL_FIXNUMP(x)) {
return (ecl_ulong_long_t)ecl_fixnum(x);

4
src/cmp/cmpffi.lsp
View file

@ -83,8 +83,8 @@
:unsigned-long-long
#+long-long
((unsigned-byte #.ffi:c-long-long-bit) "ecl_ulong_long_t"
"ecl_make_ulong_Long"
"ecl_to_ulong_Long" "ecl_to_ulong_Long")
"ecl_make_ulong_long"
"ecl_to_ulong_long" "ecl_to_ulong_long")
:float
(single-float "float" "ecl_make_single_float" "ecl_to_float" "ecl_single_float")
:double

2
src/h/external.h
View file

@ -1099,7 +1099,7 @@ extern ECL_API cl_object ecl_make_int64_t(ecl_int64_t i);
# endif
#endif
#ifdef ecl_long_long_t
extern ECL_API ecl_ulong_long_t ecl_to_ulong_Long(cl_object p);
extern ECL_API ecl_ulong_long_t ecl_to_ulong_long(cl_object p);
extern ECL_API ecl_long_long_t ecl_to_long_long(cl_object p);
extern ECL_API cl_object ecl_make_ulong_long(ecl_ulong_long_t i);
extern ECL_API cl_object ecl_make_long_long(ecl_long_long_t i);