remove -falign-functions=8 restriction

[factor.git] / native / types.c

diff --git a/native/types.c b/native/types.c
index 2b4c58ed87f2ebfd633e03087e3ac51689e55241..2e869630926d550519e1931e4b67da8ba9f45dcd 100644 (file)
--- a/native/types.c
+++ b/native/types.c
@@ -80,6 +80,8 @@ CELL untagged_object_size(CELL pointer)
        
        switch(untag_header(get(pointer)))
        {
+       case WORD_TYPE:
+               return align8(sizeof(WORD));
        case F_TYPE:
        case T_TYPE:
        case EMPTY_TYPE: