* src/vm/jit/reorder.c (reorder): Iterate to m->basicblockcount + 1,

[cacao.git] / src / vm / field.c

diff --git a/src/vm/field.c b/src/vm/field.c
index 9c9900ecccfe0562f88b3b764a0cdceb4b3f9b7e..08eee657d87398ce927317d5dfe9a2ba6770f94d 100644 (file)
--- a/src/vm/field.c
+++ b/src/vm/field.c
@@ -32,7 +32,7 @@
             Edwin Steiner
             Christian Thalinger
 
-   $Id: field.c 4404 2006-02-03 12:38:03Z twisti $
+   $Id: field.c 4879 2006-05-05 17:34:49Z edwin $
 
 */
 
@@ -98,13 +98,15 @@ void field_printflags(fieldinfo *f)
 void field_print(fieldinfo *f)
 {
        if (f == NULL) {
-               printf("NULL");
+               printf("(fieldinfo*)NULL");
                return;
        }
 
-       utf_display(f->name);
+       utf_display_printable_ascii_classname(f->class->name);
+       printf(".");
+       utf_display_printable_ascii(f->name);
        printf(" ");
-       utf_display(f->descriptor);     
+       utf_display_printable_ascii(f->descriptor);     
 
        field_printflags(f);
 }
@@ -125,6 +127,48 @@ void field_println(fieldinfo *f)
 }
 #endif
 
+/* field_fieldref_print ********************************************************
+
+   (debugging only)
+
+*******************************************************************************/
+
+#if !defined(NDEBUG)
+void field_fieldref_print(constant_FMIref *fr)
+{
+       if (fr == NULL) {
+               printf("(constant_FMIref *)NULL");
+               return;
+       }
+
+       if (IS_FMIREF_RESOLVED(fr)) {
+               printf("<field> ");
+               field_print(fr->p.field);
+       }
+       else {
+               printf("<fieldref> ");
+               utf_display_printable_ascii_classname(fr->p.classref->name);
+               printf(".");
+               utf_display_printable_ascii(fr->name);
+               printf(" ");
+               utf_display_printable_ascii(fr->descriptor);
+       }
+}
+#endif
+
+/* field_fieldref_println ******************************************************
+
+   (debugging only)
+
+*******************************************************************************/
+
+#if !defined(NDEBUG)
+void field_fieldref_println(constant_FMIref *fr)
+{
+       field_fieldref_print(fr);
+       printf("\n");
+}
+#endif
 
 /*
  * These are local overrides for various environment variables in Emacs.