Исправлен цикл REPEAT, исправлено использование HUGEINT как индекса массива

[dsw-obn.git] / src / generator.h

diff --git a/src/generator.h b/src/generator.h
index 436a0f8f01b3a3470a5681f436eb7a505f8ed074..5617e79796ac450128ab6536c7f9c35b7448ad9b 100644 (file)
--- a/src/generator.h
+++ b/src/generator.h
@@ -38,13 +38,11 @@ void oberon_generate_goto(oberon_context_t * ctx, gen_label_t * l);
  */
 
 void oberon_generate_assign(oberon_context_t * ctx, oberon_expr_t * src, oberon_expr_t * dst);
+void oberon_generate_copy(oberon_context_t * ctx, oberon_expr_t * src, oberon_expr_t * dst);
+void oberon_generate_assert_n(oberon_context_t * ctx, oberon_expr_t * cond, int64_t n);
+void oberon_generate_assert(oberon_context_t * ctx, oberon_expr_t * cond);
+void oberon_generate_trap(oberon_context_t * ctx, int64_t n);
+void oberon_generate_halt(oberon_context_t * ctx, int64_t n);
 void oberon_generate_return(oberon_context_t * ctx, oberon_expr_t * expr);
 
-/*
- * Функции генерации кода
- */
-
-void oberon_generate_code(oberon_context_t * ctx);
-void oberon_generator_dump(oberon_context_t * ctx, char * path);
-void * oberon_generator_get_procedure(oberon_context_t * ctx, const char * name);
-void * oberon_generator_get_var(oberon_context_t * ctx, const char * name);
+void oberon_set_out_directory(oberon_context_t * ctx, const char * path);