Добавлен тип CHAR

[dsw-obn.git] / src / backends / jvm / generator-jvm.c

diff --git a/src/backends/jvm/generator-jvm.c b/src/backends/jvm/generator-jvm.c
index d986a8e4cbc9af35a1fcf9361c531238c1de3fa8..e4c70b1c23d312e580c24f1a2d2348963548ecc1 100644 (file)
--- a/src/backends/jvm/generator-jvm.c
+++ b/src/backends/jvm/generator-jvm.c
@@ -858,6 +858,7 @@ oberon_generator_init_type(oberon_context_t * ctx, oberon_type_t * type)
                case OBERON_TYPE_BOOLEAN:
                case OBERON_TYPE_ARRAY:
                case OBERON_TYPE_REAL:
+               case OBERON_TYPE_CHAR:
                        break;
                case OBERON_TYPE_RECORD:
                        ;
@@ -1366,6 +1367,7 @@ push_item(gen_proc_t * p, oberon_item_t * item)
                        }
                        break;
                case MODE_INTEGER:
+               case MODE_CHAR:
                        jvm_generate_push_int_size(p, item -> integer, item -> result -> size);
                        break;
                case MODE_BOOLEAN: