diff options
Diffstat (limited to 'backendC/CleanCompilerSources/tcsupport_2.c')
-rw-r--r-- | backendC/CleanCompilerSources/tcsupport_2.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/tcsupport_2.c b/backendC/CleanCompilerSources/tcsupport_2.c index 9556961..96d3e21 100644 --- a/backendC/CleanCompilerSources/tcsupport_2.c +++ b/backendC/CleanCompilerSources/tcsupport_2.c @@ -35,7 +35,7 @@ BITVECT DetermineConsVarsOfTypeCons (SymbDef typecons, ConsVarList * cons_vars) { if (typecons -> sdef_kind == TYPE || typecons -> sdef_kind == RECORDTYPE) { if (typecons -> sdef_type) - { * cons_vars = typecons -> sdef_type -> type_lhs -> ft_cons_vars; + { * cons_vars = NULL; return typecons -> sdef_type -> type_consvars; } else @@ -44,7 +44,7 @@ BITVECT DetermineConsVarsOfTypeCons (SymbDef typecons, ConsVarList * cons_vars) } } else if (typecons -> sdef_kind == TYPESYN) - { * cons_vars = typecons -> sdef_syn_type -> syn_lhs -> ft_cons_vars ; + { * cons_vars = NULL; return typecons -> sdef_syn_type -> syn_consvars; } else |