===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/asn1_compile/Attic/gen_free.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- src/usr.bin/asn1_compile/Attic/gen_free.c	2003/05/11 21:36:33	1.1
+++ src/usr.bin/asn1_compile/Attic/gen_free.c	2005/10/16 18:56:35	1.2
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 1997 - 2000 Kungliga Tekniska Högskolan
+ * Copyright (c) 1997 - 2003 Kungliga Tekniska Högskolan
  * (Royal Institute of Technology, Stockholm, Sweden). 
  * All rights reserved. 
  *
@@ -34,7 +34,7 @@
 #include "gen_locl.h"
 
 /*
-RCSID("$KTH: gen_free.c,v 1.9 2001/09/25 13:39:26 assar Exp $");
+RCSID("$KTH: gen_free.c,v 1.12 2003/10/03 00:28:08 lha Exp $");
 */
 
 static void
@@ -55,6 +55,7 @@
       break;
   case TInteger:
   case TUInteger:
+  case TBoolean:
   case TEnumerated :
       break;
   case TOctetString:
@@ -84,7 +85,8 @@
 	  if(m->optional)
 	      fprintf(codefile, 
 		      "free(%s);\n"
-		      "}\n",s);
+		      "%s = NULL;\n"
+		      "}\n", s, s);
 	  if (tag == -1)
 	      tag = m->val;
 	  free (s);
@@ -102,7 +104,8 @@
 	      "}\n",
 	      name);
       fprintf(codefile,
-	      "free((%s)->val);\n", name);
+	      "free((%s)->val);\n"
+	      "(%s)->val = NULL;\n", name, name);
       free(n);
       break;
   }
@@ -110,6 +113,11 @@
       break;
   case TGeneralString:
       free_primitive ("general_string", name);
+      break;
+  case TUTF8String:
+      free_primitive ("utf8string", name);
+      break;
+  case TNull:
       break;
   case TApplication:
       free_type (name, t->subtype);