[kaffe] CVS kaffe (dalibor): Small fix for parisc

Kaffe CVS Kaffe Mailing List <kaffe@kaffe.org>
Sat Jan 17 11:42:03 2004


PatchSet 4347 
Date: 2004/01/17 19:38:37
Author: dalibor
Branch: HEAD
Tag: (none) 
Log:
Small fix for parisc

2004-01-17  Dalibor Topic <robilad@kaffe.org>

        * config/parisc/sysdepCallMethod.h:
        (sysdepCallMethod) Cleaned up, and fixed compilation
        problems.

        Reported by: Riccardo Mottola <zuse@libero.it>

Members: 
	ChangeLog:1.1933->1.1934 
	config/parisc/sysdepCallMethod.h:1.1->1.2 

Index: kaffe/ChangeLog
diff -u kaffe/ChangeLog:1.1933 kaffe/ChangeLog:1.1934
--- kaffe/ChangeLog:1.1933	Sat Jan 17 18:00:08 2004
+++ kaffe/ChangeLog	Sat Jan 17 19:38:37 2004
@@ -1,5 +1,13 @@
 2004-01-17  Dalibor Topic <robilad@kaffe.org>
 
+	* config/parisc/sysdepCallMethod.h:
+	(sysdepCallMethod) Cleaned up, and fixed compilation
+	problems.
+
+	Reported by: Riccardo Mottola <zuse@libero.it>
+
+2004-01-17  Dalibor Topic <robilad@kaffe.org>
+
 	Switched over to using gettext's autopoint to
 	update m4 files required for iconv support.
 
Index: kaffe/config/parisc/sysdepCallMethod.h
diff -u kaffe/config/parisc/sysdepCallMethod.h:1.1 kaffe/config/parisc/sysdepCallMethod.h:1.2
--- kaffe/config/parisc/sysdepCallMethod.h:1.1	Fri Dec 12 19:09:02 2003
+++ kaffe/config/parisc/sysdepCallMethod.h	Sat Jan 17 19:38:40 2004
@@ -36,7 +36,8 @@
   int *stackx;
   int st_reserve[(call)->nrargs];
   asm volatile ("ldo -36(%%r30),%0" : "=r" (sa) : "r" (st_reserve));
-  for (argidx = 0, stackx = sa; argidx < (call)->nrargs; argidx++)
+
+  for (argidx = 0, stackx = sa; argidx < (call)->nrargs; argidx++) {
     switch ((call)->callsize[argidx])
       {
       case 1:
@@ -47,18 +48,19 @@
 	*stackx-- = (int) ((call)->args[argidx].j);
 	*stackx-- = (call)->args[argidx].i;
 	argidx++;
-      default:
 	break;
-      }
+      };
+  }
+
   if ((call)->rettype == 'F') {
     (call)->ret->f =
       ((f4int_f *) ((call)->function)) (sa[0], sa[-1], sa[-2], sa[-3]);
-    break;
+    return;
   }
   if ((call)->rettype == 'D') {
     (call)->ret->d =
       ((d4int_f *) ((call)->function)) (sa[0], sa[-1], sa[-2], sa[-3]);
-    break;
+    return;
   }
   (call)->ret->j =
     ((j4int_f *) ((call)->function)) (sa[0], sa[-1], sa[-2], sa[-3]);