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

When using long double, use no specialized arrays for LONG-FLOAT

Browse source
This commit is contained in:
jjgarcia 2008-07-25 15:40:28 +00:00
parent 0c86faece3
commit ae4766c079
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/array.d
View file

@ -529,9 +529,15 @@ ecl_symbol_to_elttype(cl_object x)
return(aet_index);
else if (x == @'single-float' || x == @'short-float')
return(aet_sf);
else if (x == @'long-float' || x == @'double-float')
else if (x == @'double-float')
return(aet_df);
else if (x == @'ext::byte8')
else if (x == @'long-float') {
#ifdef ECL_LONG_FLOAT
return(aet_object);
#else
return(aet_df);
#endif
} else if (x == @'ext::byte8')
return(aet_b8);
else if (x == @'ext::integer8')
return(aet_i8);