/*

 * Copyright (C) 2012 David Anderson

 *

 * This file is part of JITCraft.

 *

 * JITCraft is free software: you can redistribute it and/or modify it under

 * the terms of the GNU General Public License as published by the Free

 * Software Foundation, either version 3 of the License, or (at your option)

 * any later version.

 * 

 * Foobar is distributed in the hope that it will be useful, but WITHOUT ANY

 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS

 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License along with

 * JITCraft. If not, see http://www.gnu.org/licenses/.

 */

#ifndef _include_jc_code_h_

#define _include_jc_code_h_

#include "Opcodes.h"

#include "Barriers.h"

#include "Heap.h"

#include "Types.h"

#include "FixedArray.h"

namespace jc {

class Module;

class Type;

// A code object contains the bytecode compiled from a function (or global

// script), as well as all information needed to interpret or JIT-compile

// the bytecode.

class Code : public Object

{

    Module *module_;

    Unbarriered<ByteArray> bytecode_;

    Unbarriered<FixedArray> locals_;

    Unbarriered<FixedArray> args_;

    Unbarriered<FixedArray> maps_;

    unsigned maxStackDepth_;

  public:

    // :TODO: use handles

    static Code *New(Zone *zone, ByteArray *bytecode, FixedArray *locals, FixedArray *args,

                     FixedArray *maps, unsigned maxStackDepth, Module *module);

    Module *module() {

        return module_;

    }

    bytecode *start() {

        return bytecode_->raw();

    }

    unsigned length() {

        return bytecode_->length();

    }

    Type *localType(size_t index) {

        return Type::cast(locals_->at(index));

    }

    Type *argType(size_t index) {

        return Type::cast(args_->at(index));

    }

    unsigned nlocals() {

        return locals_->length();

    }

    unsigned nargs() {

        return args_->length();

    }

    unsigned maxStackDepth() {

        return maxStackDepth_;

    }

    Map *map(size_t index) {

        return Map::cast(maps_->at(index));

    }

    static Code *cast(Object *obj) {

        assert(obj->is(MapKind_Code));

        return reinterpret_cast<Code *>(obj);

    }

};

}

#endif // _include_jc_code_h_