# HG changeset patch
# User kono
# Date 1047563337 -32400
# Node ID 7d8de41390d885f0156a44c9b1637a281bfd3bb7
# Parent  185d2cc6a3a90afe8aef3358ab363538659c0fad
*** empty log message ***

diff -r 185d2cc6a3a9 -r 7d8de41390d8 Changes
--- a/Changes	Thu Mar 13 14:41:48 2003 +0900
+++ b/Changes	Thu Mar 13 22:48:57 2003 +0900
@@ -2114,3 +2114,21 @@
 Wed Mar 12 12:58:47 JST 2003
 
 比較で入れ換えるとの否定は若干違うよね。
+
+Thu Mar 13 19:39:48 JST 2003
+
+そういえば、doif で条件が定数だったときとかの最適化は
+してないんだね。やさしいけど。chk を使えば良いので。
+
+   f(g(1,2,3),g(1,2,3),g(1,2,3))
+
+とかだと、結局、g の返り値は一旦メモリに入れないとだめじゃん。
+なんだけど、実際は、r29-r22 を使っているようですね。
+
+ってことは、function call の時に、r3-r10 が前の引数かどうかを
+チェックして、引数だったらr29-r22に移す作業がいるわけだよね。
+いったんr3とかに入れてしまった後だと、重複してしまうが...
+前もって関数呼出しがあるかどうかは、調べることができるから、
+関数呼び出しがあったら、そうするようにする?
+
+いろいろめんどくさいなぁ... (いったい、いつなったらできるんだ?)
diff -r 185d2cc6a3a9 -r 7d8de41390d8 mc-code-ia32.c
--- a/mc-code-ia32.c	Thu Mar 13 14:41:48 2003 +0900
+++ b/mc-code-ia32.c	Thu Mar 13 22:48:57 2003 +0900
@@ -1759,7 +1759,7 @@
     error(-1);
 }
 
-int dpop_register()
+int pop_dregister()
 { 
     if (freg_sp<0) { error(-1); return -1;}
     printf("# fpop: %d\n",freg_sp-1);
@@ -1770,7 +1770,7 @@
 emit_dpop(int type)
 {
     int xreg;
-    if ((xreg=dpop_register())==-1) {
+    if ((xreg=pop_dregister())==-1) {
     } else if (xreg<= -REG_LVAR_OFFSET) {
 	code_drlvar(lvar(REG_LVAR_OFFSET+xreg),1);
 	/* pushed order is reversed.   We don't need this for comutable 
diff -r 185d2cc6a3a9 -r 7d8de41390d8 mc-code-powerpc.c
--- a/mc-code-powerpc.c	Thu Mar 13 14:41:48 2003 +0900
+++ b/mc-code-powerpc.c	Thu Mar 13 22:48:57 2003 +0900
@@ -55,20 +55,32 @@
 int size_of_double = 8;
 int size_of_longlong = 8;
 int endian = 0;
-int MAX_REGISTER=30;             /* PowerPCのレジスタを10個まで使う*/
-#define  REAL_MAX_REGISTER 32    /* PowerPCのレジスタが32ということ*/
-#define  REAL_MAX_FREGISTER 32    /* PowerPCのレジスタが32ということ*/
-int MAX_REGISTGER_VAR=30-10;    
-int MAX_FREGISTER=30;
 
 #define REG_fp   1
 #define REG_sp   30
-#define REG_VAR_BASE 30
+#define REG_VAR_BASE 29
+#define REG_VAR_MIN  22
 #define REG_ARG_BASE 3 
 #define REG_ARG_MAX  10 
+#define MIN_TMP_REG 3
+#define MAX_TMP_REG 12
+
+#define PTRC_REG 3
+#define INPUT_REG 2
+#define USING_REG 1
+
+#define FREG_VAR_BASE 31
+#define FREG_VAR_MIN  22
 #define FREG_ARG_BASE 1 
 #define FREG_ARG_MAX  13 
 
+int MAX_REGISTER=30;             /* PowerPCのレジスタを10個まで使う*/
+int MAX_FREGISTER=30;
+#define  REAL_MAX_REGISTER 32    /* PowerPCのレジスタが32ということ*/
+#define  REAL_MAX_FREGISTER 32    /* PowerPCのレジスタが32ということ*/
+int MAX_REGISTGER_VAR=REG_VAR_BASE-REG_VAR_MIN;    
+int MAX_FREGISTGER_VAR=FREG_VAR_BASE-FREG_VAR_MIN;    
+
 int powerpc_regs[REAL_MAX_REGISTER];
 int powerpc_regv[REAL_MAX_REGISTER];
 
@@ -105,6 +117,7 @@
 void code_save_registers();
 void code_save_stacks();
 void regist_extern_function();
+void clear_ptr_cache_reg(int r);
 
 void
 code_init(void)
@@ -116,24 +129,47 @@
     endian = 1;
 }
 
-#define register_name(i) reg_name[i]
+#define register_name(i)  reg_name[i]
+#define dregister_name(i) freg_name[i]
 
 void
 gexpr_code_init(void){
     regv[creg]=0;
+    fregv[freg]=0;
+}
+
+int
+replace_arg_var(int n)
+{
+    fnptr->dsp;
 }
 
 int 
 get_register(void)
 {    /* 使われていないレジスタを調べる */
-    int i;
-    for(i=0;i<MAX_REGISTER;i++) {
+    int i,n;
+    for(i=MAX_TMP_REG;i>MIN_TMP_REG;i--) {
 	if (! regs[i]) {    /* 使われていないなら */
-	    regs[i]=1;      /* そのレジスタを使うことを宣言し */
-	    return i;       /* その場所を表す番号を返す */
+	} else if (regs[i]==INPUT_REG) {
+	    code_assign_lvar(lvar(replace_arg_var(i)),0);
+	} else if (regs[i]==PTRPC_REG) {
+	    clear_ptr_cache_r(i);
+	} else 
+	    continue;
+	regs[i]=USING_REG;      /* そのレジスタを使うことを宣言し */
+	return i;               /* その場所を表す番号を返す */
+    }
+    /* search register stack */
+    for(i=0;i<reg_sp;i++) {
+	if (reg_stack[i]>=0) {
+            code_assign_lvar(
+                lvar(reg_stack[i]=new_lvar(size_of_int)),0); 
+            reg_stack[i]= reg_stack[i]-REG_LVAR_OFFSET;
+	    return i;
 	}
     }
-    return -1;    /* 空いている場所がないなら、それを表す -1 を返す */
+    /* 空いている場所がないなら、エラー (いったい誰が使ってるの?) */
+    error(REG_ERR); 
 }
 
 int
@@ -142,6 +178,39 @@
     return reg_stack[--reg_sp];
 }
 
+int 
+get_dregister(void)
+{    /* 使われていないレジスタを調べる */
+    int i,n;
+    for(i=MAX_TMP_FREG;i>MIN_TMP_FREG;i--) {
+	if (! fregs[i]) {    /* 使われていないなら */
+	} else if (fregs[i]==INPUT_REG) {
+	    code_dassign_lvar(lvar(replace_arg_dvar(i)),0);
+	} else 
+	    continue;
+	fregs[i]=USING_REG;      /* そのレジスタを使うことを宣言し */
+	return i;               /* その場所を表す番号を返す */
+    }
+    /* search register stack */
+    for(i=0;i<freg_sp;i++) {
+	if (freg_stack[i]>=0) {
+            code_dassign_lvar(
+                lvar(freg_stack[i]=new_lvar(size_of_double)),1); 
+            freg_stack[i]= freg_stack[i]-REG_LVAR_OFFSET;
+	    return i;
+	}
+    }
+    /* 空いている場所がないなら、エラー (いったい誰が使ってるの?) */
+    error(REG_ERR); 
+}
+
+
+int
+pop_dregister(void)
+{     /* レジスタから値を取り出す */
+    return freg_stack[--freg_sp];
+}
+
 int
 stack_used(void) {
     return reg_stack[--reg_sp]<0;
@@ -158,6 +227,11 @@
     regv[i]=regs[i]=0;
 }
 
+void 
+free_dregister(int i) {    /* いらなくなったレジスタを開放 */
+    fregv[i]=fregs[i]=0;
+}
+
 int
 register_full(void)
 {
@@ -189,7 +263,7 @@
 	regs[i]=regv[i]=0;
     }
     creg = get_register();
-    freg = get_register();
+    freg = get_dregister();
     return;
 }
 
@@ -214,7 +288,12 @@
                 error(-1); return;
             }
             use_register_var(n->dsp); /* it has now value in it */
-        }
+        } else if(n->sc==DREGISTER) {
+            if ((n->dsp = get_dregister_var()) <0) {
+                error(-1); return;
+            }
+            use_dregister_var(n->dsp); /* it has now value in it */
+	}
 	code_arg_register(cadr(args));
     }
 }
