#ifndef Py_BUILD_CORE_BUILTIN

# define Py_BUILD_CORE_MODULE 1

#undef NDEBUG

#include "Python.h"

#include "pycore_backoff.h" // JUMP_BACKWARD_INITIAL_VALUE

#include "pycore_bitutils.h" // _Py_bswap32()

#include "pycore_bytesobject.h" // _PyBytes_Find()

#include "pycore_ceval.h" // _PyEval_AddPendingCall()

#include "pycore_code.h" // _PyCode_GetTLBCFast()

#include "pycore_compile.h" // _PyCompile_CodeGen()

#include "pycore_context.h" // _PyContext_NewHamtForTests()

#include "pycore_dict.h" // PyDictValues

#include "pycore_fileutils.h" // _Py_normpath()

#include "pycore_flowgraph.h" // _PyCompile_OptimizeCfg()

#include "pycore_frame.h" // _PyInterpreterFrame

#include "pycore_function.h" // _PyFunction_GET_BUILTINS

#include "pycore_gc.h" // PyGC_Head

#include "pycore_hashtable.h" // _Py_hashtable_new()

#include "pycore_import.h" // _PyImport_ClearExtension()

#include "pycore_initconfig.h" // _Py_GetConfigsAsDict()

#include "pycore_instruction_sequence.h" // _PyInstructionSequence_New()

#include "pycore_interpframe.h" // _PyFrame_GetFunction()

#include "pycore_object.h" // _PyObject_IsFreed()

#include "pycore_optimizer.h" // _Py_Executor_DependsOn

#include "pycore_pathconfig.h" // _PyPathConfig_ClearGlobal()

#include "pycore_pyerrors.h" // _PyErr_ChainExceptions1()

#include "pycore_pylifecycle.h" // _PyInterpreterConfig_InitFromDict()

#include "pycore_pystate.h" // _PyThreadState_GET()

#include "pycore_unicodeobject.h" // _PyUnicode_TransformDecimalAndSpaceToASCII()

#include "clinic/_testinternalcapi.c.h"

#include "_testinternalcapi/parts.h"

#define MODULE_NAME "_testinternalcapi"

static PyObject *

_get_current_module(void)

{

// We ensured it was imported in _run_script().

PyObject *name = PyUnicode_FromString(MODULE_NAME);

if (name == NULL) {

return NULL;

}

PyObject *mod = PyImport_GetModule(name);

Py_DECREF(name);

if (mod == NULL) {

return NULL;

}

assert(mod != Py_None);

return mod;

}

typedef struct {

PyObject *record_list;

} module_state;

static inline module_state *

get_module_state(PyObject *mod)

{

assert(mod != NULL);

module_state *state = PyModule_GetState(mod);

assert(state != NULL);

return state;

}

static int

traverse_module_state(module_state *state, visitproc visit, void *arg)

{

Py_VISIT(state->record_list);

return 0;

}

static int

clear_module_state(module_state *state)

{

Py_CLEAR(state->record_list);

return 0;

}

static PyObject *

get_configs(PyObject *self, PyObject *Py_UNUSED(args))

{

return _Py_GetConfigsAsDict();

}

static PyObject*

get_recursion_depth(PyObject *self, PyObject *Py_UNUSED(args))

{

PyThreadState *tstate = _PyThreadState_GET();

return PyLong_FromLong(tstate->py_recursion_limit - tstate->py_recursion_remaining);

}

static PyObject*

get_c_recursion_remaining(PyObject *self, PyObject *Py_UNUSED(args))

{

PyThreadState *tstate = _PyThreadState_GET();

uintptr_t here_addr = _Py_get_machine_stack_pointer();

_PyThreadStateImpl *_tstate = (_PyThreadStateImpl *)tstate;

int remaining = (int)((here_addr - _tstate->c_stack_soft_limit) / _PyOS_STACK_MARGIN_BYTES * 50);

return PyLong_FromLong(remaining);

}

static PyObject*

get_stack_pointer(PyObject *self, PyObject *Py_UNUSED(args))

{

uintptr_t here_addr = _Py_get_machine_stack_pointer();

return PyLong_FromSize_t(here_addr);

}

static PyObject*

