Lines Matching refs:procedure
183 if (expr.procedure)
186 expr.procedure = $1->value = exnewnode(expr.program, PROCEDURE, 1, $1->type, NiL, NiL);
187 expr.procedure->type = INTEGER;
193 if (!(expr.procedure->data.procedure.frame = dtopen(disc, Dtset)) || !dtview(expr.procedure->data.procedure.frame, expr.program->symbols))
195 expr.program->symbols = expr.program->frame = expr.procedure->data.procedure.frame;
199 expr.procedure = 0;
336 if (expr.procedure && !expr.procedure->type)
338 $2 = excast(expr.program, $2, expr.procedure ? expr.procedure->type : INTEGER, NiL, 0);
760 $$->data.call.procedure = $1;
1034 expr.procedure->data.procedure.arity++;
1080 if (expr.procedure)
1082 expr.procedure = exnewnode(expr.program, PROCEDURE, 1, expr.declare, NiL, NiL);
1088 if (!(expr.procedure->data.procedure.frame = dtopen(disc, Dtset)) || !dtview(expr.procedure->data.procedure.frame, expr.program->symbols))
1090 expr.program->symbols = expr.program->frame = expr.procedure->data.procedure.frame;
1096 expr.id->type = expr.procedure->type;
1101 $$ = expr.procedure;
1102 expr.procedure = 0;
1113 * NOTE: procedure definition was slipped into the