#include <Python.h>

#include "gcc-python.h"

#include "gcc-python-wrappers.h"

#include "function.h"

#include "gcc-c-api/gcc-function.h"

PyObject *

PyGccFunction_repr(struct PyGccFunction * self)

{

const char *name = NULL;

PyObject *result = NULL;

tree decl;

assert(self->fun.inner);

decl = self->fun.inner->decl;

if (DECL_NAME(decl)) {

name = IDENTIFIER_POINTER (DECL_NAME(decl));

} else {

name = "(unnamed)";

}

if (!name) {

goto error;

}

result = PyGccString_FromFormat("gcc.Function('%s')",

name);

return result;

error:

Py_XDECREF(result);

return NULL;

}

PyGccFunction_hash(struct PyGccFunction * self)

{

return (long)self->fun.inner;

}

PyObject *

PyGccFunction_richcompare(PyObject *o1, PyObject *o2, int op)

{

struct PyGccFunction *functionobj1;

struct PyGccFunction *functionobj2;

int cond;

PyObject *result_obj;

if (!PyObject_TypeCheck(o1, (PyTypeObject*)&PyGccFunction_TypeObj)) {

result_obj = Py_NotImplemented;

goto out;

}

if (!PyObject_TypeCheck(o2, (PyTypeObject*)&PyGccFunction_TypeObj)) {

result_obj = Py_NotImplemented;

goto out;

}

functionobj1 = (struct PyGccFunction *)o1;

functionobj2 = (struct PyGccFunction *)o2;

switch (op) {

case Py_EQ:

cond = (functionobj1->fun.inner == functionobj2->fun.inner);

break;

case Py_NE:

cond = (functionobj1->fun.inner != functionobj2->fun.inner);

break;

default:

result_obj = Py_NotImplemented;

goto out;

}

result_obj = cond ? Py_True : Py_False;

out:

Py_INCREF(result_obj);

return result_obj;

}

PyObject *

PyGccFunction_New(gcc_function func)

{

struct PyGccFunction *obj;

if (!func.inner) {

Py_RETURN_NONE;

}

#if 0

printf("PyGccFunction_New(%p)\n", fun);

printf("struct eh_status *eh: %p\n", fun->eh);

printf("struct control_flow_graph *cfg: %p\n", fun->cfg);

printf("struct gimple_seq_d *gimple_body: %p\n", fun->gimple_body);

printf("struct gimple_df *gimple_df: %p\n", fun->gimple_df);

printf("struct loops *x_current_loops: %p\n", fun->x_current_loops);

printf("struct stack_usage *su: %p\n", fun->su);

#if 0

printf("htab_t GTY((skip)) value_histogram\n");

printf("tree decl: %p;\n", fun->decl);

printf("tree static_chain_decl;\n");

printf("tree nonlocal_goto_save_area;\n");

printf("VEC(tree,gc) *local_decls: local_decls;\n");

printf("struct machine_function * GTY ((maybe_undef)) machine;\n");

printf("struct language_function * language;\n");

printf("htab_t GTY ((param_is (union tree_node))) used_types_hash;\n");

printf("int last_stmt_uid;\n");

printf("int funcdef_no;\n");

printf("location_t function_start_locus;\n");

printf("location_t function_end_locus;\n");

printf("unsigned int curr_properties;\n");

printf("unsigned int last_verified;\n");

printf("const char * GTY((skip)) cannot_be_copied_reason;\n");

printf("unsigned int va_list_gpr_size : 8;\n");

printf("unsigned int va_list_fpr_size : 8;\n");

printf("unsigned int calls_setjmp : 1;\n");

printf("unsigned int calls_alloca : 1;\n");

printf("unsigned int has_nonlocal_label : 1;\n");

printf("unsigned int cannot_be_copied_set : 1;\n");

printf("unsigned int stdarg : 1;\n");

printf("unsigned int dont_save_pending_sizes_p : 1;\n");

printf("unsigned int after_inlining : 1;\n");

printf("unsigned int always_inline_functions_inlined : 1;\n");

printf("unsigned int can_throw_non_call_exceptions : 1;\n");

printf("unsigned int returns_struct : 1;\n");

printf("unsigned int returns_pcc_struct : 1;\n");

printf("unsigned int after_tree_profile : 1;\n");

printf("unsigned int has_local_explicit_reg_vars : 1;\n");

printf("unsigned int is_thunk : 1;\n");

#endif

obj = PyGccWrapper_New(struct PyGccFunction, &PyGccFunction_TypeObj);

if (!obj) {

goto error;

}

obj->fun = func;

return (PyObject*)obj;

error:

return NULL;

}

PyGcc_WrtpMarkForPyGccFunction(PyGccFunction *wrapper)

{

/* Mark the underlying object (recursing into its fields): */

gcc_function_mark_in_use(wrapper->fun);

}