10-many-args.dcf

用Java实现的编译器。把源代码编译成SPARC汇编程序

class Program
{
  int m2(int i1,int i2,int i3,int i4,int i5,int i6,int i7,int i8,int i9,
         boolean b1,boolean b2,boolean b3,boolean b4, int i10)
  {
        if (i1!=1 || i2!=2 || i3!=3 || i4!=4 || i5!=5 || i6!=6 || i7!=7
	    || i8!=8 || i9!=9 || i10!=10) 
	{
          callout("printf","FAIL: arguments passed in wrong order in m2!\n");
	} 
	
	return 1;
  }

  void main()
  {
        int i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,res;

        i1=1;i2=2;i3=3;i4=4;i5=5;i6=6;i7=7;i8=8;i9=9;i10=10;

	res = m2(i1,i2,i3,i4,i5,i6,i7,i8,i9,true,true,true,false,i10);

        if (i1!=1 || i2!=2 || i3!=3 || i4!=4 || i5!=5 || i6!=6 || i7!=7
	|| i8!=8 || i9!=9 || i10!=10) 
	{
          callout("printf","FAIL: args by val have been modified in proc!!!\n");
	} 

	callout("printf","OK if no FAIL messages so far\n");
        callout("printf","The arguments were %d %d %d %d %d %d %d %d %d %d\n",
                i1, i2, i3, i4, i5, i6, i7, i8, i9, i10);
  }
}