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

Use smaller int types for padding

Browse source
This commit is contained in:
jjgarcia 2004-10-15 14:45:55 +00:00
parent cca49cd1c7
commit d584df2e43
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/h/object.h
View file

@ -76,8 +76,8 @@ typedef cl_object (*cl_objectfn)(cl_narg narg, ...);
#define HEADER int8_t t, m, padding[2]
#define HEADER1(field) int8_t t, m, field, padding
#define HEADER2(field1,field2) int8_t t, m, field1, field2
#define HEADER3(field1,flag2,flag3) int8_t t, m, field1; unsigned flag2:4, flag3:4
#define HEADER4(field1,flag2,flag3,flag4) int8_t t, m, field1; unsigned flag2:4, flag3:2, flag4:2
#define HEADER3(field1,flag2,flag3) int8_t t, m, field1; uint8_t flag2:4, flag3:4
#define HEADER4(field1,flag2,flag3,flag4) int8_t t, m, field1; uint8_t flag2:4, flag3:2, flag4:2
struct ecl_shortfloat {
HEADER;