Mercurial > hg > CbC > old > device

comparison mc-codegen.c @ 194:114e9d64b5cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Sat, 10 Jan 2004 17:13:49 +0900
parents 8646a4a9cde9
children c193120ee2a6
comparison
equal deleted inserted replaced
193:ce0c38b6c85e 194:114e9d64b5cc
416 case NEQ: 416 case NEQ:
417 rexpr(e1,l1,code_eq(!cond),INT); 417 rexpr(e1,l1,code_eq(!cond),INT);
418 return; 418 return;
419 419
420 case DOP+GT: 420 case DOP+GT:
421 drexpr(cadr(e1),caddr(e1),l1,DOP+GT);
422 return;
423 case DOP+GE: 421 case DOP+GE:
424 drexpr(cadr(e1),caddr(e1),l1,DOP+GE); 422 case DOP+EQ:
423 case DOP+NEQ:
424 case FOP+GT:
425 case FOP+GE:
426 case FOP+EQ:
427 case FOP+NEQ:
428 drexpr(cadr(e1),caddr(e1),l1,car(e1));
429 return;
430 case FOP+LT:
431 drexpr(caddr(e1),cadr(e1),l1,FOP+GT);
432 return;
433 case FOP+LE:
434 drexpr(caddr(e1),cadr(e1),l1,FOP+GE);
425 return; 435 return;
426 case DOP+LT: 436 case DOP+LT:
427 drexpr(caddr(e1),cadr(e1),l1,DOP+GT); 437 drexpr(caddr(e1),cadr(e1),l1,DOP+GT);
428 return; 438 return;
429 case DOP+LE: 439 case DOP+LE:
430 drexpr(caddr(e1),cadr(e1),l1,DOP+GE); 440 drexpr(caddr(e1),cadr(e1),l1,DOP+GE);
431 return; 441 return;
432 case DOP+EQ:
433 drexpr(cadr(e1),caddr(e1),l1,DOP+EQ);
434 return;
435 case DOP+NEQ:
436 drexpr(cadr(e1),caddr(e1),l1,DOP+NEQ);
437 return;
438
439 case FOP+GT:
440 drexpr(cadr(e1),caddr(e1),l1,FOP+GT);
441 return;
442 case FOP+GE:
443 drexpr(cadr(e1),caddr(e1),l1,FOP+GE);
444 return;
445 case FOP+LT:
446 drexpr(caddr(e1),cadr(e1),l1,FOP+GT);
447 return;
448 case FOP+LE:
449 drexpr(caddr(e1),cadr(e1),l1,FOP+GE);
450 return;
451 case FOP+EQ:
452 drexpr(cadr(e1),caddr(e1),l1,FOP+EQ);
453 return;
454 case FOP+NEQ:
455 drexpr(cadr(e1),caddr(e1),l1,FOP+NEQ);
456 return;
457
458 442
459 case LAND: 443 case LAND:
460 b_expr(e2,0,cond?(l2=fwdlabel()):l1,0); 444 b_expr(e2,0,cond?(l2=fwdlabel()):l1,0);
461 b_expr(caddr(e1),cond,l1,0); 445 b_expr(caddr(e1),cond,l1,0);
462 if(cond) fwddef(l2); 446 if(cond) fwddef(l2);