get_stack_margin(PyObject *self, PyObject *Py_UNUSED(args))

{

return PyLong_FromSize_t(_PyOS_STACK_MARGIN_BYTES);

}

static PyObject*

test_bswap(PyObject *self, PyObject *Py_UNUSED(args))

{

uint16_t u16 = _Py_bswap16(UINT16_C(0x3412));

if (u16 != UINT16_C(0x1234)) {

PyErr_Format(PyExc_AssertionError,

"_Py_bswap16(0x3412) returns %d", u16);

return NULL;

}

uint32_t u32 = _Py_bswap32(UINT32_C(0x78563412));

if (u32 != UINT32_C(0x12345678)) {

PyErr_Format(PyExc_AssertionError,

"_Py_bswap32(0x78563412) returns %u", u32);

return NULL;

}

uint64_t u64 = _Py_bswap64(UINT64_C(0xEFCDAB9078563412));

if (u64 != UINT64_C(0x1234567890ABCDEF)) {

PyErr_Format(PyExc_AssertionError,

"_Py_bswap64(0xEFCDAB9078563412) returns %llu", u64);

return NULL;

}

Py_RETURN_NONE;

}

static int

check_popcount(uint32_t x, int expected)

{

// Use volatile to prevent the compiler to optimize out the whole test

volatile uint32_t u = x;

int bits = _Py_popcount32(u);

if (bits != expected) {

PyErr_Format(PyExc_AssertionError,

"_Py_popcount32(%lu) returns %i, expected %i",

(unsigned long)x, bits, expected);

return -1;

}

return 0;

}

static PyObject*

test_popcount(PyObject *self, PyObject *Py_UNUSED(args))

{

#define CHECK(X, RESULT) \

do { \

if (check_popcount(X, RESULT) < 0) { \

return NULL; \

} \

} while (0)

CHECK(0, 0);

CHECK(1, 1);

CHECK(0x08080808, 4);

CHECK(0x10000001, 2);

CHECK(0x10101010, 4);

CHECK(0x10204080, 4);

CHECK(0xDEADCAFE, 22);

CHECK(0xFFFFFFFF, 32);

Py_RETURN_NONE;

#undef CHECK

}

static int

check_bit_length(unsigned long x, int expected)

{

// Use volatile to prevent the compiler to optimize out the whole test

volatile unsigned long u = x;

int len = _Py_bit_length(u);

if (len != expected) {

PyErr_Format(PyExc_AssertionError,

"_Py_bit_length(%lu) returns %i, expected %i",

x, len, expected);

return -1;

}

return 0;

}

static PyObject*

test_bit_length(PyObject *self, PyObject *Py_UNUSED(args))

{

#define CHECK(X, RESULT) \

do { \

if (check_bit_length(X, RESULT) < 0) { \

return NULL; \

} \

} while (0)

CHECK(0, 0);

CHECK(1, 1);

CHECK(0x1000, 13);

CHECK(0x1234, 13);

CHECK(0x54321, 19);

CHECK(0x7FFFFFFF, 31);

CHECK(0xFFFFFFFF, 32);

Py_RETURN_NONE;

#undef CHECK

}

#define TO_PTR(ch) ((void*)(uintptr_t)ch)

#define FROM_PTR(ptr) ((uintptr_t)ptr)

#define VALUE(key) (1 + ((int)(key) - 'a'))

static Py_uhash_t

hash_char(const void *key)

{

char ch = (char)FROM_PTR(key);

return ch;

}

static int

hashtable_cb(_Py_hashtable_t *table,

const void *key_ptr, const void *value_ptr,

void *user_data)

{

int *count = (int *)user_data;

char key = (char)FROM_PTR(key_ptr);

int value = (int)FROM_PTR(value_ptr);

assert(value == VALUE(key));

*count += 1;

return 0;

}

static PyObject*

test_hashtable(PyObject *self, PyObject *Py_UNUSED(args))

{

_Py_hashtable_t *table = _Py_hashtable_new(hash_char,

_Py_hashtable_compare_direct);

if (table == NULL) {

return PyErr_NoMemory();

}

// Using an newly allocated table must not crash

assert(table->nentries == 0);

assert(table->nbuckets > 0);

assert(_Py_hashtable_get(table, TO_PTR('x')) == NULL);

// Test _Py_hashtable_set()

char key;

for (key='a'; key <= 'z'; key++) {

int value = VALUE(key);

if (_Py_hashtable_set(table, TO_PTR(key), TO_PTR(value)) < 0) {

_Py_hashtable_destroy(table);

return PyErr_NoMemory();

}

}

assert(table->nentries == 26);

assert(table->nbuckets > table->nentries);

// Test _Py_hashtable_get_entry()

for (key='a'; key <= 'z'; key++) {

_Py_hashtable_entry_t *entry = _Py_hashtable_get_entry(table, TO_PTR(key));

assert(entry != NULL);

assert(entry->key == TO_PTR(key));

assert(entry->value == TO_PTR(VALUE(key)));

}

// Test _Py_hashtable_get()

for (key='a'; key <= 'z'; key++) {

void *value_ptr = _Py_hashtable_get(table, TO_PTR(key));

assert((int)FROM_PTR(value_ptr) == VALUE(key));

}

// Test _Py_hashtable_steal()

key = 'p';

void *value_ptr = _Py_hashtable_steal(table, TO_PTR(key));

assert((int)FROM_PTR(value_ptr) == VALUE(key));

assert(table->nentries == 25);

assert(_Py_hashtable_get_entry(table, TO_PTR(key)) == NULL);

// Test _Py_hashtable_foreach()

int count = 0;

int res = _Py_hashtable_foreach(table, hashtable_cb, &count);

assert(res == 0);

assert(count == 25);

// Test _Py_hashtable_clear()

_Py_hashtable_clear(table);

assert(table->nentries == 0);

assert(table->nbuckets > 0);

assert(_Py_hashtable_get(table, TO_PTR('x')) == NULL);

_Py_hashtable_destroy(table);

Py_RETURN_NONE;

}

static PyObject *

test_reset_path_config(PyObject *Py_UNUSED(self), PyObject *Py_UNUSED(arg))

{

_PyPathConfig_ClearGlobal();

Py_RETURN_NONE;

}

static int

check_edit_cost(const char *a, const char *b, Py_ssize_t expected)

{

int ret = -1;

PyObject *a_obj = NULL;

PyObject *b_obj = NULL;

a_obj = PyUnicode_FromString(a);

if (a_obj == NULL) {

goto exit;

}

b_obj = PyUnicode_FromString(b);

if (b_obj == NULL) {

goto exit;

}

Py_ssize_t result = _Py_UTF8_Edit_Cost(a_obj, b_obj, -1);

if (result != expected) {

PyErr_Format(PyExc_AssertionError,

"Edit cost from '%s' to '%s' returns %zd, expected %zd",

a, b, result, expected);

goto exit;

}

// Check that smaller max_edits thresholds are exceeded.

Py_ssize_t max_edits = result;

while (max_edits > 0) {

max_edits /= 2;

Py_ssize_t result2 = _Py_UTF8_Edit_Cost(a_obj, b_obj, max_edits);

if (result2 <= max_edits) {

PyErr_Format(PyExc_AssertionError,

"Edit cost from '%s' to '%s' (threshold %zd) "

"returns %zd, expected greater than %zd",

a, b, max_edits, result2, max_edits);

goto exit;

}

}

// Check that bigger max_edits thresholds don't change anything

Py_ssize_t result3 = _Py_UTF8_Edit_Cost(a_obj, b_obj, result * 2 + 1);

if (result3 != result) {

PyErr_Format(PyExc_AssertionError,

"Edit cost from '%s' to '%s' (threshold %zd) "

"returns %zd, expected %zd",

a, b, result * 2, result3, result);

goto exit;

}

ret = 0;

exit:

Py_XDECREF(a_obj);

Py_XDECREF(b_obj);

return ret;

}

static PyObject *

test_edit_cost(PyObject *self, PyObject *Py_UNUSED(args))

{

#define CHECK(a, b, n) do { \

if (check_edit_cost(a, b, n) < 0) { \

return NULL; \

} \

} while (0) \

CHECK("", "", 0);

CHECK("", "a", 2);

CHECK("a", "A", 1);

CHECK("Apple", "Aple", 2);

CHECK("Banana", "B@n@n@", 6);

CHECK("Cherry", "Cherry!", 2);

CHECK("---0---", "------", 2);

CHECK("abc", "y", 6);

CHECK("aa", "bb", 4);

CHECK("aaaaa", "AAAAA", 5);

CHECK("wxyz", "wXyZ", 2);

CHECK("wxyz", "wXyZ123", 8);

CHECK("Python", "Java", 12);

CHECK("Java", "C#", 8);

CHECK("AbstractFoobarManager", "abstract_foobar_manager", 3+2*2);

CHECK("CPython", "PyPy", 10);

CHECK("CPython", "pypy", 11);

CHECK("AttributeError", "AttributeErrop", 2);

CHECK("AttributeError", "AttributeErrorTests", 10);

#undef CHECK

Py_RETURN_NONE;

}

static int

check_bytes_find(const char *haystack0, const char *needle0,

Py_ssize_t offset, Py_ssize_t expected)

{

Py_ssize_t len_haystack = strlen(haystack0);

Py_ssize_t len_needle = strlen(needle0);

Py_ssize_t result_1 = _PyBytes_Find(haystack0, len_haystack,

needle0, len_needle, offset);

if (result_1 != expected) {

PyErr_Format(PyExc_AssertionError,

"Incorrect result_1: '%s' in '%s' (offset=%zd)",

needle0, haystack0, offset);

return -1;

}

// Allocate new buffer with no NULL terminator.

char *haystack = PyMem_Malloc(len_haystack);

if (haystack == NULL) {

PyErr_NoMemory();

return -1;

}

char *needle = PyMem_Malloc(len_needle);

if (needle == NULL) {

PyMem_Free(haystack);

PyErr_NoMemory();

return -1;

}

memcpy(haystack, haystack0, len_haystack);

memcpy(needle, needle0, len_needle);

Py_ssize_t result_2 = _PyBytes_Find(haystack, len_haystack,

needle, len_needle, offset);

PyMem_Free(haystack);

PyMem_Free(needle);

if (result_2 != expected) {

PyErr_Format(PyExc_AssertionError,

"Incorrect result_2: '%s' in '%s' (offset=%zd)",

needle0, haystack0, offset);

return -1;

}

return 0;

}

static int

check_bytes_find_large(Py_ssize_t len_haystack, Py_ssize_t len_needle,

const char *needle)

{

char *zeros = PyMem_RawCalloc(len_haystack, 1);

if (zeros == NULL) {

PyErr_NoMemory();

return -1;

}

Py_ssize_t res = _PyBytes_Find(zeros, len_haystack, needle, len_needle, 0);

PyMem_RawFree(zeros);

if (res != -1) {

PyErr_Format(PyExc_AssertionError,

"check_bytes_find_large(%zd, %zd) found %zd",

len_haystack, len_needle, res);

return -1;

}

return 0;

}

static PyObject *

test_bytes_find(PyObject *self, PyObject *Py_UNUSED(args))

{

#define CHECK(H, N, O, E) do { \

if (check_bytes_find(H, N, O, E) < 0) { \

return NULL; \

} \

} while (0)

CHECK("", "", 0, 0);

CHECK("Python", "", 0, 0);

CHECK("Python", "", 3, 3);

CHECK("Python", "", 6, 6);

CHECK("Python", "yth", 0, 1);

CHECK("ython", "yth", 1, 1);

CHECK("thon", "yth", 2, -1);

CHECK("Python", "thon", 0, 2);

CHECK("ython", "thon", 1, 2);

CHECK("thon", "thon", 2, 2);

CHECK("hon", "thon", 3, -1);

CHECK("Pytho", "zz", 0, -1);

CHECK("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa", "ab", 0, -1);

CHECK("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa", "ba", 0, -1);

CHECK("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa", "bb", 0, -1);

CHECK("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab", "ab", 0, 30);

CHECK("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaba", "ba", 0, 30);

CHECK("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaabb", "bb", 0, 30);

#undef CHECK

// Hunt for segfaults

// n, m chosen here so that (n - m) % (m + 1) == 0

// This would make default_find in fastsearch.h access haystack[n].

if (check_bytes_find_large(2048, 2, "ab") < 0) {

return NULL;

}

if (check_bytes_find_large(4096, 16, "0123456789abcdef") < 0) {

return NULL;

}

if (check_bytes_find_large(8192, 2, "ab") < 0) {

return NULL;

}

if (check_bytes_find_large(16384, 4, "abcd") < 0) {

return NULL;

}

if (check_bytes_find_large(32768, 2, "ab") < 0) {

return NULL;

}

Py_RETURN_NONE;

}

static PyObject *

normalize_path(PyObject *self, PyObject *filename)

{

Py_ssize_t size = -1;

wchar_t *encoded = PyUnicode_AsWideCharString(filename, &size);

if (encoded == NULL) {

return NULL;

}

PyObject *result = PyUnicode_FromWideChar(_Py_normpath(encoded, size), -1);

PyMem_Free(encoded);

return result;

}

static PyObject *

get_getpath_codeobject(PyObject *self, PyObject *Py_UNUSED(args)) {

return _Py_Get_Getpath_CodeObject();

}

static PyObject *

encode_locale_ex(PyObject *self, PyObject *args)

{

PyObject *unicode;

int current_locale = 0;

wchar_t *wstr;

PyObject *res = NULL;

const char *errors = NULL;

if (!PyArg_ParseTuple(args, "U|is", &unicode, &current_locale, &errors)) {

return NULL;

}

wstr = PyUnicode_AsWideCharString(unicode, NULL);

if (wstr == NULL) {

return NULL;

}

_Py_error_handler error_handler = _Py_GetErrorHandler(errors);

char *str = NULL;

size_t error_pos;

const char *reason = NULL;

int ret = _Py_EncodeLocaleEx(wstr,

&str, &error_pos, &reason,

current_locale, error_handler);

PyMem_Free(wstr);

switch(ret) {

case 0:

res = PyBytes_FromString(str);

PyMem_RawFree(str);

break;

case -1:

PyErr_NoMemory();

break;

case -2:

PyErr_Format(PyExc_RuntimeError, "encode error: pos=%zu, reason=%s",

error_pos, reason);

break;

case -3:

PyErr_SetString(PyExc_ValueError, "unsupported error handler");

break;

default:

PyErr_SetString(PyExc_ValueError, "unknown error code");

break;

}

return res;

}

static PyObject *

decode_locale_ex(PyObject *self, PyObject *args)

{

char *str;

int current_locale = 0;

PyObject *res = NULL;

const char *errors = NULL;

if (!PyArg_ParseTuple(args, "y|is", &str, &current_locale, &errors)) {

return NULL;

}

_Py_error_handler error_handler = _Py_GetErrorHandler(errors);

wchar_t *wstr = NULL;

size_t wlen = 0;

const char *reason = NULL;

int ret = _Py_DecodeLocaleEx(str,

&wstr, &wlen, &reason,

current_locale, error_handler);

switch(ret) {

case 0:

res = PyUnicode_FromWideChar(wstr, wlen);

PyMem_RawFree(wstr);

break;

case -1:

PyErr_NoMemory();

break;

case -2:

PyErr_Format(PyExc_RuntimeError, "decode error: pos=%zu, reason=%s",

wlen, reason);

break;

case -3:

PyErr_SetString(PyExc_ValueError, "unsupported error handler");

break;

default:

PyErr_SetString(PyExc_ValueError, "unknown error code");

break;

}

return res;

}

static PyObject *

set_eval_frame_default(PyObject *self, PyObject *Py_UNUSED(args))

{

module_state *state = get_module_state(self);

_PyInterpreterState_SetEvalFrameFunc(_PyInterpreterState_GET(), _PyEval_EvalFrameDefault);

Py_CLEAR(state->record_list);

Py_RETURN_NONE;

}

static PyObject *

record_eval(PyThreadState *tstate, struct _PyInterpreterFrame *f, int exc)

{

if (PyStackRef_FunctionCheck(f->f_funcobj)) {

PyFunctionObject *func = _PyFrame_GetFunction(f);

PyObject *module = _get_current_module();

assert(module != NULL);

module_state *state = get_module_state(module);

Py_DECREF(module);

int res = PyList_Append(state->record_list, func->func_name);

if (res < 0) {

return NULL;

}

}

return _PyEval_EvalFrameDefault(tstate, f, exc);

}

static PyObject *

set_eval_frame_record(PyObject *self, PyObject *list)

{

module_state *state = get_module_state(self);

if (!PyList_Check(list)) {

PyErr_SetString(PyExc_TypeError, "argument must be a list");

return NULL;

}

Py_XSETREF(state->record_list, Py_NewRef(list));

_PyInterpreterState_SetEvalFrameFunc(_PyInterpreterState_GET(), record_eval);

Py_RETURN_NONE;

}

static PyObject *

_testinternalcapi_compiler_cleandoc_impl(PyObject *module, PyObject *doc)

{

return _PyCompile_CleanDoc(doc);

}

static PyObject *

_testinternalcapi_new_instruction_sequence_impl(PyObject *module)

{

return _PyInstructionSequence_New();

}

static PyObject *

_testinternalcapi_compiler_codegen_impl(PyObject *module, PyObject *ast,

PyObject *filename, int optimize,

int compile_mode)

{

PyCompilerFlags *flags = NULL;

return _PyCompile_CodeGen(ast, filename, flags, optimize, compile_mode);

}

static PyObject *

_testinternalcapi_optimize_cfg_impl(PyObject *module, PyObject *instructions,

PyObject *consts, int nlocals)

{

return _PyCompile_OptimizeCfg(instructions, consts, nlocals);

}

static int

get_nonnegative_int_from_dict(PyObject *dict, const char *key) {

PyObject *obj = PyDict_GetItemString(dict, key);

if (obj == NULL) {

return -1;

}

return PyLong_AsLong(obj);

}

static PyObject *

_testinternalcapi_assemble_code_object_impl(PyObject *module,

PyObject *filename,

PyObject *instructions,

PyObject *metadata)

{

assert(PyDict_Check(metadata));

_PyCompile_CodeUnitMetadata umd;

umd.u_name = PyDict_GetItemString(metadata, "name");

umd.u_qualname = PyDict_GetItemString(metadata, "qualname");

assert(PyUnicode_Check(umd.u_name));

assert(PyUnicode_Check(umd.u_qualname));

umd.u_consts = PyDict_GetItemString(metadata, "consts");

umd.u_names = PyDict_GetItemString(metadata, "names");

umd.u_varnames = PyDict_GetItemString(metadata, "varnames");

umd.u_cellvars = PyDict_GetItemString(metadata, "cellvars");

umd.u_freevars = PyDict_GetItemString(metadata, "freevars");

umd.u_fasthidden = PyDict_GetItemString(metadata, "fasthidden");

assert(PyDict_Check(umd.u_consts));

assert(PyDict_Check(umd.u_names));

assert(PyDict_Check(umd.u_varnames));

assert(PyDict_Check(umd.u_cellvars));

assert(PyDict_Check(umd.u_freevars));

assert(PyDict_Check(umd.u_fasthidden));

umd.u_argcount = get_nonnegative_int_from_dict(metadata, "argcount");

umd.u_posonlyargcount = get_nonnegative_int_from_dict(metadata, "posonlyargcount");

umd.u_kwonlyargcount = get_nonnegative_int_from_dict(metadata, "kwonlyargcount");

umd.u_firstlineno = get_nonnegative_int_from_dict(metadata, "firstlineno");

assert(umd.u_argcount >= 0);

assert(umd.u_posonlyargcount >= 0);

assert(umd.u_kwonlyargcount >= 0);

assert(umd.u_firstlineno >= 0);

return (PyObject*)_PyCompile_Assemble(&umd, filename, instructions);

}

static PyObject *

get_interp_settings(PyObject *self, PyObject *args)

