From de2693cb367bb1835d6e187cb54c165c3608412f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 24 Sep 2009 19:54:32 -0500 Subject: [PATCH] classes.struct: store aligned size in struct-size word-prop --- basis/classes/struct/struct.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor index 22a80776e7..beddf07dd5 100755 --- a/basis/classes/struct/struct.factor +++ b/basis/classes/struct/struct.factor @@ -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