index fac9e0bc0def269786de76b60734d24cceb2fc6e..478a92c6f38cb91acb3c03c3f939c3158023d5f3 100644 (file)
switch(type -> class)
{
- case OBERON_TYPE_VOID:
+ case OBERON_TYPE_NOTYPE:
return new_string("V");
break;
case OBERON_TYPE_INTEGER:
break;
}
break;
+ case OBERON_TYPE_SYSTEM_BYTE:
+ return new_string("B");
+ break;
case OBERON_TYPE_REAL:
switch(type -> size)
{
case OBERON_TYPE_INTEGER:
case OBERON_TYPE_CHAR:
case OBERON_TYPE_SET:
+ case OBERON_TYPE_SYSTEM_BYTE:
return (size <= 4) ? ('i') : ('l');
break;
case OBERON_TYPE_PROCEDURE:
case OBERON_TYPE_RECORD:
case OBERON_TYPE_POINTER:
case OBERON_TYPE_STRING:
+ case OBERON_TYPE_NIL:
return 'a';
break;
case OBERON_TYPE_REAL:
break;
}
break;
+ case OBERON_TYPE_SYSTEM_BYTE:
+ return 'b';
+ break;
case OBERON_TYPE_CHAR:
switch(size)
{
case OBERON_TYPE_RECORD:
case OBERON_TYPE_POINTER:
case OBERON_TYPE_STRING:
+ case OBERON_TYPE_NIL:
return 'a';
break;
case OBERON_TYPE_REAL:
int num = type -> num_decl;
oberon_object_t * arg = type -> decl;
+
for(int i = 0; i < num; i++)
{
desc = jvm_get_descriptor_safe(arg -> type);
return 2;
}
}
- else if(type -> class == OBERON_TYPE_VOID)
+ else if(type -> class == OBERON_TYPE_NOTYPE)
{
return 0;
}