steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

classes.struct: compute slot offsets before alignment to fix struct size problem on PPC

db4
Slava Pestov 2009-11-19 19:34:46 -06:00
parent 9ce3e9f84f
commit c0588221cf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/classes/struct/struct.factor
View File

@ -281,8 +281,9 @@ M: struct binary-zero? >c-ptr [ 0 = ] all? ;
slots empty? [ struct-must-have-slots ] when slots empty? [ struct-must-have-slots ] when
class redefine-struct-tuple-class class redefine-struct-tuple-class
slots make-slots dup check-struct-slots :> slot-specs slots make-slots dup check-struct-slots :> slot-specs
slot-specs offsets-quot call :> unaligned-size
slot-specs struct-alignment :> alignment slot-specs struct-alignment :> alignment
slot-specs offsets-quot call alignment align :> size unaligned-size alignment align :> size
class slot-specs size alignment c-type-for-class :> c-type class slot-specs size alignment c-type-for-class :> c-type