Add initializers for TYPEis entities

starseeker · cshorler · commit d36c0dde5b85 · 2022-06-11T17:40:25.000+01:00
diff --git a/src/exp2cxx/selects.c b/src/exp2cxx/selects.c
@@ -741,7 +741,11 @@ void TYPEselect_lib_print_part_one( const Type type, FILE * f,
         if( ( TYPEis_entity( t ) ) || ( !utype_member( dups, t, 1 ) ) ) {
             if( isAggregateType( t )  && ( t->u.type->body->base ) ) {
                     fprintf( f, "   _%s = new %s;\n", SEL_ITEMget_dmname( t ), TYPEget_utype( t ) );
-            }
+	    } else if (TYPEis_entity(t)) {
+		    // Per TYPEget_utype, any TYPEis_entity is an
+		    // SDAI_Application_instance_ptr - initialize it here.
+		    fprintf(f, "   _%s = NULL;\n", SEL_ITEMget_dmname(t));
+	    }
         }
     } LISTod
     fprintf( f, "   nullify();\n" );
