cvsuser 04/03/12 00:51:49
Modified: imcc imcc.y
Log:
PIR meth call syntax - 9: error check
Revision Changes Path
1.126 +6 -2 parrot/imcc/imcc.y
Index: imcc.y
===================================================================
RCS file: /cvs/public/parrot/imcc/imcc.y,v
retrieving revision 1.125
retrieving revision 1.126
diff -u -w -r1.125 -r1.126
--- imcc.y 11 Mar 2004 16:37:56 -0000 1.125
+++ imcc.y 12 Mar 2004 08:51:48 -0000 1.126
@@ -214,8 +214,12 @@
itcall_sub(SymReg* sub)
{
current_call->r[0]->pcc_sub->sub = sub;
+ if (cur_obj) {
+ if (cur_obj->set != 'P')
+ fataly(1, sourcefile, line, "object isn't a PMC");
current_call->r[0]->pcc_sub->object = cur_obj;
cur_obj = NULL;
+ }
/* FIXME use the default settings from .pragma */
current_call->r[0]->pcc_sub->pragma = P_PROTOTYPED;
if(cur_unit->type == IMC_PCCSUB)
