Searched refs:id_ptr (Results 1 – 4 of 4) sorted by relevance
/original-bsd/usr.bin/pascal/src/ |
H A D | fhdr.c | 55 if (inpflist(r->p_dec.id_ptr)) { 63 (p=lookup1(r->p_dec.id_ptr)) != NIL && bn == cbn) { 121 program = p = defnl(r->p_dec.id_ptr, PROG, NLNIL, 0); 127 p = enter(defnl(r->p_dec.id_ptr, PROC, NLNIL, 0)); 130 enclosing[ cbn ] = r->p_dec.id_ptr; 147 p = enter(defnl(r->p_dec.id_ptr, FUNC, temp, NIL)); 165 enclosing[ cbn ] = r->p_dec.id_ptr; 192 cp = defnl(r->p_dec.id_ptr, FVAR, p->type, 0); 205 cp = defnl(r->p_dec.id_ptr, FVAR, p->type,
|
H A D | pclval.c | 94 tr.field_node.id_ptr = v_node->cptr; 232 p = reclook(p, co->field_node.id_ptr); 348 if ( co->field_node.id_ptr == NIL ) { 351 p = reclook( p , co->field_node.id_ptr ); 353 error("%s is not a field in this record", co->field_node.id_ptr);
|
H A D | tree_ty.h | 32 char *id_ptr; member 45 char *id_ptr; member 80 char *id_ptr; member
|
H A D | lval.c | 104 tr.field_node.id_ptr = var->var_node.cptr; 274 if (co->field_node.id_ptr == NIL) { 277 p = reclook(p, co->field_node.id_ptr); 279 error("%s is not a field in this record", co->field_node.id_ptr);
|