X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Fbackends%2Fjvm%2Fgenerator-jvm-basic.c;h=033b84227d1eebfb4bbda213e94e19e889229f78;hp=61088af9bfb6a30b372fe071e85a30b4387d1dc8;hb=0c29ba1953327a9b476a825d8b9b9d185d544972;hpb=f34b0f1f6a54eda1ad328576e48d92b96ad160ac diff --git a/src/backends/jvm/generator-jvm-basic.c b/src/backends/jvm/generator-jvm-basic.c index 61088af..033b842 100644 --- a/src/backends/jvm/generator-jvm-basic.c +++ b/src/backends/jvm/generator-jvm-basic.c @@ -191,6 +191,9 @@ jvm_get_prefix(oberon_type_t * type) int size = type -> size; switch(type -> class) { + case OBERON_TYPE_NOTYPE: + return ' '; + break; case OBERON_TYPE_BOOLEAN: case OBERON_TYPE_INTEGER: case OBERON_TYPE_CHAR: @@ -223,6 +226,9 @@ jvm_get_postfix(oberon_type_t * type) int size = type -> size; switch(type -> class) { + case OBERON_TYPE_NOTYPE: + return ' '; + break; case OBERON_TYPE_BOOLEAN: return 'b'; break; @@ -436,6 +442,8 @@ jvm_cell_size_for_postfix(char postfix) { switch(postfix) { + case ' ': + return 0; case 'a': case 'b': case 's': @@ -523,6 +531,8 @@ jvm_get_type_of_prefix(char prefix) { switch(prefix) { + case ' ': + return 'V'; case 'b': return 'B'; case 'c':