{

int interpid = -1;

if (!PyArg_ParseTuple(args, "|i:get_interp_settings", &interpid)) {

return NULL;

}

PyInterpreterState *interp = NULL;

if (interpid < 0) {

PyThreadState *tstate = _PyThreadState_GET();

interp = tstate ? tstate->interp : _PyInterpreterState_Main();

}

else if (interpid == 0) {

interp = _PyInterpreterState_Main();

}

else {

PyErr_Format(PyExc_NotImplementedError,

"%d", interpid);

return NULL;

}

assert(interp != NULL);

PyObject *settings = PyDict_New();

if (settings == NULL) {

return NULL;

}

/* Add the feature flags. */

PyObject *flags = PyLong_FromUnsignedLong(interp->feature_flags);

if (flags == NULL) {

Py_DECREF(settings);

return NULL;

}

int res = PyDict_SetItemString(settings, "feature_flags", flags);

Py_DECREF(flags);

if (res != 0) {

Py_DECREF(settings);

return NULL;

}

/* "own GIL" */

PyObject *own_gil = interp->ceval.own_gil ? Py_True : Py_False;

if (PyDict_SetItemString(settings, "own_gil", own_gil) != 0) {

Py_DECREF(settings);

return NULL;

}

return settings;

}

static PyObject *

clear_extension(PyObject *self, PyObject *args)

{

PyObject *name = NULL, *filename = NULL;

if (!PyArg_ParseTuple(args, "OO:clear_extension", &name, &filename)) {

return NULL;

}

if (_PyImport_ClearExtension(name, filename) < 0) {

return NULL;

}

Py_RETURN_NONE;

}

static PyObject *

write_perf_map_entry(PyObject *self, PyObject *args)

{

PyObject *code_addr_v;

const void *code_addr;

unsigned int code_size;

const char *entry_name;

if (!PyArg_ParseTuple(args, "OIs", &code_addr_v, &code_size, &entry_name))

return NULL;

code_addr = PyLong_AsVoidPtr(code_addr_v);

if (code_addr == NULL) {

return NULL;

}

int ret = PyUnstable_WritePerfMapEntry(code_addr, code_size, entry_name);

if (ret < 0) {

PyErr_SetFromErrno(PyExc_OSError);

return NULL;

}

return PyLong_FromLong(ret);

}

static PyObject *

perf_map_state_teardown(PyObject *Py_UNUSED(self), PyObject *Py_UNUSED(ignored))

{

PyUnstable_PerfMapState_Fini();

Py_RETURN_NONE;

}

static PyObject *

iframe_getcode(PyObject *self, PyObject *frame)

{

if (!PyFrame_Check(frame)) {

PyErr_SetString(PyExc_TypeError, "argument must be a frame");

return NULL;

}

struct _PyInterpreterFrame *f = ((PyFrameObject *)frame)->f_frame;

return PyUnstable_InterpreterFrame_GetCode(f);

}

static PyObject *

iframe_getline(PyObject *self, PyObject *frame)

{

if (!PyFrame_Check(frame)) {

PyErr_SetString(PyExc_TypeError, "argument must be a frame");

return NULL;

}

struct _PyInterpreterFrame *f = ((PyFrameObject *)frame)->f_frame;

return PyLong_FromLong(PyUnstable_InterpreterFrame_GetLine(f));

}

static PyObject *

iframe_getlasti(PyObject *self, PyObject *frame)

{

if (!PyFrame_Check(frame)) {

PyErr_SetString(PyExc_TypeError, "argument must be a frame");

return NULL;

}

struct _PyInterpreterFrame *f = ((PyFrameObject *)frame)->f_frame;

return PyLong_FromLong(PyUnstable_InterpreterFrame_GetLasti(f));

}

static PyObject *

code_returns_only_none(PyObject *self, PyObject *arg)

{

if (!PyCode_Check(arg)) {

PyErr_SetString(PyExc_TypeError, "argument must be a code object");

return NULL;

}

PyCodeObject *code = (PyCodeObject *)arg;

int res = _PyCode_ReturnsOnlyNone(code);

return PyBool_FromLong(res);

}

static PyObject *

get_co_framesize(PyObject *self, PyObject *arg)

{

if (!PyCode_Check(arg)) {

PyErr_SetString(PyExc_TypeError, "argument must be a code object");

return NULL;

}

PyCodeObject *code = (PyCodeObject *)arg;

return PyLong_FromLong(code->co_framesize);

}

static PyObject *

get_co_localskinds(PyObject *self, PyObject *arg)

{

if (!PyCode_Check(arg)) {

PyErr_SetString(PyExc_TypeError, "argument must be a code object");

return NULL;

}

PyCodeObject *co = (PyCodeObject *)arg;

PyObject *kinds = PyDict_New();