comparison mc-inline.c @ 532:cecf5103679e

cond fix
author kono
date Fri, 30 Dec 2005 13:36:17 +0900
parents 19f5882997f5
children 80b5058f0535
comparison
equal deleted inserted replaced
531:19f5882997f5 532:cecf5103679e
922 case LADD: case LSUB: case LBAND: case LEOR: case LBOR: case LCMP: 922 case LADD: case LSUB: case LBAND: case LEOR: case LBOR: case LCMP:
923 #endif 923 #endif
924 return pbinop(car(e1),e2,caddr(e1)); 924 return pbinop(car(e1),e2,caddr(e1));
925 case LCOND: case DCOND: case FCOND: case COND: case UCOND: case LUCOND: 925 case LCOND: case DCOND: case FCOND: case COND: case UCOND: case LUCOND:
926 e3 = pexpr(e2); 926 e3 = pexpr(e2);
927 if (car(e3)==CONST) return pexpr(cadr(e3)?caddr(e1):cadddr(e1)); 927 if (car(e3)==CONST) return
928 return list4(car(e1),e3,pexpr(cadr(e1)),pexpr(cadr(e2))); 928 caddr(e1)? pexpr(cadr(e3)?caddr(e1):cadddr(e1)) :
929 pexpr(cadr(e3)?e3:cadddr(e1)); // GNU extension h?:g
930 return list4(car(e1),e3,pexpr(caddr(e1)),pexpr(cadddr(e1)));
929 case STASS: 931 case STASS:
930 return psassign(e1); 932 return psassign(e1);
931 case ASS: case CASS: case SASS: 933 case ASS: case CASS: case SASS:
932 return passign(e1); 934 return passign(e1);
933 case SASSOP: case SUASSOP: 935 case SASSOP: case SUASSOP: