From 14575302ae284ca65789fee1a913f86f9ff8bb6c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 4 Jun 2010 15:22:00 +0200 Subject: [PATCH] Fixed typos in ecl_def_ct_{single,double}_float --- src/h/ecl-inl.h | 4 ++-- src/h/object.h | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/h/ecl-inl.h b/src/h/ecl-inl.h index 12269c3d6..e5b6dd953 100644 --- a/src/h/ecl-inl.h +++ b/src/h/ecl-inl.h @@ -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) diff --git a/src/h/object.h b/src/h/object.h index 56a4b0282..18f5d76dc 100644 --- a/src/h/object.h +++ b/src/h/object.h @@ -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