Mercurial > hg > CbC > old > device

comparison mc-codegen.c @ 139:742224f4da02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Tue, 06 May 2003 02:36:55 +0900
parents e6e77af048a1
children 56211702f298
comparison
equal deleted inserted replaced
138:e6e77af048a1 139:742224f4da02
538 lvar = list2(LVAR,n->dsp); 538 lvar = list2(LVAR,n->dsp);
539 g_expr_u(assign_expr0(list2(LVAR,n->dsp),list3(tag,reg,(int)n),t,t)); 539 g_expr_u(assign_expr0(list2(LVAR,n->dsp),list3(tag,reg,(int)n),t,t));
540 if (tag==REGISTER) { 540 if (tag==REGISTER) {
541 free_register(reg); 541 free_register(reg);
542 } else if (tag==DREGISTER) { 542 } else if (tag==DREGISTER) {
543 free_dregister(reg,1); 543 free_dregister(reg);
544 } else if (tag==FREGISTER) { 544 } else if (tag==FREGISTER) {
545 free_dregister(reg,0); 545 free_dregister(reg);
546 } 546 }
547 return g_expr0(lvar); 547 return g_expr0(lvar);
548 #endif 548 #endif
549 } 549 }
550 550
586 while(use0) { 586 while(use0) {
587 if (car(use0)==t) { 587 if (car(use0)==t) {
588 if (car(caddr(use0))==REGISTER) 588 if (car(caddr(use0))==REGISTER)
589 free_register(cadr(caddr(use0))); 589 free_register(cadr(caddr(use0)));
590 else if (car(caddr(use0))==FREGISTER) 590 else if (car(caddr(use0))==FREGISTER)
591 free_dregister(cadr(caddr(use0)),0); 591 free_dregister(cadr(caddr(use0)));
592 else if (car(caddr(use0))==DREGISTER) 592 else if (car(caddr(use0))==DREGISTER)
593 free_dregister(cadr(caddr(use0)),1); 593 free_dregister(cadr(caddr(use0)));
594 break; 594 break;
595 } 595 }
596 use0 = cadr(use0); 596 use0 = cadr(use0);
597 } 597 }
598 remove0(target,t); 598 remove0(target,t);
847 parallel_assign(&target,&source,&processing,&use); 847 parallel_assign(&target,&source,&processing,&use);
848 while (use) { 848 while (use) {
849 if (car(caddr(use))==REGISTER) 849 if (car(caddr(use))==REGISTER)
850 free_register(cadr(caddr(use))); 850 free_register(cadr(caddr(use)));
851 else if (car(caddr(use))==FREGISTER) 851 else if (car(caddr(use))==FREGISTER)
852 free_dregister(cadr(caddr(use)),0); 852 free_dregister(cadr(caddr(use)));
853 else if (car(caddr(use))==DREGISTER) 853 else if (car(caddr(use))==DREGISTER)
854 free_dregister(cadr(caddr(use)),1); 854 free_dregister(cadr(caddr(use)));
855 else if (car(caddr(use))==LVAR) 855 else if (car(caddr(use))==LVAR)
856 free_lvar(cadr(caddr(use))); 856 free_lvar(cadr(caddr(use)));
857 use=cadr(use); 857 use=cadr(use);
858 } 858 }
859 if(target) error(-1); 859 if(target) error(-1);