classes.struct: store aligned size in struct-size word-prop

db4
Slava Pestov 2009-09-24 19:54:32 -05:00
parent 2af6104d99
commit de2693cb36
1 changed files with 2 additions and 2 deletions

View File

@ -246,10 +246,10 @@ M: struct binary-zero?
slots empty? [ struct-must-have-slots ] when
class redefine-struct-tuple-class
slots make-slots dup check-struct-slots :> slot-specs
slot-specs offsets-quot call :> size
slot-specs struct-align :> alignment
slot-specs offsets-quot call alignment align :> size
class slot-specs size alignment align alignment c-type-for-class :> c-type
class slot-specs size alignment c-type-for-class :> c-type
c-type class typedef
class slot-specs define-accessors