Subversion Repositories igor

#include <stdio.h>

#include <err.h>

#include "object.h"

#include "debug.h"

#include "bits.h"

void

object_dump(reg_t object)

{

        struct di_const *c;

        char *type;

        c = debug_get1_filter(OBJECT_TYPE(object), "type");

        if (c == NULL)

                type = "unknown";

        else

                type = c->name;

        printf("Object %s: 0x%x, gc bit: %d\n", type, OBJECT_DATUM(object), OBJECT_GC(object));

        puts("datum");

        debug_show(OBJECT_DATUM(object));

}

reg_t

object_set_field(reg_t object, uint32_t value, uint32_t offset, uint32_t mask)

{

        object &= ~(mask<<offset);

        object |= (value&mask)<<offset;

        return object;

}

reg_t

object_get_type(reg_t object)

{

        return OBJECT_TYPE(object);

}

reg_t

object_set_type(reg_t object, uint8_t type)

{

        return object_set_field(object, type,

                                OBJECT_TYPE_OFFSET,

                                OBJECT_TYPE_MASK);

}

reg_t

object_get_datum(reg_t object)

{

        return OBJECT_DATUM(object);

}

reg_t

object_get_datum_signed(reg_t object)

{

        return sign_extend(OBJECT_DATUM(object), 26);

}

reg_t

object_set_datum(reg_t object, uint32_t datum)

{

        return object_set_field(object, datum,

                                OBJECT_DATUM_OFFSET,

                                OBJECT_DATUM_MASK);

}

reg_t

object_get_gc(reg_t object)

{

        return OBJECT_GC(object);

}

reg_t

object_set_gc(reg_t object, uint32_t gc)

{

        return object_set_field(object, gc,

                                OBJECT_GC_OFFSET,

                                OBJECT_GC_MASK);

}

reg_t

object_make(uint8_t type, uint32_t datum)

{

        reg_t obj = 0;

        obj = object_set_type(obj, type);

        obj = object_set_datum(obj, datum);

        return obj;

}

void

object_serialize(reg_t obj, uint8_t *buf)

{

        buf[0] = (obj>>24) & 0xFF;

        buf[1] = (obj>>16) & 0xFF;

        buf[2] = (obj>>8)  & 0xFF;

        buf[3] =  obj      & 0xFF;

}

reg_t

object_deserialize(uint8_t *buf)

{

        return (buf[0]<<24) | (buf[1]<<16) | (buf[2]<<8) | buf[3];

}

int

object_read(reg_t *objects, int length, FILE *f)

{

        uint8_t buf[4];

        int i;

        for (i = 0; i < length; i++) {

                if (fread(buf, 4, 1, f) != 1) {

                        warn("Read failed");

                        return i;

                }

                objects[i] = object_deserialize(buf);

        }

        return length;

}

int

object_write(reg_t *objects, int length, FILE *f)

{

        uint8_t buf[4];

        int i;

        for (i = 0; i < length; i++) {

                object_serialize(objects[i], buf);

                if (fwrite(buf, 4, 1, f) != 1)

                        return i;

        }

        return length;

}