564 	struct mem_block *memBase;  in add_node()  local
567 	memBase = list->listMemBase;  in add_node()
568 	if (memBase != NULL)  in add_node()
569 		index = memBase->index;  in add_node()
575 	if (memBase == NULL || index >= NODE_CHUNK) {  in add_node()
577 		memBase = mmalloc(sizeof(struct mem_block));  in add_node()
578 		if (memBase == NULL) {  in add_node()
582 		memBase->next = list->listMemBase;  in add_node()
585 		putLabeledWord("add_node: alloced a new membase at ", *memBase);  in add_node()
590 	b = &memBase->nodes[index];  in add_node()
593 	memBase->index = index;  in add_node()
594 	list->listMemBase = memBase;  in add_node()