Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.28
 
1.29
 
MAIN:plunky:20120422210740
 
local2.c
_>642642 }
 643643 
 644644 void
<>645 -rmove( int rt,int  rs, TWORD t ){
  645+rmove(int rt, int rs, TWORD t)
  646+{
646647         printf( "       %s      %s,%s\n",
 647648                 (t==FLOAT ? "movf" : (t==DOUBLE ? "movd" : "movl")),
 648649                 rnames[rt], rnames[rs] );
<>649 -        }
  650+}
650651 
<>651 -#if 0
 652 -setregs(){ /* set up temporary registers */
 653 -        fregs = 6;      /* tbl- 6 free regs on VAX (0-5) */
 654 -        ;
 655 -        }
 656 -
 657 -szty(t){ /* size, in registers, needed to hold thing of type t */
 658 -        return( (t==DOUBLE||t==FLOAT) ? 2 : 1 );
 659 -        }
 660 -#endif
 661 -
662652 int
<>663 -rewfld( p ) NODE *p; {
  653+rewfld(NODE *p)
  654+{
664655         return(1);
<>665 -        }
  656+}
666657 
 667658 #if 0
<>668 -callreg(p) NODE *p; {
  659+int
  660+callreg(NODE *p)
  661+{
669662         return( R0 );
<>670 -        }
  663+}
671664 
<>672 -base( p ) register NODE *p; {
  665+int
  666+base(register NODE *p)
  667+{
673668         register int o = p->op;
 674669 
 675670         if( (o==ICON && p->name[0] != '\0')) return( 100 ); /* ie no base reg */
     
 !
684679           && (p->type==INT || p->type==UNSIGNED || ISPTR(p->type)) )
 685680                 return( p->left->left->rval + 0200*(1+2) );
 686681         return( -1 );
<>687 -        }
  682+}
688683 
<>689 -offset( p, tyl ) register NODE *p; int tyl; {
  684+int
  685+offset(register NODE *p, int tyl)
  686+{
690687 
 691688         if( tyl==1 && p->op==REG && (p->type==INT || p->type==UNSIGNED) ) return( p->rval );
 692689         if( (p->op==LS && p->left->op==REG && (p->left->type==INT || p->left->type==UNSIGNED) &&
 693690               (p->right->op==ICON && p->right->name[0]=='\0')
 694691               && (1<<p->right->lval)==tyl))
 695692                 return( p->left->rval );
 696693         return( -1 );
<>697 -        }
  694+}
698695 #endif
 699696 
 700697 #if 0
     
 !
759756 }
 760757 
 761758 int
<>762 -flshape( p ) register NODE *p; {
  759+flshape(register NODE *p)
  760+{
763761         return( p->n_op == REG || p->n_op == NAME || p->n_op == ICON ||
 764762                 (p->n_op == OREG && (!R2TEST(p->n_rval) || tlen(p) == 1)) );
<>765 -        }
  763+}
766764 
 767765 int
<>768 -shtemp( p ) register NODE *p; {
  766+shtemp(register NODE *p)
  767+{
769768         if( p->n_op == STARG ) p = p->n_left;
 770769         return( p->n_op==NAME || p->n_op ==ICON || p->n_op == OREG || (p->n_op==UMUL && shumul(p->n_left, STARNM|SOREG)) );
<>771 -        }
  770+}
772771 
 773772 /*
 774773  * Shape matches for UMUL.  Cooperates with offstar().
     
 !
846845 #endif
 847846 
 848847 void
<>849 -adrcon( val ) CONSZ val; {
  848+adrcon(CONSZ val)
  849+{
850850         printf( "$" );
 851851         printf( CONFMT, val );
<>852 -        }
  852+}
853853 
 854854 void
 855855 conput(FILE *fp, NODE *p)
     
 !
870870         }
 871871 
 872872 void
<>873 -insput( p ) register NODE *p; {
  873+insput(register NODE *p)
  874+{
874875         cerror( "insput" );
<>875 -        }
  876+}
<_876877 
 877878 /*
 878879  * Write out the upper address, like the upper register of a 2-register
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-22 18:14 +0200