index e4ea3833027a6d27cd502cf3be21e98191cfc4b7..be8c9292dd0444f3f50c0ce116baee2ad660f254 100644 (file)
struct gen_class * c;
char * name = var -> name;
gen_type_t * t = var -> type -> gen_type;
+
+ assert(name);
+ if(t == NULL)
+ {
+ gen_error("uninitialized type class %i", var -> type -> class);
+ }
+
switch(var -> class)
{
case OBERON_CLASS_VAR_PARAM: