[kaffe] CVS kaffe (dalibor): Fixes to intrp debug checks

[Kaffe CVS]

PatchSet 4587 
Date: 2004/03/27 18:05:14
Author: dalibor
Branch: HEAD
Tag: (none) 
Log:
Fixes to intrp debug checks

2004-03-27  Patrick Cernko <pcernko@mpi-sb.mpg.de>

        kaffe/kaffevm/intrp/checks.h:
        Fixed some checks to print out right results.

Members: 
	ChangeLog:1.2165->1.2166 
	kaffe/kaffevm/intrp/checks.h:1.3->1.4 

Index: kaffe/ChangeLog
diff -u kaffe/ChangeLog:1.2165 kaffe/ChangeLog:1.2166
--- kaffe/ChangeLog:1.2165	Sat Mar 27 17:28:16 2004
+++ kaffe/ChangeLog	Sat Mar 27 18:05:14 2004
@@ -1,3 +1,8 @@
+2004-03-27  Patrick Cernko <pcernko@mpi-sb.mpg.de>
+
+	kaffe/kaffevm/intrp/checks.h:
+	Fixed some checks to print out right results.
+
 2003-03-27  Riccardo Mottola <zuse@libero.it>
 
 	* kaffe/kaffeh/support.c:
Index: kaffe/kaffe/kaffevm/intrp/checks.h
diff -u kaffe/kaffe/kaffevm/intrp/checks.h:1.3 kaffe/kaffe/kaffevm/intrp/checks.h:1.4
--- kaffe/kaffe/kaffevm/intrp/checks.h:1.3	Tue May 25 08:06:22 1999
+++ kaffe/kaffe/kaffevm/intrp/checks.h	Sat Mar 27 18:05:16 2004
@@ -13,15 +13,15 @@
 #define	__checks_h
 
 #define	check_local_int(l)	CHDBG (dprintf ("- local %d: int %d\n", (l), (int) local(l)->v.tint))
-#define	check_local_long(l)	CHDBG (dprintf ("- local %d: long %ld\n", (l), (long) local_long(l)->v.tlong))
+#define	check_local_long(l)	CHDBG (dprintf ("- local %d: long %lld\n", (l), (jlong) local_long(l)->v.tlong))
 #define	check_local_float(l)	CHDBG (dprintf ("- local %d: float %g\n", (l), (double) local_float(l)->v.tfloat))
 #define	check_local_double(l)	CHDBG (dprintf ("- local %d: double %g\n", (l), (double) local_double(l)->v.tdouble))
 #define	check_local_ref(l)	CHDBG (dprintf ("- local %d: ref %p\n", (l), (void *) local(l)->v.taddr))
 
 #define	check_stack_int(l)	CHDBG (dprintf ("- stack %d: int %d\n", (l), (int) stack(l)->v.tint))
-#define	check_stack_long(l)	CHDBG (dprintf ("- stack %d: long %ld\n", (l), (long) stack(l)->v.tlong))
+#define	check_stack_long(l)	CHDBG (dprintf ("- stack %d: long %lld\n", (l), (jlong) stack_long(l)->v.tlong))
 #define	check_stack_float(l)	CHDBG (dprintf ("- stack %d: float %g\n", (l), (double) stack(l)->v.tfloat))
-#define	check_stack_double(l)	CHDBG (dprintf ("- stack %d: double %g\n", (l), (double) stack(l)->v.tdouble))
+#define	check_stack_double(l)	CHDBG (dprintf ("- stack %d: double %g\n", (l), (double) stack_double(l)->v.tdouble))
 #define	check_stack_ref(l)	CHDBG (dprintf ("- stack %d: ref %p\n", (l), (void *) stack(l)->v.taddr))
 
 #define	check_stack_array(l)		CHDBG (dprintf ("- stack %d: array * %p[%d]\n", (l), (void *) stack(l)->v.taddr, (int) *(uint32*)(object_array_length+(char*)stack(l)->v.taddr)))