comparison mc-inline.c @ 828:d0f48d1ea798

rvalue_t separation
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 27 Nov 2010 14:14:17 +0900
parents 8e7241d81f66
children ff5dfee80829
comparison
equal deleted inserted replaced
827:d7b3dc41972f 828:d0f48d1ea798
528 type=set_type_with_attr(cadr(type),type); 528 type=set_type_with_attr(cadr(type),type);
529 if (car(lvar=cadr(e))==IVAR) { 529 if (car(lvar=cadr(e))==IVAR) {
530 lvar=p_lvar(cadr(e)); // can be anything.... 530 lvar=p_lvar(cadr(e)); // can be anything....
531 switch(car(lvar)) { 531 switch(car(lvar)) {
532 case LVAR: 532 case LVAR:
533 return rvalue_t(lvar,cadddr(e)); 533 type = cadddr(e);
534 return rvalue(lvar);
534 case REGISTER: case DREGISTER: 535 case REGISTER: case DREGISTER:
535 case FREGISTER: case LREGISTER: 536 case FREGISTER: case LREGISTER:
536 case CONST: case FCONST: case DCONST: case LCONST: 537 case CONST: case FCONST: case DCONST: case LCONST:
537 // should do type check 538 // should do type check
538 if (offset) error(-1); 539 if (offset) error(-1);