Mercurial > hg > CbC > old > device
changeset 697:e31cba38f7fc
*** empty log message ***
| author | kono |
|---|---|
| date | Sun, 21 Oct 2007 20:54:47 +0900 |
| parents | 7f0f92380714 |
| children | c6567d33cf21 |
| files | .gdbinit mc-codegen.c mc-inline.c test/obsf.c |
| diffstat | 4 files changed, 16 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/.gdbinit Sat Oct 20 15:40:29 2007 +0900 +++ b/.gdbinit Sun Oct 21 20:54:47 2007 +0900 @@ -19,6 +19,7 @@ # r -s test/code-gen-all.c # r -s mc-code-powerpc.c # r -s test/strinit.c -r -s test/arg.c +# r -s test/arg.c # r -s -DINLINE=inline test/strinit.c # r -s test/fact-a.c +r -s test/obsf.c
--- a/mc-codegen.c Sat Oct 20 15:40:29 2007 +0900 +++ b/mc-codegen.c Sun Oct 21 20:54:47 2007 +0900 @@ -3920,6 +3920,16 @@ cadddr(j)=sz= cadddr(i); if (sz==1||sz==size_of_short) sz = size_of_int; dsp += sz; + } else if(n->sc==IVAR) { + n->dsp = dsp; + car(j)=car(i); + caddr(j)=caddr(i); + n1->dsp = n->dsp; + n->ty = n1->ty; + n->sc = n1->sc; + n->attr = n1->attr; + cadddr(j)=sz= cadddr(i); + dsp ++; } arg_types = glist2(n->ty, arg_types); }
--- a/mc-inline.c Sat Oct 20 15:40:29 2007 +0900 +++ b/mc-inline.c Sun Oct 21 20:54:47 2007 +0900 @@ -1443,6 +1443,7 @@ case DECL_DATA: return list3(DECL_DATA,pexpr(e2),caddr(e1)); case DECL_DATA_LIST: + case DECL_DATA_ARRAY: return list4(DECL_DATA_LIST,pexpr(e2),pexpr(caddr(e1)),cadddr(e1)); case DECL_DATA_FIELD: return list4(DECL_DATA_FIELD,pexpr(e2),pexpr(caddr(e1)),cadddr(e1));
--- a/test/obsf.c Sat Oct 20 15:40:29 2007 +0900 +++ b/test/obsf.c Sun Oct 21 20:54:47 2007 +0900 @@ -2,7 +2,9 @@ main(t,_,a) char *a; -{return!0<t?t<3?main(-79,-13,a+main(-87,1-_, +{ +printf("%d %d %d\n",t,_,a); +return!0<t?t<3?main(-79,-13,a+main(-87,1-_, main(-86, 0, a+1 )+a)):1,t<_?main(t+1, _, a ):3,main ( -94, -27+t, a )&&t == 2 ?_<13 ?main ( 2, _+1, "%s %d %d\n" ):9:16:t<0?t<-72?main(_, t,"@n'+,#'/*{}w+/w#cdnr/+,{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l,+,/n{n+\