@@ -277,12 +356,33 @@
 {
     int i;
     for(i=0;i<MAX_REGISTGER_VAR;i++) {
-	if (REG_VAR_BASE-i<=REG_ARG_MAX)
+	if (REG_VAR_BASE-i<=REG_VAR_MIN)
 	    return -1;
-        if (! regs[REG_VAR_BASE-i]) {    /* 使われていないなら */
-            regs[REG_VAR_BASE-i]=1;      /* そのレジスタを使うことを宣言し */
+        if (! regs[REG_VAR_BASE-i]) {       /* 使われていないなら */
+            regs[REG_VAR_BASE-i]=USING_REG; /* そのレジスタを使うことを宣言し */
             regv[REG_VAR_BASE-i]=0;
-            return i;                    /* その場所を表す番号を返す */
+            return i;                       /* その場所を表す番号を返す */
+        }
+    }
+    return -1;
+}
+
+int
+dregister_var(int r) {
+    return FREG_VAR_BASE-r;
+}
+
+int
+get_dregister_var(void)
+{
+    int i;
+    for(i=0;i<MAX_FREGISTGER_VAR;i++) {
+	if (FREG_VAR_BASE-i<=FREG_VAR_MIN)
+	    return -1;
+        if (! regs[FREG_VAR_BASE-i]) {       /* 使われていないなら */
+            regs[FREG_VAR_BASE-i]=USING_REG; /* そのレジスタを使うことを宣言し */
+            regv[FREG_VAR_BASE-i]=0;
+            return i;                       /* その場所を表す番号を返す */
         }
     }
     return -1;
@@ -337,6 +437,21 @@
 }
 
 void
+clear_ptr_cache_reg(int r)
+{
+    int ptcptr=ptr_cache;
+    while(ptcptr) {
+	if(car(ptcptr)&&caddr(ptcptr)==r) {
+	    car(ptcptr)=0;
+	    caddr(ptcptr)=0;
+	    free_register(caddr(ptcptr));
+	    retrun;
+	}
+	ptcptr=cadr(ptcptr);
+    }
+}
+
+void
 clear_ptr_cache()
 {
     int ptcptr=ptr_cache;
@@ -368,10 +483,10 @@
     cadr(p) = ptr_cache;   /* connect current queue to the last one */
     ptr_cache = p;         /* now the last one is the top */
     if (!caddr(p)) {
-	if((r=get_register())) 
-	    caddr(p)=r;
-	else
-	    r=creg;
+	if((r=get_register())) {
+	    caddr(p)=r; regs[r]=PTRC_REG;
+	} else
+	    r=creg; /* this can't happen */
     }
     rrn = register_name(r);
     printf("\taddis %s,r31,ha16(L_%s$non_lazy_ptr-%s)\n",
@@ -882,7 +997,7 @@
 int
 function(int e1)
 {
-    int e2,e3,e4,e5,nargs,t;
+    int e2,e3,e4,e5,nargs,t,i;
     int reg_arg,freg_arg;
     NMTBL *n;
     int jmp;
@@ -899,10 +1014,11 @@
 	n=(NMTBL *)(e5=(cadr(e4 = car(e3))));
 	if(scalar(t)) {
 	    g_expr(e4);
-	    if (reg_arg<REG_ARG_MAX)
+	    if (reg_arg<REG_ARG_MAX) {
 		printf("\tmr %s,%s\n",register_name(reg_arg),
                                 register_name(creg));
-	    else {
+		regs[reg_arg]=1;
+	    } else {
 		printf("\tstw %s,%d(r1)\n",register_name(creg),
                                 arg_offset_v(nargs));
 	    }
@@ -940,6 +1056,7 @@
 	regv[creg]=1;
     }
 
+    clear_ptr_cache();
     if (car(e2) == FNAME) {	
 	printf("\tbl\tL_%s$stub\n",n->nm);
     } else {
@@ -951,8 +1068,17 @@
         printf("\tbctrl\n");
 	free_register(jmp);
     }
-    regv[creg]=1;
-    clear_ptr_cache();
+    for(;reg_argv>=REG_ARG_BASE;reg_argv--) 
+	regs[reg_argv]=regv[reg_argv]=0;
+    for(;freg_argv>=FREG_ARG_BASE;freg_argv--) 
+	fregs[freg_argv]=fregv[freg_argv]=0;
+    if (fnptr->ty==DOUBLE||fnptr->ty==FLOAT) {
+        fregv[freg]=1; regv[creg]=0;
+    } else if (fnptr->ty==VOID) {
+        fregv[freg]=0; regv[creg]=0;
+    } else {
+        fregv[freg]=0; regv[creg]=1;
+    }
     return fnptr->ty;
 }
 
@@ -990,7 +1116,7 @@
     switch (car(e1)) {
     case FRINDIRECT: case DRINDIRECT:
 	printf("\t%s %s,(%s)\n",fload(car(e1)==DRINDIRECT),
-	    register_name(freg),crn);
+	    dregister_name(freg),crn);
 	regv[creg]=0; regv[freg]=1;
 	return DOUBLE;
     case CRINDIRECT: 
@@ -1195,13 +1321,6 @@
 }
 
 void
-code_closing()
-{
-    global_table();
-    printf("\t.ident \"Micro-C compiled\"\n");
-}
-
-void
 rexpr(int e1, int l1, char *s,int t)
 {       
     g_expr(list3(CMP,cadr(e1),caddr(e1)));
@@ -1481,6 +1600,17 @@
 
 /* floating point */
 
+static int float_one_lib_used=0;
+static char *float_one_lib[] = {
+".data",
+".literal8",
+"        .align 3",
+"__float_one:",
+"        .long   1065353216",
+".text",
+0
+};
+
 
 char *
 fstore(int d)
@@ -1508,17 +1638,17 @@
 { 
     int r;
     r = get_ptr_cache((char*)caddr(e2));
-    printf("\t%s %s,(%s)\n",fstore(d),register_name(freg),register_name(r));
+    printf("\t%s %s,(%s)\n",fstore(d),dregister_name(freg),register_name(r));
 }
 
 void code_dassign_lvar(int e2,int d)
 { 
-    printf("\t%s %s,%d(r1)\n",fstore(d),register_name(creg),e2);
+    printf("\t%s %s,%d(r1)\n",fstore(d),dregister_name(freg),e2);
 }
 
 void code_dassign(int e2,int d)
 { 
-    printf("\t%s %s,(%s)\n",fstore(d),register_name(creg),register_name(e2));
+    printf("\t%s %s,(%s)\n",fstore(d),dregister_name(freg),register_name(e2));
 }
 
 static double d0 = 1.0;
@@ -1543,7 +1673,7 @@
     double d = dcadr(e2);
     int r;
     char *rrn;
-    rrn = register_name((r=get_register()));
+    rrn = dregister_name((r=get_dregister()));
 
     if (d==0.0) {
 	printf("\tfldz\n"); return;
@@ -1562,19 +1692,19 @@
     }
     printf("\taddis %s,r31,ha16(_%d-%s)\n",rrn,lb,code_base);
     printf("\tla %s,lo16(_%d-%s)(%s)\n",rrn,lb,code_base,rrn);
-    printf("\tlfd %s,(%s)\n",register_name(freg),rrn);
+    printf("\tlfd %s,(%s)\n",dregister_name(freg),rrn);
     free_register(r);
 }
 
 void code_dneg()
 { 
-    char *frn = register_name(freg);
+    char *frn = dregister_name(freg);
     printf("\tfneg %s,%s\n",frn,frn);
 }
 
 void code_d2i()
 { 
-    char *frn = register_name(freg);
+    char *frn = dregister_name(freg);
     char *crn = register_name(creg);
     disp-=size_of_double;
     printf("\tfctiwz  %s,%s\n",frn,frn);
@@ -1615,7 +1745,7 @@
 void code_i2d()
 { 
     i2d_lib_used = 1;
-    char *frn = register_name(freg);
+    char *frn = dregister_name(freg);
     char *crn = register_name(creg);
     printf("\tmr r3,%s\n",crn);
     printf("\tbl i2d_\n");
@@ -1663,7 +1793,7 @@
 void code_d2u()
 { 
     d2u_lib_used=1;
-    char *frn = register_name(freg);
+    char *frn = dregister_name(freg);
     char *crn = register_name(creg);
     printf("\tfmr f1,%s\n",frn);
     printf("\tbl d2u\n");
@@ -1702,7 +1832,7 @@
 void code_u2d()
 { 
     u2d_lib_used = 1;
-    char *frn = register_name(freg);
+    char *frn = dregister_name(freg);
     char *crn = register_name(creg);
     printf("\tmr r3,%s\n",crn);
     printf("\tbl u2d\n");
@@ -1715,21 +1845,21 @@
 { 
     int r;
     r = get_ptr_cache((char*)caddr(e2));
-    printf("\t%s %s,(%s)\n",fload(d),register_name(freg),register_name(r));
+    printf("\t%s %s,(%s)\n",fload(d),dregister_name(freg),register_name(r));
 }
 
 
 void code_drlvar(int e2,int d)
 { 
-    printf("\t%s %s,%d(r1)\n",fload(d),register_name(freg),e2);
+    printf("\t%s %s,%d(r1)\n",fload(d),dregister_name(freg),e2);
 }
 
 void code_cmp_drgvar(int e2)
 { 
     int r;
-    char *frn=register_name(freg);
-    int g=get_register();
-    char *grn=register_name(g);
+    char *frn=dregister_name(freg);
+    int g=get_dregister();
+    char *grn=dregister_name(g);
     r = get_ptr_cache((char*)caddr(e2));
     printf("\t%s %s,(%s)\n",fload(1),grn,register_name(r));
     printf("\tfcmpu cr0,%s,%s\n",frn,grn);
@@ -1739,9 +1869,9 @@
 void code_cmp_drlvar(int e2)
 { 
     printf("\tfcmpu %d(%%ebp)\n",e2);
-    char *frn=register_name(freg);
-    int g=get_register();
-    char *grn=register_name(g);
+    char *frn=dregister_name(freg);
+    int g=get_dregister();
+    char *grn=dregister_name(g);
     printf("\t%s %s,%d(r1)\n",fload(1),grn,e2);
     printf("\tfcmpu cr0,%s,%s\n",frn,grn);
     free_register(g);
@@ -1750,8 +1880,8 @@
 void dtosop(int op,int e1)
 { 
     char *opn;
-    char *frn=register_name(freg);
-    char *grn=register_name(e1);
+    char *frn=dregister_name(freg);
+    char *grn=dregister_name(e1);
     switch(op) {
     case DADD: opn="fadd"; break;
     case DSUB: opn="fadd"; break;
@@ -1773,9 +1903,9 @@
 void
 code_dassop(int op,int d) {
     /* we have lvalue in creg, applied floating value is in freg */
-    char *frn=register_name(freg);
-    int  e1=get_register();
-    char *grn=register_name(e1);
+    char *frn=dregister_name(freg);
+    int  e1=get_dregister();
+    char *grn=dregister_name(e1);
     char *crn=register_name(creg);
 
     printf("\t%s %s,(%s)\n",fload(d),grn,crn);
@@ -1783,7 +1913,6 @@
     printf("\t%s %s,(%s)\n",fstore(d),frn,crn);
 }
 
-static int use_float_one=0;
 
 void
 code_dpreinc(int e1,int e2,int d) {
@@ -1792,15 +1921,15 @@
     int  g;
     char *grn,*drn;
     int r;
-    r = get_ptr_cache("float_one");
-    use_float_one=1;
+    r = get_ptr_cache("_float_one");
+    float_one_lib_used=1;
 
     g_expr(e2);
 
     crn=register_name(creg);
-    frn=register_name(freg);
+    frn=dregister_name(freg);
     drn=register_name(r);
-    grn=register_name(g);
+    grn=dregister_name(g=get_dregister());
 
     printf("\t%s %s,(%s)\n",fload(d),frn,crn);
     printf("\tfls %s,(%s)\n",grn,drn);
@@ -1809,6 +1938,7 @@
     else
 	printf("\tfsub %s,%s,%s\n",frn,frn,grn);
     printf("\t%s %s,(%s)\n",fstore(d),frn,crn);
+    free_dregister(g);
 }
 
 void
@@ -1818,15 +1948,15 @@
     int  g;
     char *grn,*drn;
     int r;
-    r = get_ptr_cache("float_one");
-    use_float_one=1;
+    r = get_ptr_cache("_float_one");
+    float_one_lib_used=1;
 
     g_expr(e2);
 
     crn=register_name(creg);
-    frn=register_name(freg);
+    frn=dregister_name(freg);
     drn=register_name(r);
-    grn=register_name(g);
+    grn=dregister_name(g=get_dregister());
 
     printf("\t%s %s,(%s)\n",fload(d),frn,crn);
     printf("\tfls %s,(%s)\n",grn,drn);
@@ -1835,6 +1965,7 @@
     else
 	printf("\tfsub %s,%s,%s\n",grn,frn,grn);
     printf("\t%s %s,(%s)\n",fstore(d),grn,crn);
+    free_dregister(g);
 }
 
 void
@@ -1858,18 +1989,20 @@
     }
 }
 
-int dpop_register()
-{ 
-    return 1;
-}
-
 int emit_dpop(int e1)
 { 
-    return 1;
+    int xreg;
+    if ((xreg=pop_dregister())==-1) {
+    } else if (xreg<= -REG_LVAR_OFFSET) {
+	xreg = get_dregister();
+        code_drlvar(lvar(REG_LVAR_OFFSET+xreg),1);
+    }
+    return xreg;
 }
 
 void emit_dpop_free(int e1)
 { 
+    free_dregister(e1);
 }
 
 void emit_dpush()
@@ -1887,8 +2020,27 @@
 }
 
 void
-regist_extern_function(bcopy)
+regist_extern_function(int f)
+{
+}
+
+void
+emit_lib(char *p[])
 {
+    while(p++) {
+	printf("%s\n",p);
+    }
+}
+
+void
+code_closing()
+{
+    global_table();
+    printf("\t.ident \"Micro-C compiled\"\n");
+    if (d2u_lib_used) emit_lib(d2u_lib);
+    if (u2d_lib_used) emit_lib(u2d_lib);
+    if (float_one_lib_used) emit_lib(float_one_lib);
+    if (i2d_lib_used) emit_lib(i2d_lib);
 }
 
 /* end */
diff -r 185d2cc6a3a9 -r 7d8de41390d8 test/basic.c
--- a/test/basic.c	Thu Mar 13 14:41:48 2003 +0900
+++ b/test/basic.c	Thu Mar 13 22:48:57 2003 +0900
@@ -26,9 +26,50 @@
     printf("%d\n",i);
 }
 
+int 
+g(
+int a0,int a1,int a2,int a3,int a4,int a5,int a6,int a7,int a8
+)
+{
+    printf("g: %d\n",
+a0+a1+a2+a3+a4+a5+a6+a7+a8
+    );
+    return a8;
+}
+
+double 
+f(
+double a0,double a1,double a2,double a3,double a4,double a5,double a6,double a7,double a8
+)
+{
+    printf("g: %g\n",
+a0+a1+a2+a3+a4+a5+a6+a7+a8
+    );
+    return a8;
+}
+
 void 
 tmp1 () { 
 
+g(g(0,1,2,3,4,5,6,7,0),
+    g(0,1,2,3,4,5,6,7,1),
+    g(0,1,2,3,4,5,6,7,2),
+    g(0,1,2,3,4,5,6,7,3),
+    g(0,1,2,3,4,5,6,7,4),
+    g(0,1,2,3,4,5,6,7,5),
+    g(0,1,2,3,4,5,6,7,6),
+    g(0,1,2,3,4,5,6,7,6),
+    g(0,1,2,3,4,5,6,7,7));
+f(f(0,1,2,3,4,5,6,7,0),
+    f(0,1,2,3,4,5,6,7,1),
+    f(0,1,2,3,4,5,6,7,2),
+    f(0,1,2,3,4,5,6,7,3),
+    f(0,1,2,3,4,5,6,7,4),
+    f(0,1,2,3,4,5,6,7,5),
+    f(0,1,2,3,4,5,6,7,6),
+    f(0,1,2,3,4,5,6,7,6),
+    f(0,1,2,3,4,5,6,7,7));
+
     printf("%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d \n",
 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49
 );
diff -r 185d2cc6a3a9 -r 7d8de41390d8 test/float.c
--- a/test/float.c	Thu Mar 13 14:41:48 2003 +0900
+++ b/test/float.c	Thu Mar 13 22:48:57 2003 +0900
@@ -12,6 +12,7 @@
 float f1 = 0.3;
 double d1 = 0.3;
 double d2 = -0.2;
+float h = 1.0;
 
 int
 d2i(double d) {