src/interp/alloc.c
/*==================================
 * create_pnode -- Create PNODE node
 * 2001/01/21 changed to block allocator
 *================================*/
- Create PNODE node
2001/01/21 changed to block allocator
- Create PNODE node 2001 / 01 / 21 changed to block allocator
static PNODE
create_pnode (PACTX pactx, INT type)
{
	PNODE node = alloc_pnode_memory();
	itype(node) = type;
	iprnt(node) = NULL;
	inext(node) = NULL;
	iline(node) = pactx->lineno;
	irptinfo(node) = get_rptinfo(pactx->fullpath);
	node->i_word1 = node->i_word2 = node->i_word3 = NULL;
	node->i_word4 = node->i_word5 = NULL;
	return node;
}
static PNODE create_pnode ( PACTX pactx , INT type ) { PNODE node = alloc_pnode_memory ( ) ; itype ( node ) = type ; iprnt ( node ) = NULL ; inext ( node ) = NULL ; iline ( node ) = pactx -> lineno ; irptinfo ( node ) = get_rptinfo ( pactx -> fullpath ) ; node -> i_word1 = node -> i_word2 = node -> i_word3 = NULL ; node -> i_word4 = node -> i_word5 = NULL ; return node ; }
create_pnode -- Create PNODE node
 2001/01/21 changed to block allocator
create_pnode -- Create PNODE node 2001 / 01 / 21 changed to block allocator
/* Assumption -- pactx->fullpath stays live longer than all pnodes */