- irp->name = new_id_from_str(INITAL_PROG_NAME);
-
- irp->glob_type = new_type_class(new_id_from_str (GLOBAL_TYPE_NAME));
- /* Remove type from type list. Must be treated differently than
+ irp->glob_type = new_type_class(new_id_from_chars(X(GLOBAL_TYPE_NAME)));
+ irp->tls_type = new_type_struct(new_id_from_chars(X(TLS_TYPE_NAME)));
+ /* Remove these types from type list. Must be treated differently than