Quick Search:

Mode

Context

Displaying 3 lines of context. None | Less | More | Full

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.172
 
1.173
 
MAIN:ragge:20060205183051
 
reader.c
_>844844                                 comperr("ASSIGN error");
 845845 #endif
 846846                         CDEBUG(("gencode(%p) right move\n", p));
<>847 -                        rmove(p->n_right->n_reg, p->n_reg, p->n_type);
  847+                        rmove(DECRA(p->n_right->n_reg, 0),
  848+                            DECRA(p->n_reg, 0), p->n_type);
848849                         p->n_right->n_reg = p->n_reg;
 849850                         p->n_right->n_rval = p->n_reg;
 850851                 }
     
 !
867868                                 comperr("ASSIGN error");
 868869 #endif
 869870                         CDEBUG(("gencode(%p) left move\n", p));
<>870 -                        rmove(p->n_left->n_reg, p->n_reg, p->n_type);
  871+                        rmove(DECRA(p->n_left->n_reg, 0),
  872+                            DECRA(p->n_reg, 0), p->n_type);
871873                         p->n_left->n_reg = p->n_reg;
 872874                         p->n_left->n_rval = p->n_reg;
 873875                 }
     
 !
883885         }
 884886 
 885887         CDEBUG(("emitting node %p\n", p));
<> 888+        if (p->n_su == 0)
  889+                return;
886890 
 887891         if (p->n_op == CALL || p->n_op == FORTCALL || p->n_op == STCALL) {
 888892                 /* Print out arguments first */
     
 !
10041008 
 10051009                 if( !rewfld(p) ) return 0;
 10061010 
<>1007 -                ty = (szty(p->n_type) == 2)? LONG: INT; /* XXXX */
  1011+                ty = p->n_type;
10081012                 v = p->n_rval;
 10091013                 s = UPKFSZ(v);
 10101014 # ifdef RTOLBYTES
     
 !
10241028 
 10251029                 if( o != 0 ){
 10261030                         shp = mkbinode(RS, p->n_left,
<>1027 -                            mklnode(ICON, o, 0, ty), ty);
  1031+                            mklnode(ICON, o, 0, INT), ty);
<_10281032                         p->n_left = shp;
 10291033                         /* whew! */
 10301034                 }
FishEye: Open Source License registered to PCC.
Your maintenance has expired. You can renew your license at http://www.atlassian.com/fisheye/renew
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-09-02 11:10 +0200