comparison mc-parse.c @ 603:2baddc88097d

*** empty log message ***
author kono
date Sat, 28 Jan 2006 21:58:00 +0900
parents 6b808480f08b
children 1078c7e3bfb0
comparison
equal deleted inserted replaced
602:429ec87e03e7 603:2baddc88097d
3667 if (!is_function(fnptr)) { 3667 if (!is_function(fnptr)) {
3668 error(STERR); 3668 error(STERR);
3669 } 3669 }
3670 // this is wrong... should be 3670 // this is wrong... should be
3671 // code (*)(return_type); 3671 // code (*)(return_type);
3672 type=list2(POINTER,CODE); 3672 type=list2(POINTER,list3(CODE,VOID,cadr(fnptr->ty)));
3673 // type arg
3673 e1=list2(RETURN,(int)fnptr); 3674 e1=list2(RETURN,(int)fnptr);
3674 getsym(0); 3675 getsym(0);
3675 break; 3676 break;
3676 case DEFINED: 3677 case DEFINED:
3677 t = mode; mode = IFDEF; 3678 t = mode; mode = IFDEF;