Factor jEdit plugin!

[factor.git] / native / types.c

diff --git a/native/types.c b/native/types.c
index ec7899abb08d1de8990885cb245952072d23f68c..413d1d5564ba745c67b9a270865411fa536afd36 100644 (file)
--- a/native/types.c
+++ b/native/types.c
@@ -64,6 +64,9 @@ CELL object_size(CELL pointer)
 
        switch(TAG(pointer))
        {
+       case FIXNUM_TYPE:
+               size = 0;
+               break;
        case CONS_TYPE:
                size = sizeof(CONS);
                break;
@@ -130,3 +133,15 @@ CELL untagged_object_size(CELL pointer)
 
        return align8(size);
 }
+
+void primitive_type_of(void)
+{
+       check_non_empty(env.dt);
+       env.dt = tag_fixnum(type_of(env.dt));
+}
+
+void primitive_size_of(void)
+{
+       check_non_empty(env.dt);
+       env.dt = tag_fixnum(object_size(env.dt));
+}