index bf3b07b52aee0c728cf194e2fbb521b635500557..48db18000ba1a65e2c651d59f7f0f0afe0482f53 100644 (file)
static void
jvm_generate_new(gen_proc_t * p, oberon_type_t * type, int num);
+static void
+jvm_generate_cast_prefix(gen_proc_t * p, char prefix, char postfix)
+{
+ if((prefix == 'b' || prefix == 's') && (postfix = 'l' || postfix == 'd'))
+ {
+ prefix = 'i';
+ }
+
+ if(prefix == postfix)
+ {
+ return;
+ }
+
+ if((prefix == 'l' || prefix == 'd') && (postfix == 'b' || postfix == 's'))
+ {
+ jvm_generate(p, 2, 1, "%c2i", prefix);
+ prefix = 'i';
+ }
+
+ int from_cell_size = jvm_cell_size_for_postfix(prefix);
+ int to_cell_size = jvm_cell_size_for_postfix(postfix);
+ jvm_generate(p, from_cell_size, to_cell_size, "%c2%c", prefix, postfix);
+}
+
+static void
+jvm_generate_cast_type(gen_proc_t * p, oberon_type_t * from, oberon_type_t * to)
+{
+ if(to -> class == OBERON_TYPE_RECORD || to -> class == OBERON_TYPE_POINTER)
+ {
+ if(to -> class == OBERON_TYPE_POINTER && to -> base -> class == OBERON_TYPE_RECORD)
+ {
+ char * full_name = jvm_get_class_full_name(to);
+ jvm_generate(p, 1, 1, "checkcast %s", full_name);
+ }
+ }
+ else
+ {
+ char prefix = jvm_get_prefix(from);
+ char postfix = jvm_get_postfix(to);
+ jvm_generate_cast_prefix(p, prefix, postfix);
+ }
+}
+
+static void
+jvm_generate_hard_cast_type(gen_proc_t * p, oberon_type_t * from, oberon_type_t * to)
+{
+ if(from -> class == OBERON_TYPE_REAL
+ && (to -> class == OBERON_TYPE_INTEGER || to -> class == OBERON_TYPE_SYSTEM_BYTE))
+ {
+ char postfix = jvm_get_postfix(to);
+ if(from -> size <= 4)
+ {
+ jvm_generate(p, 1, 1, "invokestatic java/lang/Float/floatToRawIntBits(F)I");
+ jvm_generate_cast_prefix(p, 'i', postfix);
+ }
+ else
+ {
+ jvm_generate(p, 2, 2, "invokestatic java/lang/Double/doubleToRawIntBits(D)J");
+ jvm_generate_cast_prefix(p, 'l', postfix);
+ }
+ }
+ else if((from -> class == OBERON_TYPE_INTEGER || from -> class == OBERON_TYPE_SYSTEM_BYTE)
+ && to -> class == OBERON_TYPE_REAL)
+ {
+ char prefix = jvm_get_prefix(from);
+ if(to -> size <= 4)
+ {
+ jvm_generate_cast_prefix(p, prefix, 'i');
+ jvm_generate(p, 1, 1, "invokestatic java/lang/Float/intBitsToFloat(I)F");
+ }
+ else
+ {
+ jvm_generate_cast_prefix(p, prefix, 'l');
+ jvm_generate(p, 2, 2, "invokestatic java/lang/Double/longBitsToDouble(J)D");
+ }
+ }
+ else
+ {
+ jvm_generate_cast_type(p, from, to);
+ }
+}
+
+static void
+check_index(gen_proc_t * p, oberon_type_t * index_type)
+{
+ // TODO проверка валидности границ
+ char prefix = jvm_get_prefix(index_type);
+ jvm_generate_cast_prefix(p, prefix, 'i');
+}
+
/*
* Генерирует код для инициализации массива со статическим базовым типом
* ( aref -- )
jvm_generate_var_initialization(p, copy_dst);
jvm_generate_var_initialization(p, copy_src);
+ if(rec -> base)
+ {
+ jvm_generate_load(p, copy_dst);
+ jvm_generate_load(p, copy_src);
+ jvm_generate_copy_record(p, rec -> base);
+ }
+
num = rec -> num_decl;
field = rec -> decl;
for(int i = 0; i < num; i++)
case MODE_INDEX:
push_item(p, expr -> item.parent);
push_expr(p, expr -> item.args);
+ check_index(p, expr -> item.args -> result);
break;
case MODE_FIELD:
push_item(p, expr -> item.parent);
@@ -1188,83 +1286,13 @@ jvm_generate_expr_new_pointer(gen_proc_t * p, oberon_type_t * type, int num, obe
for(int i = 0; i < num; i++)
{
push_expr(p, arg);
+ check_index(p, arg -> result);
arg = arg -> next;
}
jvm_generate_new(p, type -> base, num);
}
-static void
-jvm_generate_cast_prefix(gen_proc_t * p, char prefix, char postfix)
-{
- if(prefix == postfix)
- {
- return;
- }
-
- int from_cell_size = jvm_cell_size_for_postfix(prefix);
- int to_cell_size = jvm_cell_size_for_postfix(postfix);
- jvm_generate(p, from_cell_size, to_cell_size, "%c2%c", prefix, postfix);
-}
-
-static void
-jvm_generate_cast_type(gen_proc_t * p, oberon_type_t * from, oberon_type_t * to)
-{
- if(to -> class == OBERON_TYPE_RECORD || to -> class == OBERON_TYPE_POINTER)
- {
- if(to -> class == OBERON_TYPE_POINTER && to -> base -> class == OBERON_TYPE_RECORD)
- {
- char * full_name = jvm_get_class_full_name(to);
- jvm_generate(p, 1, 1, "checkcast %s", full_name);
- }
- }
- else
- {
- char prefix = jvm_get_prefix(from);
- char postfix = jvm_get_postfix(to);
- jvm_generate_cast_prefix(p, prefix, postfix);
- }
-}
-
-static void
-jvm_generate_hard_cast_type(gen_proc_t * p, oberon_type_t * from, oberon_type_t * to)
-{
- if(from -> class == OBERON_TYPE_REAL
- && (to -> class == OBERON_TYPE_INTEGER || to -> class == OBERON_TYPE_SYSTEM_BYTE))
- {
- char postfix = jvm_get_postfix(to);
- if(from -> size <= 4)
- {
- jvm_generate(p, 1, 1, "invokestatic java/lang/Float/floatToIntBits(F)I");
- jvm_generate_cast_prefix(p, 'i', postfix);
- }
- else
- {
- jvm_generate(p, 2, 2, "invokestatic java/lang/Double/doubleToIntBits(D)J");
- jvm_generate_cast_prefix(p, 'l', postfix);
- }
- }
- else if((from -> class == OBERON_TYPE_INTEGER || from -> class == OBERON_TYPE_SYSTEM_BYTE)
- && to -> class == OBERON_TYPE_REAL)
- {
- char prefix = jvm_get_prefix(from);
- if(to -> size <= 4)
- {
- jvm_generate_cast_prefix(p, prefix, 'i');
- jvm_generate(p, 1, 1, "invokestatic java/lang/Float/intBitsToFloat(I)F");
- }
- else
- {
- jvm_generate_cast_prefix(p, prefix, 'l');
- jvm_generate(p, 2, 2, "invokestatic java/lang/Double/longBitsToDouble(J)D");
- }
- }
- else
- {
- jvm_generate_cast_type(p, from, to);
- }
-}
-
static void
push_item(gen_proc_t * p, oberon_item_t * item)
{
int cell_size = jvm_cell_size_for_postfix(postfix);
push_item(p, item -> parent);
push_expr(p, item -> args);
+ check_index(p, item -> args -> result);
jvm_generate(p, 1 + 1, cell_size, "%caload", postfix);
break;
case MODE_FIELD:
jvm_generate_array_len(p, item -> integer);
jvm_generate_cast_prefix(p, 'i', jvm_get_postfix(item -> result));
break;
+ case MODE_AS:
+ push_item(p, item -> parent);
+ jvm_generate_cast_type(p, item -> parent -> result, item -> result);
+ break;
default:
gen_error("push_item: unk mode %i", item -> mode);
break;
assert(item -> parent -> is_item);
push_item(p, (oberon_item_t *) item -> parent);
push_expr(p, item -> args);
+ check_index(p, item -> args -> result);
push_expr(p, src);
jvm_generate(p, 1 + 1 + cell_size, 0, "%castore", postfix);
break;