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

Fixed typos in ecl_def_ct_{single,double}_float

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-06-04 15:22:00 +02:00
parent 2c68c6f008
commit 14575302ae
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/h/ecl-inl.h
View file

@ -68,13 +68,13 @@
static const cl_object name = (cl_object)(& name ## data)
#define ecl_def_ct_single_float(name,f,static,const) \
static const struct ecl_doublefloat name ## data = { \
static const struct ecl_singlefloat name ## data = { \
(int8_t)t_singlefloat, 0, 0, 0, \
(float)(f) }; \
static const cl_object name = (cl_object)(& name ## data)
#define ecl_def_ct_double_float(name,f,static,const) \
static const struct ecl_singlefloat name ## data = { \
static const struct ecl_doublefloat name ## data = { \
(int8_t)t_doublefloat, 0, 0, 0, \
(double)(f) }; \
static const cl_object name = (cl_object)(& name ## data)

2
src/h/object.h
View file

@ -185,7 +185,7 @@ typedef cl_object (*cl_objectfn_fixed)();
#define ECL_READTABLEP(x) ((IMMEDIATE(x) == 0) && ((x)->d.t == t_readtable))
#define ECL_FOREIGN_DATA_P(x) ((IMMEDIATE(x) == 0) && ((x)->d.t == t_foreign))
#define HEADER int8_t t, m, padding[2]
#define HEADER int8_t t, m, padding1, padding2
#define HEADER1(field) int8_t t, m, field, padding
#define HEADER2(field1,field2) int8_t t, m, field1, field2