(free_type): free bignum integers

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@15744 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Love Hörnquist Åstrand
2005-07-25 21:28:29 +00:00
parent 68d93ba416
commit d8425c3dd6

View File

@@ -52,6 +52,10 @@ free_type (const char *name, const Type *t, int preserve)
fprintf (codefile, "free_%s(%s);\n", t->symbol->gen_name, name);
break;
case TInteger:
if (t->range == NULL && t->members == NULL) {
free_primitive ("heim_integer", name);
break;
}
case TBoolean:
case TEnumerated :
case TNull: