X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=generator.c;h=05873d1303fa9bb214a3add0bf3374a3b408196d;hb=679da1b129ba6077d1c44ebdf260d3813afdcf65;hp=244296228ae3335b5de1b12047c3d90a8c7777b3;hpb=d3438ae51da4c98b47441911495f10e686191abd;p=dsw-obn.git

diff --git a/generator.c b/generator.c
index 2442962..05873d1 100644
--- 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);
+}