Добавлено получение указателей на сгенерированные процедуры и переменные

[dsw-obn.git] / generator.c

diff --git a/generator.c b/generator.c
index 244296228ae3335b5de1b12047c3d90a8c7777b3..05873d1303fa9bb214a3add0bf3374a3b408196d 100644 (file)
--- a/generator.c
+++ b/generator.c
@@ -671,3 +671,21 @@ oberon_generator_dump(oberon_context_t * ctx, char * path)
        gcc_jit_context * gcc_context = gen_context -> gcc_context;
        gcc_jit_context_dump_to_file(gcc_context, path, 0);
 }
+
+void *
+oberon_generator_get_procedure(oberon_context_t * ctx, const char * name)
+{
+       gen_context_t * gen_context = ctx -> gen_context;
+       gcc_jit_result * gcc_result = gen_context -> gcc_result;
+
+       return gcc_jit_result_get_code(gcc_result, name);
+}
+
+void *
+oberon_generator_get_var(oberon_context_t * ctx, const char * name)
+{
+       gen_context_t * gen_context = ctx -> gen_context;
+       gcc_jit_result * gcc_result = gen_context -> gcc_result;
+
+       return gcc_jit_result_get_global(gcc_result, name);
+}