index 84ebe512efcdb595a9c079f1bbc3d02b68cd0f26..1d4f9702a8254b2a2064743f2a320c075176d742 100644 (file)
assert(dst -> is_item);
oberon_item_t * item = (oberon_item_t *) dst;
+ if(dst -> result -> class == OBERON_TYPE_ARRAY
+ || src -> result -> class == OBERON_TYPE_ARRAY)
+ {
+ gen_error("array copy not implemented");
+ }
+ else if(dst -> result -> class == OBERON_TYPE_RECORD
+ || src -> result -> class == OBERON_TYPE_RECORD)
+ {
+ gen_error("record copy not implemented");
+ }
+
switch(item -> mode)
{
case MODE_VAR: