gambas-source-code/main/gbx/gbx_jit.h

/***************************************************************************

  gbx_jit.h

  (c) 2018 Benoît Minisini <g4mba5@gmail.com>

  This program 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 2, or (at your option)
  any later version.

  This program 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 this program; if not, write to the Free Software
  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  MA 02110-1301, USA.

***************************************************************************/

#ifndef __GBX_JIT_H
#define __GBX_JIT_H

#include "gbx_class.h"
#include "gbx_type.h"
#include "gbx_value.h"
#include "gbx_stack.h"
#include "gbx_object.h"
#include "gbx_exec.h"

typedef
	void (*JIT_FUNC)(uchar nparam);

enum { JIT_NOT_COMPILED = 0, JIT_COMPILING = 1, JIT_COMPILED = 2};
	
#ifndef __GBX_JIT_C
extern bool JIT_disabled;
#endif
	
void JIT_compile(ARCHIVE *arch);
void JIT_debug(const char *fmt, ...);
bool JIT_exec(bool ret_on_stack);
PCODE *JIT_get_code(FUNCTION *func);
CLASS_CONST *JIT_get_constant(int index);
void *JIT_get_class_ref(int index);
void JIT_call_unknown(PCODE *pc, VALUE **psp);

void JIT_abort(void);
void JIT_init(void);
void JIT_exit(void);

bool JIT_can_compile(ARCHIVE *arch);

void JIT_load_class(CLASS *class);
void JIT_load_class_without_init(CLASS *class);

void JIT_add_string_local(GB_STRING *src, GB_STRING val);
void JIT_add_string_global(char **pstr, GB_STRING val);

#endif