Lines Matching refs:new_node
186 void replace_linked_type(Node *old, Node *new_node) {
189 Setattr(new_node, "allegrocl:next_linked_type", Getattr(old, "allegrocl:next_linked_type"));
191 Setattr(prev, "allegrocl:next_linked_type", new_node);
197 first_linked_type = new_node;
202 Setattr(first_linked_type, "allegrocl:last_linked_type", new_node);
205 void insert_linked_type_at(Node *old, Node *new_node, int before = 1) {
209 add_linked_type(new_node);
214 Setattr(new_node, "allegrocl:next_linked_type", Getattr(old, "allegrocl:next_linked_type"));
215 Setattr(old, "allegrocl:next_linked_type", new_node);
217 Setattr(first_linked_type, "allegrocl:last_linked_type", new_node);
229 Setattr(new_node, "allegrocl:next_linked_type", c);
231 first_linked_type = new_node;
236 Setattr(p, "allegrocl:next_linked_type", new_node);
431 Node *new_node = 0;
434 new_node = n;
444 new_node = NewHash();
445 Setattr(new_node, "nodeType", "templateInst");
446 Setattr(new_node, "name", Copy(resolved));
447 Setattr(new_node, "sym:name", Copy(name));
448 Setattr(new_node, "real-name", Copy(k));
449 Setattr(new_node, "type", Copy(resolved));
450 Setattr(new_node, "allegrocl:namespace", ns);
451 Setattr(new_node, "allegrocl:package", ns);
455 if (!Strcmp(nodeType(new_node), "templateInst") && in_class) {
462 insert_linked_type_at(in_class, new_node);
468 add_linked_type(new_node);
470 Setattr(new_node, "allegrocl:synonym:is-primary", "1");
473 // Printf(stderr, "setting primary synonym of %x to %x\n", new_node, match);
474 if (new_node == match)
475 Printf(stderr, "Hey-4 * - '%s' is a synonym of iteself!\n", Getattr(new_node, "name"));
476 Setattr(new_node, "allegrocl:synonym-of", match);
478 add_linked_type(new_node);
528 Node *new_node = NewHash();
531 Setattr(new_node, "nodeType", "classforward");
532 Setattr(new_node, "name", Copy(type));
533 Setattr(new_node, "sym:name", symname);
534 Setattr(new_node, "allegrocl:namespace", ns);
535 Setattr(new_node, "allegrocl:package", ns);
543 add_forward_referenced_type(new_node);
544 add_linked_type(new_node);
547 Setattr(n, "allegrocl:synonym-of", new_node);